Cómo abrir un grupo de destinatarios en Outlook
La intención es en excel cómo abrir este grupo y enviar correo a los contactos que están dentro del mismo en visual basic excel.
Sub EnviarEmail()
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Saldo As String
Dim Msg As String
'
Set OutlookApp = New Outlook.Application
'Asigna el rango donde tienes tus correos
For Each cell In Range("A1:A80")
'Asunto del correo
Asunto = "EJEMPLO"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
Saldo = Format(cell.Offset(0, 1).Value, "$#,##0")
FechaVencimiento = Format(cell.Offset(0, 2).Value, "dd/mmm/yyyy")
'
'Cuerpo del mensaje
'
Msg = "Ejmeplo " & Destinatario & vbNewLine & vbNewLine
Msg = Msg & FechaVencimiento & "ejemplo" & vbNewLine & vbNewLine
Msg = Msg & "ejemplo"
Msg = Msg & Saldo & vbNewLine & vbNewLine
Msg = Msg & "ejemplo" & vbNewLine
Msg = Msg & "ejemplo"
'
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.Body = Msg
.Send
'
End With
'
Next
'
End Sub
Hola Luis muchas gracias por la respuesta.
Me está dando este error cuando intento correrla.
¿Tienes el outlook instalado y configurado?
Correcto!
Pásame tu correo para mandarte el archivo original.
