VBA Outlook - Anexando arquivo ao email - Attaching files to MS Outlook email item using VBA

Termo de Responsabilidade 

Você sempre quis saber como anexar um arquivo a um email do MS Outlook usando o VBA? 

Este pequeno código faz exatamente isso, sem muita complicação.

Lembre-se, entretanto, que vai precisar instalar as referências para o MS Outlook para que ele trabalhe bem. Este código foi testado no MS Outlook 2007, 2003 e 2002. Divirta-se!

Sub Sample()

  Dim oOutlook As Outlook.Application

  Dim oEmailItem As MailItem

  On Error Resume Next

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

  If oOutlook Is Nothing Then Set oOutlook = CreateObject("Outlook.Application")

  Set oEmailItem = oOutlook.CreateItem(olMailItem)

  With oEmailItem

    .Attachments.Add "C:\Bernardes.doc"

    .To = "bernardess@gmail.com"

    .Display

  End With

  Set oEmailItem = Nothing

  Set oOutlook = Nothing

End Sub

Referências: 

Tags: VBA, Outlook, email, anexar,