Envio de email automatizado no Office

Uma necessidade recorrente em projetos de automatização de processos, é o envio de emails para diversos usuários.

Esta tarefa pode ser realizada rapidamente através de qualquer aplicação do Office, inclusive do Outlook :)

Vamos ao Código que é bem simples:

Sub EnviaEmail(EMail As String, Optional FPath As String = vbNullString)

'officevb.com
'desenvolvido por Bruno Leite

    Dim appOutlook As Object

    Dim myMail As Object

    'Verifica se Outlook está aberto. Caso não esteja, criar nova instância

    On Error Resume Next

    Set appOutlook = GetObject(, "Outlook.Application")

    If appOutlook Is Nothing Then

        Set appOutlook = CreateObject("Outlook.Application")

    End If

    On Error GoTo 0

    Set myMail = appOutlook.CreateItem(0) '0 é um item de e-mail

    With myMail

        .to = EMail

        .Subject = StrAssunto

        If FPath <> vbNullString Then

            .Attachments.Add FPath

        End If

        .Body = StrMsg

        .Send

    End With

End Sub

Esta Sub recebe como parâmetro um endereço de email  e um parâmetro opcional com o nome do arquivo para envio como anexo.

As variáveis StrAssunto e StrMsg , são públicas e contém os textos para o assunto e o corpo do email, eles foram preenchidos num formulário anteriormente.