Attachments

[cmatni]

Hello,

i have in each record a pth into a pdf file, and i want to send several pdf files as an attachment in an e-mail, any on e knows how can i do that ?? thank you

 

[Moniker]

Look here for instructions on how to connect to Outlook and add attachments.

 

[cmatni]

That is a great and very helpfull code, thank you, but i don't know if you can help me with this issue, my case is:
i have a form and a subform, in the subform several records each one contains a pdf file path, when the user clicks on a button, i want the outlook send window to open and automatically attach all the pdf files in the records (may be a loop) and the user fills in the to : email and subject and body and send it , could that be done just the attachments and outlook send window pen ? Thanks

Dim OLApp As New Outlook.Application
    Dim OLMsg As Outlook.MailItem
    
    Set OLMsg = OLApp.CreateItem(olMailItem)
    With OLMsg
        .Recipients.Add "your_email_to_person@their_email_address"
        .Subject = "What you want in the subject line"
        .Attachments.Add Name_of_file_to_attach_if_you_need_to_attach_a_file
        .Body "The_body_text_of_the_email"
        .Send
    End With
    
    MsgBox "Emailing Complete", vbOKOnly + vbInformation, "Email Sent"
    
    Set OLApp = Nothing
    Set OLMsg = Nothing