אתה יכול להשתמש בקוד הזה
Private Sub פקודה276_Click()
On Error GoTo פקודה276_Err
Response = MsgBox("אתה עומד לשלוח מייל ללקוח, המתן לקבלת אישור אחרי שליחת המייל, האם ברצונך להמשיך?", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "שליחת דו'ח במייל")
If Response = vbYes Then
DoCmd.RunSavedImportExport "כאן תייצא לקובץ PDF את הדוח שאתה רוצה"
Dim cdoConfig
Dim msgOne
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
cdoConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
cdoConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
cdoConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/sendusername") = כותובת המייל שלך
cdoConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/sendpassword") = סיסמת המייל שלך
cdoConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
cdoConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Update
End With
Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = כתובת המייל שלך הנמען
msgOne.FROM = "<
לא ניתן לפרסם מיילים באופן פומבי>"
msgOne.Subject = כותרת המייל
msgOne.TextBody = "המלל המייל"
msgOne.AddAttachment "מיקום הדוח"
msgOne.Send
MsgBox "נשלח בהצלחה", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "שליחת דואר אלקטרוני"
End If
פקודה276_Exit:
Exit Sub
פקודה276_Err:
MsgBox "ההודעה לא נשלחה, בדוק את חיבור האינטרנט ואת פרטי הדואר של הלקוח", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "שליחת דואר אלקטרוני"
Resume פקודה276_Exit
End Sub
בהצלחה