Send e-mail with attachments from Access
Posted on 2013-11-13
I want to send an e-mail from Access with attachments using a control button, but have the ability to edit the message before it goes.
I am using the code below to send, but cannot fathom out a way of adding code in to edit the message prior to sending.
Can you help please?
Private Sub Command35_Click()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
strAttach = "c:\Databases\pricer\" & Me.Ref & ".pdf"
.BodyFormat = olFormatHTML
.To = Me.e_mail
''.cc = ""
''.bcc = ""
.Subject = "Quotation Ref" & Me.Ref
.HTMLBody = "Please find attached your quotation"