Enviar Correo desde Aplicación en VB
Hola!
Mi duda es la siguiente... ¿Cómo puedo enviar un correo desde una aplicación de VB?
Es decir, en un formulario norma y corriente, que salga un enlace a una dirección de correo determinada y en ese mismo momento que se me abra una pantallita con el Outlook y Nuevo mensaje (la dirección ya incluida en el destinatario).
Muchas gracias por adelantado.
Un saludo
Mi duda es la siguiente... ¿Cómo puedo enviar un correo desde una aplicación de VB?
Es decir, en un formulario norma y corriente, que salga un enlace a una dirección de correo determinada y en ese mismo momento que se me abra una pantallita con el Outlook y Nuevo mensaje (la dirección ya incluida en el destinatario).
Muchas gracias por adelantado.
Un saludo
Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
myitem.Recipients.Add (" " nombre + "@yahoo.com" & " ")
myitem.Subject = "Usted ha recibido un mensaje del departamento de Informatica "
myitem.Body = "email numero # " & Text9.Text 'text9.text tiene el numero del email
myitem.Send
MsgBox " mesanje enviado"
Para esto tienes q' agragar la referencia "vb for applications"
ciao
Set myitem = myOlApp.CreateItem(olMailItem)
myitem.Recipients.Add (" " nombre + "@yahoo.com" & " ")
myitem.Subject = "Usted ha recibido un mensaje del departamento de Informatica "
myitem.Body = "email numero # " & Text9.Text 'text9.text tiene el numero del email
myitem.Send
MsgBox " mesanje enviado"
Para esto tienes q' agragar la referencia "vb for applications"
ciao