Hola Piolin
Es perfecto ... Es cierto que las referencias tienen mucho potencial. Aunque en tu respuesta no me indicas cómo incluir un archivo como adjunto en un email, me has ayudado bastante puesto que "leyendo" he descubierto el cómo. De todas formas, abusando de tu sabiduría... la referencia de OutLook 9.0 no la tengo, es la 8.0 la que dispongo y he usado. Esta es la función que he creado y luego te hago la pregunta:
________________________
Function OtroIntentoMail()
On Error GoTo error_OtroIntentoMail
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oAtt As Outlook.Attachments
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
oMail.To = "
[email protected]"
oMail.Subject = "Texto del asunto"
oMail.Body = "cuerpo del mensaje"
oMail.Attachments.Add ("c:\mis documentos\1.xlw")
oMail.Attachments.Add ("c:\mis documentos\1.xlw")
oMail.Attachments.Add ("c:\mis documentos\1.xlw")
oMail.Send
oApp.Quit
Set oApp = Nothing
Set oMail = Nothing
salir_OtroIntentoMail:
Exit Function
error_OtroIntentoMail:
MsgBox Err.Number & ". " & Err.Description
Resume salir_OtroIntentoMail
End Function
_______________________
La pregunta es: Con esta función se usa el Microsoft Outlook y no el OutLook Express 5.0. Problema: mi cuenta de correo movistar tiene un servidor de saliente (smtp) y uno de entrante (pop3), y con outlook solo puedo dárle una, o la saliente o la entrante. ¿debo cambiar de cuenta de correo? ¿o es que no sé configurar el outlook express?.
Muchas gracias
Saludos
epm