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

מחשבים ותוכנות > תוכן מקצועי

<<< פרויקט מיוחד - סיכום תשפ"א בקהילת הכתיבה >>>
'מה כבר עשינו?' - פרויקט סיכום השנה - וואו. איזו שנה שזו הייתה, תשפ"א. היה לנו בחירות, היו חילופי שלטון בישראל, בארה"ב ובאירן, הייתה קורונה...
אוטומציה עסקית שתניב לכם הרבה כסף!
אם יש משהו מיוחד במכללת פרוג ובמנהל המוערך שלו זה בעיקר היכולת לזהות מגמות בשוק צעד אחד לפני כולם. בהיסטוריה של פרוג נפתחו כמה קורסים שרבים...
הקמפיין האדיר להרמת קרן הזוה"ק בעולם - מגיע לפעילות שיא בימים אלה
חיים קוטלר אחרי הכנות קדחתניות וערבי רתימה סוחפים, עם מאות שגרירים נאמנים ונמרצים, הקמפיין האדיר 'מאירים בקדושה - נושאים בעול הפצת הזוה"ק בעולם'...
שמחונים ממליצה: שש מתנות נהדרות לראש השנה ולחגי תשרי
מציאות החיים ההפכפכה של התקופה התקופה האחרונה מבלבלת את כולנו. אף אחד לא יודע אם נחגוג את החג ביחד עם המשפחה המורחבת או לבד עם המשפחה הגרעינית, אם...
אני מעוניין שבעת הפעלת מאקרו EMailDatabaseObject
1. פלט הקובץ (PDF) יקבל שם משמעותי מטבלת הנתונים, ולא את שם הדוח
2. שבנושא במייל, גם יופיע שם משמעותי מטבלת הנתונים, ולא טקסט קבוע

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

אפר

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

Rרחמים

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

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

Rרחמים

יעקובוב פיתוח תוכנה
מנוי פרימיום
מוזיקה ונגינה
איור וציור מקצועי
עיצוב גרפי
עריכה תורנית
פיתוח / אפיון / עיצוב אתרים
עימוד ספרים
@אפר @שם מקורי? נו שוין
לגבי 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
 

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

שיתוף ציורי דיוקן שציירתי לאחרונה
היי לכל המאיירים/ות המוכשרים פה בפורום. טוב, שמי איריס ג’פרי, והאמת שאני די ישנה, אבל גם די חדשה כאן כיוון שזו הפעם הראשונה שמשתפת פה. מצרפת פה...
5.00 star(s) 3 דירוגים
אוהבים לגוון את החג?
בכל הנוגע לארוחות חג, האנושות מתחלקת לשניים. למחצית מהאנשים אין בעיה לחזור על האוכל המוכר והמסורתי במשך כל ארוחות החג, ואילו אנשי המחצית השניה...
<<< פרויקט מיוחד - סיכום תשפ"א בקהילת הכתיבה >>>
'מה כבר עשינו?' - פרויקט סיכום השנה - וואו. איזו שנה שזו הייתה, תשפ"א. היה לנו בחירות, היו חילופי שלטון בישראל, בארה"ב ובאירן, הייתה קורונה...
עלילות מד"א והברסלבים, סיפור אקשן בהמשכים. פרקים ראשונים
פרק 1 - ידיעה חדשותית חולי קורונה מאומתים חזרו מאומן עם אישורים מזוייפים – ונעצרו בנתב"ג מתוך עשרות אלפי החסידים שנסעו לשהות במהלך ימי ראש השנה...

דירות לחגים

המספרים של פרוג:

337,452

משתמשים נכנסו לפרוג בחודש האחרון

1

משתמשים מבקרים ברגע זה באתר

4,986

הודעות נכתבו בממוצע ליום בחודש האחרון

לוח נדל"ן | למכירה והשכרה

לוח דרושים

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