Отправка E-Mail "Майлером" по умолчанию (DoCmd.SendObject)

Public Sub SendEMail(sEMails As String, Optional sSubject$ = "", _

Optional sText$ = "", Optional bEditMessage = True)

'es - 23.06.2018

'Справка:

'https://msdn.microsoft.com/ru-ru/vba/access-vba/articles/docmd-sendobject-method-access?f=255&MSPPError=-2147217396

'https://msdn.microsoft.com/en-us/vba/access-vba/articles/docmd-sendobject-method-access

'--------------------------------------------------------------------

On Error GoTo SendEMail_Err

'Предпоследний аргумент: (EditMessage )Редактировать - Нет (Сразу отправить) EditMessage

'Последний аргумент: TemplateFile

DoCmd.SendObject , "", "", sEMails, "", "", sSubject, sText, bEditMessage, ""

SendEMail_Bye:

Exit Sub

SendEMail_Err:

If Err.Number = 2501 Then 'Отмена отправки пользователем

'MsgBox "Отмененно!", vbInformation

Resume SendEMail_Bye

End If

MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"in procedure SendEMail", vbCritical, "Error!"

Resume SendEMail_Bye

End Sub