Enviar Mail !

Algún ha realizado una aplicación que permita mandar un mail con un archivo adjunto.
La idea que tengo es que el mail quede en la bandeja de salida junto con la dirección y el archivo adjunto !

1 respuesta

Respuesta
1
Prueba esto y me dices:
strProfile = "nombredeusuarioperfil"
strPassword = "passwordperfil"
strRecipient = "[email protected]"
strSubject = "Asunto"
strBody = "Este es el mensaje..."
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
theMailItem = theApp.CreateItem(0)
theMailItem.Recipients.Add( strRecipient )
theMailItem.Subject = strSubject
theMailItem.Body = strBody
TheMailItem. Send
TheNameSpace. Logoff
--Devilzito--
Disculpa, un par de preguntas más.
Como es la propiedad para realizar un atachment (Archivo Adjunto)
Como puedo hacer para que funcione con cualquier programa de correo electrónico.
Es necesario tener instalado el Outlook.
Como puedo saber las propiedades de otro programa de correo !
Gracias.
1. No se que le pasó a mi outlook, y me esta mandando errores. He tratado de encontrar esa propiedad pero de un día para acá se me daño ese programa, así que no puedo realizar las pruebas.
2.Esta es la única forma que conozco, como outlook es un programa estándar (cosa que no me fascina) entonces lo he hecho así)
3.Si
4. Sólo conozco outlook

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas