Send Mail From access (VBA Code)

[shmulikharel]

Okay, after many attempts I managed to create options for sending email via Access:

Is necessary to:
1. Outlook program installed on your computer.
2. Add in the "References" the Type "Microsoft Outlook 12.0 object library" ... See More

To Send a single email:

<StartCode>
Dim olApp As Object
Dim objMail As Object

On Error Resume Next 'Keep going if there is an error


Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open


If Err Then 'Outlook is not open
Set olApp = CreateObject("Outlook.Application") 'Create a new instance of Outlook
End If

'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)

With objMail

'Set body format to HTML
.BodyFormat = olFormatHTML
.To = "Your Mail"
.Subject = "Subject"
.HTMLBody = "Text"
.send

End With

MsgBox "Operation completed successfully"

<EndCode>‎

Thanks and good luck everyone!!

[mfisk1]

Many thanks for posting this bit of code - Ive tried loads and this is definately a nice and simple solution that works

One question.....

If i wanted to insert send text with formatting in the body of the email is it simply a case of inserting the HTML Code where .HTMLBody = "Text"?

Many thanks