VBA, MS Access MS Access в примерах

Отправка 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


Назад ToTop
L.E. 23.06.2018
Рейтинг@Mail.ru