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