Olá turma,

Tõ começando a tentar utilizar o recurso de envio de emails pelo Excel.

Descobri uma adaptação feita pelo Macoratti do nosso velho e MUITO BOM Modelo de Cadastro do Tomas Vasquez, nela há uma forma de enviar email para várias pessoas de uma vez, conforme condição. Tudo certo e funcionando e muito bom, turma. Vale a pena conferir em: http://www.macoratti.net/10/11/vba_ccli.htm
Abaixo a rotina citada:

Sub Enviar_EMail()
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo limpa

    For Each cell In Columns("H").Cells.SpecialCells(xlCellTypeConstants)
    'verifica se o email é valido e se o cliente possui o estados A (atrasado)
        If cell.Value Like "?*@?*.?*" And LCase(Cells(cell.Row, "I").Value) = "a" Then
            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Aviso"
                .Body = "Caro " & Cells(cell.Row, "B").Value _
                      & vbNewLine & vbNewLine & _
                        "Entre em contato com nosso serviço de cobrança " & _
                        "para tratar assunto de seu interesse com urgência"
                'Podemos enviar um anexo
                .Attachments.Add ("c:dadoscarta.txt")
                .Send
            End With
            On Error GoTo 0
            Set OutMail = Nothing
            MsgBox ("Email enviado com sucesso..." & " para " & Cells(cell.Row, "B").Value)
        End If
    Next cell
limpa:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
    
End Sub

Porém eu gostaria de enviar vários emails simultaneamente, sem a necessidade de utilizar o Outlook, possivelmente seria utilizando a biblioteca Microsoft CDO, alguém saberia como poderia ser feito a partir da rotina postada acima, ou de outra forma mesmo.

Abraço