Código para la macros.
Sub enviarmails()
Dim App As Object
Dim Mail As Object
Sheets("Mails").Select
For i = 6 To Range("A" & Rows.Count).End(xlUp).Row
Set App = CreateObject("Outlook.Application")
App.Session.Logon
Set Mail = App.CreateItem(0)
On Error Resume Next
With Mail
.To = Range("A" & i).Value 'Para o Email
.CC = Range("B" & i).Value
.BCC = Range("C" & i).Value
.Subject = Range("D" & i).Value 'Titulo
.Body = Range("E" & i).Value 'Contenido
.Attachments.Add Range("F" & i).Value 'Archivo adjunto
.Send 'Enviar
'.Display 'Muestra primero antes de enviar.
End With
Set Mail = Nothing
'Set App = Notinhg
Next
End Sub

свернуть