עזרה באקסס שם קובץ/נושא במייל - מנתון בטבלה

אני מעוניין שבעת הפעלת מאקרו EMailDatabaseObject
1. פלט הקובץ (PDF) יקבל שם משמעותי מטבלת הנתונים, ולא את שם הדוח
2. שבנושא במייל, גם יופיע שם משמעותי מטבלת הנתונים, ולא טקסט קבוע

לדוגמא:
אני שולח הזמנות ייצור לספק
כאשר כל הזמנה - כוללת מפרט שונה (ייצור כוסות עם לוגו של מיר, ייצור כוסות עם לוגו של סנו, וכד')
ואני רוצה שהוא יראה כבר בנושא את שם העבודה, וגם בהורדת הקובץ לא יידרס קובץ קודם בעל אותו שם
 

Rרחמים

משתמש סופר מקצוען
עיצוב גרפי
איור וציור מקצועי
מוזיקה ונגינה
עריכה תורנית
D I G I T A L
עימוד ספרים
אני מעוניין שבעת הפעלת מאקרו EMailDatabaseObject
1. פלט הקובץ (PDF) יקבל שם משמעותי מטבלת הנתונים, ולא את שם הדוח
2. שבנושא במייל, גם יופיע שם משמעותי מטבלת הנתונים, ולא טקסט קבוע

לדוגמא:
אני שולח הזמנות ייצור לספק
כאשר כל הזמנה - כוללת מפרט שונה (ייצור כוסות עם לוגו של מיר, ייצור כוסות עם לוגו של סנו, וכד')
ואני רוצה שהוא יראה כבר בנושא את שם העבודה, וגם בהורדת הקובץ לא יידרס קובץ קודם בעל אותו שם
עיין כאן
 

Rרחמים

משתמש סופר מקצוען
עיצוב גרפי
איור וציור מקצועי
מוזיקה ונגינה
עריכה תורנית
D I G I T A L
עימוד ספרים
@אפר @שם מקורי? נו שוין
לגבי 2, תנסה לעשות עותק לדוח ולתת לו את השם הרצוי, ואז לשלוח את העותק במייל על ידי EMailDatabaseObject, זו לא דרך המלך אבל סוג של פיתרון.
 
נערך לאחרונה ב:

יאיר משה

משתמש פעיל
מנוי פרימיום
בוגר/תלמיד פרוג
אתה יכול להשתמש בקוד הזה

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

בהצלחה
 

אפר

סתם מתעניין...
מנוי פרימיום
אתה יכול להשתמש בקוד הזה

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

בהצלחה
1608549034714.png
 

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט א'

א אַשְׁרֵי תְמִימֵי דָרֶךְ הַהֹלְכִים בְּתוֹרַת יְהוָה:ב אַשְׁרֵי נֹצְרֵי עֵדֹתָיו בְּכָל לֵב יִדְרְשׁוּהוּ:ג אַף לֹא פָעֲלוּ עַוְלָה בִּדְרָכָיו הָלָכוּ:ד אַתָּה צִוִּיתָה פִקֻּדֶיךָ לִשְׁמֹר מְאֹד:ה אַחֲלַי יִכֹּנוּ דְרָכָי לִשְׁמֹר חֻקֶּיךָ:ו אָז לֹא אֵבוֹשׁ בְּהַבִּיטִי אֶל כָּל מִצְוֹתֶיךָ:ז אוֹדְךָ בְּיֹשֶׁר לֵבָב בְּלָמְדִי מִשְׁפְּטֵי צִדְקֶךָ:ח אֶת חֻקֶּיךָ אֶשְׁמֹר אַל תַּעַזְבֵנִי עַד מְאֹד:
נקרא  27  פעמים

לוח מודעות

למעלה