✔ Programação GLOBAL®: anexar

Mostrando postagens com marcador anexar. Mostrar todas as postagens

VBA Lotus Notes - Inserindo arquivo - Insert Attach File

| Blog Office VBA | Blog Excel | Blog Access |

Bem, não tenho o Lotus Notes instalado, este código lhe ensina a anexar:

   Dim AttachME As Object

   Dim EmbedObj1 As Object



' Select Workbook to Attach to E-Mail

   Let notesDocument.SaveMessageOnSend = True

   Let attachment1 = "D:\Bernardes\FileToSend.txt" ' Required File Name

   If attachment1 <> "" Then

   On Error Resume Next

   Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1")

   Set EmbedObj1 = AttachME.embedobject(1454, "attachment1", "D:\Bernardes\FileToSend.txt", "") 'Required File Name

   On Error Resume Next

   End If

Tags: VBA, Lotus Notes, Lotus, atach, anexar

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