TopPicLogo TopPicText

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


Public Sub SendEMail(vEMailVal As Variant)
'es - 25.10.2013
'--------------------------------------------------------------------
On Error GoTo SendEMail_Err
    
    If Len(vEMailVal) > 3 Then
        DoCmd.SendObject , "", "", vEMailVal, "", "", "", "", True, ""
    End If


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. 25.10.2013
Рейтинг@Mail.ru