Correo desde Excel
Estoy desarrollando una aplicación en Excel, y necesito que automáticamente de acuerdo a una fecha, envíe un mensaje de correo predefinido utilizando outlook a un usuario ya establecido. ¿Podrías indicarme como hago esto?
1 respuesta
Respuesta de valedor
1
Así envías un correo:
ublic Sub EnviarCorreo()
Dim myOlApp As Object
Dim myItem As Object 'Outlook.MailItem
Const olMailItem As Integer = 0
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Subject = "Prueba de mensaje"
myItem.Body = "Ejemplo de envio de correo"
myItem.To = "[email protected]"
'myItem.Send
'Si quieres mostrar el mensaje
myItem.Display
Set myItem = Nothing
Set myOlApp = Nothing
End Sub
Lo de la fecha y la persona te lo dejo para que lo investigues, como pistas checa los objetos de Outlook y la función Date.
ublic Sub EnviarCorreo()
Dim myOlApp As Object
Dim myItem As Object 'Outlook.MailItem
Const olMailItem As Integer = 0
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Subject = "Prueba de mensaje"
myItem.Body = "Ejemplo de envio de correo"
myItem.To = "[email protected]"
'myItem.Send
'Si quieres mostrar el mensaje
myItem.Display
Set myItem = Nothing
Set myOlApp = Nothing
End Sub
Lo de la fecha y la persona te lo dejo para que lo investigues, como pistas checa los objetos de Outlook y la función Date.
