Preciso de um código onde encaminha somente um email para endereços de acordo com uma coluna.
No meu código o campo "para" preenche somente com o conteúdo da primeira célula.
Onde está meu erro?
Código: Selecionar todos
Sub EnviarEmail()
Dim OutApplication As Object
Dim nEmail As Object
Dim UltCel As Range
Dim Resultado As Long
Application.ScreenUpdating = False
Set OutApplication = CreateObject("Outlook.Application")
Set nEmail = OutApplication.CreateItem(olMailItem)
Resultado = 0
'Sheets("Email").Select
'Set UltCel = ActiveSheet.Range("A1048576").End(xlUp)
'UltCel.Select
Range("I14").Select
Do While ActiveCell.row >= ""
Resultado = ActiveCell.Value
ActiveCell.Offset(-1, 0).Select
Loop
With nEmail
.to = Resultado
'.CC =
'.BCC =
.Subject =
.HtmlBody = "
.display
End With
Application.ScreenUpdating = True
End Sub