Attaching PDF to Lotus Notes email. PDF name is variable.

Hi John

thanks for this, I have run this macro and its getting hung up on the create PDF element I had place in for creating the client price PDF.

The following error message is being displayed.

Run-Time error '1004:

Document not saved, the document may be open, or error may have been encountered when saving.

Its creating the email but still not attaching the PDF.

Maybe:

Sub joee74yyy()
    Dim NSession As Object
    Dim NDatabase As Object
    Dim NUIWorkSpace As Object
    Dim Attachment1 As String
    Dim AttachME As Object
    Dim EmbedObj1 As Object
    Dim NDoc As Object
    Dim NUIdoc As Object
    Dim WordApp As Object
    Dim subject As String
    Dim EmailAddress As String
    Dim s(1 To 21) As String
     
    subject = Worksheets("Client Quote").Range("AY8")
    EmailAddress = Worksheets("Client Quote").Range("ay10")
     'Debug.Print subject
     
    Set NSession = CreateObject("Notes.NotesSession")
    Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")
    Set NDatabase = NSession.GETDATABASE("", "")
    If Not NDatabase.IsOpen Then NDatabase.OPENMAIL
     
    Set NDoc = NDatabase.CREATEDOCUMENT
     
    With NDoc
        .SendTo = EmailAddress
        .CopyTo = "test@test.com, " & "test1@test.com, " & "test2@test.com"
                .subject = subject
        s(1) = "Dear" & " " & Worksheets("internal").Range("j10")
        s(2) = ""
        s(3) = "Many Thanks for your enquiry"
        s(4) = ""
        s(5) = "Please find attached your quotation for your request" & " " & " : - " & "'" & Worksheets("internal").Range("j14") & "'"
        s(6) = ""
        s(7) = "If you would like to go ahead with this order, please let  me know and I will send you a template, artwork guidelines and  procedures for processing your order."
        s(8) = ""
        s(9) = "Kind Regards"
        s(10) = ""
        s(11) = Worksheets("sheet3").Range("a58")
        s(12) = Worksheets("sheet3").Range("a59")
        s(13) = ""
        s(14) = "Z-CARD® PocketMedia® Solutions"
        s(16) = ""
        s(17) = Worksheets("sheet3").Range("a61")
        s(18) = Worksheets("sheet3").Range("a62")
        s(19) = ""
        s(20) = "7-11 St. Johns Hill, London, SW11 1TN"
        s(21) = "The PocketMedia® Agency | www.zcard.co.uk"
           
              
        .body = Join(s, vbCrLf) & " "
        
        .Save True, False
    End With
     
    NUIWorkSpace.EDITDOCUMENT True, NDoc
     
        Worksheets("client quote").ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\joeellis\Desktop\Digital Quotes\Client Prices\" & _
        Worksheets("client quote").Range("AY8").Value & ".pdf", _
        OpenAfterPublish:=True

        activeworkbook.save
        
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:\Users\joeellis\Desktop\Digital Quotes\Internal Prices\" & _
        ActiveSheet.Range("BD2").Value & ".pdf", _
        OpenAfterPublish:=False
        
        activeworkbook.save
Attachment1 = "C:\Users\joeellis\Desktop\Digital Quotes\Client Prices\" & _
        Worksheets("client quote").Range("AY8").Value & ".pdf"

If Attachment1 <> "" Then
On Error Resume Next
Set AttachME = NDoc.CREATERICHTEXTITEM("attachment1")
Set EmbedObj1 = AttachME.embedobject(1454, "attachment1", "C:\Users\joeellis\Desktop\Digital Quotes\Client Prices\" & _
        Worksheets("client quote").Range("AY8").Value & ".pdf", "")
On Error Resume Next
End If

    Set NDoc = Nothing
    Set WordApp = Nothing
    Set NSession = Nothing
    Set NSession = Nothing
    Set AttachME = Nothing
    Set EmbedObj1 = Nothing
         
End Sub