ya esta listo el OCX que hace la funcion de enviar correo, pero mi duda ahora es:   ¿¿¿¿Como le hago para ponerlo aqui y lo pueadan descargar??? , disculpen mi ignorancia

trato hecho

pues cuando metes la imagen a la base de datos la guarda como string

creo que el problema son estas lineas

  Application.Worksheets(ihojas).Activate
  nomhojas = Application.ActiveSheet.Name

por que no intentas

  nomhojas =  Application.Worksheets(ihojas).name

creo que el problema es que le pasas el foco del sistema al excel con Application.Worksheets(ihojas).Activate

a ver , la variable que usas es de tipo String?, quieres quitarle los numeros que contenga y solo dejar las letras?

cuando creas una variable Date, te pone el formato dd/mm/yyyy hh:ss ampm, pero puedes darle el formato que quieras con el Format()

dim s as date
d = date 'Fecha actual
Format(d,"Long Date") -> "Martes 10 de Octubre de 2006"
Format(d, "Short date") -> "10/10/2006"
Format(d,"dd/MMMM/yyyy") -> "10/Octubre/2006")

DateDiff (Función): Devuelve un valor de tipo Variant (Long) que especifica el número de intervalos de tiempo entre dos fechas determinadas

Ejemplo de la función DateDiff
Este ejemplo utiliza la función DateDiff para mostrar el número de días entre una fecha dada y hoy.

Dim LaFecha As Date   ' Declara las variables.
Dim Msj
LaFecha = InputBox("Escriba una fecha")
Msj = "Días desde hoy: " & DateDiff("d", Now, LaFecha)
MsgBox Msj


***Ejemplo tomado de la ayuda de VB

checa esto
http://foro.elhacker.net/index.php/topic,143845.0.html

supongo que estas utilizando el ListView, ono?


bueno por si es asi hay te va un ejemplo:

Private Sub ListView_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ListView.SortKey = ColumnHeader.Index - 1
    ListView.Sorted = True
End Sub

lo que hace es que cuando selecciona una columna los datos se ordenan de acuerdo a esta

Te recomiendo veas la ayuda del VB, viene muy viene explicado, pero para que vayas empezando hay te van unos tips


para agregar itemes a tu listview
ListView.ListItems.Add Indice, Llave, Texto, Icono, IconoPequeño

Indice, llave y los iconos son opcionales
el campo Llave te puede servir para hacer busquedas por ejemplo, puedes usar un for para ubicar al gun item

for i = 1 to ListView.ListItems.Count
     if ListView.ListItems(i).Key = "algo" then
      ' Lo encontraste
      exit for
next i

para agregar iconos a tu listView tienes que enlazarlo a un Imagelist, usa las propiedades para asignarle el Imagelist que contiene los iconos grandes y los pequeños


tambien te servira el evento ItemClick para saber cual item ha sido seleccionado

te recomiendo cheques los ejemplos que vienen incluidos, hay agunos de este control