Sub SendMail()
On Error GoTo Err
Dim objOutlook As New Outlook.Application
Dim objEmail As Outlook.MailItem
Set objEmail = objOutlook.CreateItem(olMailItem)
objEmail.Recipients.Add Me!Text20
objEmail.CC = "someAddress"
objEmail.Subject = "Location Activation Request Approved (" & Me.Location & ")"objEmail.Body = "Mr./Madam," & vbCrLf _
& Me.ReqName & vbCrLf _
& "Good Day," & vbCrLf & vbCrLf _
& "Your request to activate the following location has been approved: " & vbCrLf _
& "================================================= =============" & vbCrLf _
& "Location : " & Me.Location & vbCrLf _
& "Status : " & Me.Status & vbCrLf _
& "================================================= =============" & vbCrLf & vbCrLf _
& "This is an automatic mail message generated by WO-Application." & vbCrLf
objEmail.Display
Exit_Err:
Exit Sub
Err:
MsgBox Err.Description
Resume Exit_Err
End Sub