/ Snippet Library - View Code

Visual Basic / Outlook Samples / Send Message

Snippet details

ID: 415

Viewed: 1364

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Send a Message with VB and Outlook

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllSub SendMessage(DisplayMsg As Boolean, Receiver As String, Optional AttachmentPath) Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment Dim CallDescription As String ' Create the Outlook session. Set objOutlook = CreateObject("Outlook.Application") ' Create the message. Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg ' Add the To recipient(s) to the message. Set objOutlookRecip = .Recipients.Add(Receiver) objOutlookRecip.Type = olTo ' Add the CC recipient(s) to the message. Set objOutlookRecip = .Recipients.Add("an other person") objOutlookRecip.Type = olCC ' Add the BCC recipient(s) to the message. ' Set objOutlookRecip = .Recipients.Add("Andrew Fuller") ' objOutlookRecip.Type = olBCC ' Add the From recipient(s) to the message. ' objOutlookMsg.SentOnBehalfOfName = "Me Myself and I" ' Set the Subject, Body, and Importance of the message. .Subject = "Replace this String With your subject Or variabele" .Body = "replace this String With your subject Or variabele" .Body = .Body & vbCrLf & "In this manner you can create a body larger than 256 characters" '.Importance = olImportanceHigh 'High importance ' Add attachments to the message. If Not IsMissing(AttachmentPath) Then Set objOutlookAttach = .Attachments.Add(AttachmentPath) End If ' Resolve each Recipient's name. For Each objOutlookRecip In .Recipients objOutlookRecip.Resolve Next ' Should we display the message before sending? If DisplayMsg Then .Display Else .Send End If End With Set objOutlook = Nothing End Sub

No Reviews to show