MyTetra Share
Делитесь знаниями!
Отправка E-Mail "Майлером" по умолчанию (DoCmd.SendObject)
19.07.2018
19:43
Раздел: VBA - Access - msa.polarcom.ru - 15 Приложения Внешние


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





Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования