VB - Sending Emails Using Outlook Library

[IceBreakerG]

I'm posting this because I had this problem earlier this week. A program I'm writing for work needed to send an email to everyone in the department when someone triggered a specific event. The email would contain information the user entered into the program as well. This feature will use the Microsoft Outlook 9.0 Object Library to send the email. Because everyone in this department is required to have Outlook open while at work, it fits perfectly with out work enviornment. Please be aware that Outlook Must be running in order for this to work.

To begin, in VB, go to Project, and choose References. Scroll down the list until you see Microsoft Outlook 9.0 Object Library, and check the box, then select ok. You can verify that you have added the Outlook object library to your project by click on View, and select Object Browser, and Under All Libraries, select Outlook.

Next, in the control you want to trigger the email even, enter this code:

'Sets up and sends email
'This will send an email to the given email address.
 
'Create Outlook object variable
Dim objOutlook As Object
 
'Assign Outlook.Application to object variable
Set objOutlook = CreateObject("Outlook.Application")
 
With objOutlook.CreateItem(olMailItem)
     'To: Field of the email
     .Recipients.Add "emailaddress@domain.com"
 
     'Subject: Field of the email
     .Subject = "subject of the email"
 
     'Body of the email
     .Body = "Body of the email"
 
     'Copy message to Outlook Outbox with Send
     .Send
End With
 
'Quits Outlook  *Note this will close out the program, If you want outlook to stay open, then don't use this line of code.
objOutlook.Quit
 
'Release object variable
Set objOutlook = Nothing
 
'*********************************************

Thats it. You can modify it to fit your needs. It worked perfectly for what i needed it to do. Hopefully this will be helpful to you as well