Sub 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 |