He conseguido enviar emails automaticos desde excel utilizando el
cliente outlook, incluyendo el destinatario, el asunto, el cuerpo del
mensaje, etc...en celdas de excel.
La consulta surje al necesitar hacer un envio automatico de email pero
con una fecha de entrega concreta definida en la hoja excel.
¿Es posible???? ¿Existe algun parametro???
Gracias anticipadas.
Sub Mail_with_outlook()
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strto = "A@B.COM"
strcc = ""
strbcc = ""
strsub = "Important message"
strbody = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed"
With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.Body = strbody
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Leer las respuestas