Send attachement from access (1 Viewer)

[johnc2806]

HI

I have a button when pressed that it sends an email from lotus notes and inputs relevant text etc, however I seem to be struggling on how to have an attachment sent with the email.

So everytime the button is pressed it will attach a word document.

Can anyone help?

Thanks

 

[mattkorguk]

Here's how to do it using Outlook, I'm guessing Lotus has something similar.

Dim oItem As Outlook.MailItem
    message = "Enter the subject to be used for each e-mail message."
    Title = "Email Subject"
    mysubject = InputBox(message, Title)
With oItem 
    .Attachments.Add "YOUR DOC PATH HERE", olByValue, 1, mysubject & "Attachment"
End With