Correo mapi no envia imagenes
Publicado por Celso (13 intervenciones) el 16/10/2004 21:55:18
Hola a todos.
Estoy haciendo un programa para enviar archivos html como e-mails y no me envía las imagenes de archvio, solo me envía el texto y en las imagenes deja el sitio vacio.
Si ese archivo lo envio directamente desde Outlock tampoco me lo envía, en cambio si lo envío desde WORD si que me lo envía.
Como hago para enviar el archivo html junto con todas sus imágenes ?.
Os adjunto la rutina para ver si me podeis decir cual es el fallo.
Muchas gracias a todos
Private Sub enviaremail(x As String)
\'On Error GoTo ErrorPreparar
With MAPISession1
.DownLoadMail = False \'para que no comience a decargar los mails
.LogonUI = True
.SignOn
.NewSession = False \' para que no abra otro cliente de correo si ya tenes uno abierto
MAPIMessages1.SessionID = MAPISession1.SessionID
End With
With MAPIMessages1
.Compose
.RecipAddress = x \'direccion de correo
.AddressResolveUI = True
.ResolveName
.MsgSubject = \"PLAN RENOVE \" \' asunto del mensaje
.AttachmentPathName = \"C:\\pyme.htm\" \'esta es la pagina que envío
.Send False \' para que no lo envie ahora
End With
MAPISession1.SignOff \'cierra la sesion
\'End If
Exit Sub
Estoy haciendo un programa para enviar archivos html como e-mails y no me envía las imagenes de archvio, solo me envía el texto y en las imagenes deja el sitio vacio.
Si ese archivo lo envio directamente desde Outlock tampoco me lo envía, en cambio si lo envío desde WORD si que me lo envía.
Como hago para enviar el archivo html junto con todas sus imágenes ?.
Os adjunto la rutina para ver si me podeis decir cual es el fallo.
Muchas gracias a todos
Private Sub enviaremail(x As String)
\'On Error GoTo ErrorPreparar
With MAPISession1
.DownLoadMail = False \'para que no comience a decargar los mails
.LogonUI = True
.SignOn
.NewSession = False \' para que no abra otro cliente de correo si ya tenes uno abierto
MAPIMessages1.SessionID = MAPISession1.SessionID
End With
With MAPIMessages1
.Compose
.RecipAddress = x \'direccion de correo
.AddressResolveUI = True
.ResolveName
.MsgSubject = \"PLAN RENOVE \" \' asunto del mensaje
.AttachmentPathName = \"C:\\pyme.htm\" \'esta es la pagina que envío
.Send False \' para que no lo envie ahora
End With
MAPISession1.SignOff \'cierra la sesion
\'End If
Exit Sub
Valora esta pregunta


0