With objMail
.To = mSendTo
.From = mSendFrom
If Len(SendccAddr) > 0 Then
.CC = SendccAddr
End If
If Len(SendBccAddr) > 0 Then
.Bcc = SendBccAddr
End If
.Subject = MailSubject
If SendAsHTML Then
.BodyFormat = 0
.MailFormat = 0
End If
.Body = MessageBody
End With