Public Function sendMail(strTo As String, _
strSubject As String, _
strBody As String, _
strFileName As String _
) As Boolean
Dim oOutlookApp As New Outlook.Application
Dim oItemMail As Outlook.MailItem
Set oItemMail = oOutlookApp.CreateItem(olMailItem)
On Error GoTo errHandle
With oItemMail
'.Recipients
.To = strTo
.Subject = strSubject
.Body = strBody
.Attachments.Add (strFileName)
.Importance = olImportanceHigh
.Sensitivity = olPersonal
.Display
End With
sendMail = True
Exit Function
errHandle:
sendMail = False
End Function