שלום לפורום ,

יש לי דוח מסויים במד הנתונים שלי שאני רוצה שישלח לאימייל מתוך מסד הנתונים שלי.

מצאתי תאפשרות לשלוח אובייקטים (דוח לדוגמא ) ע"י המאקרו sendobject , שם אני בוחר את שם הטופס שאני רוצה לשלוח ואת כתובת האימייל המיועדת..

כרגע יש לי 2 בעיות:
1. איך אני מוסיף פה תנאי לנתונים שישלחו בדוח ?
2. איך אני גורם לו לשלוח את הקובץ לאימייל מתאים ממסד הנתונים..

אני אשמח אם מישהו יוכל לעזור לי, אני כבר דיי הלכתי לאיבוד פה ..

אם יש שאלות נוספות אני אשמח לענות..

תודה !!!

ברוך הבא!

אני לא מבין מה אתה מנסה לעשות. לישלוח דוח לאימייל?
1. איזה תנאי? דוח זה דוח :-)
2. על מנת שאוכל (אולי) לענות, תיצתרך להשיב לשאלה ששאלתי בהתחלה.

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

המאקרו המדובר של שליחת אובייקט אכן שולח את הדוח בלחיצת כפתור, אבל , אני יכול להכניס כתובת אימייל של היעד רק ידנית כשאני עורך את המאקרו ( או ככה נראה לי לפחות תקנו אותי אם אני טועה).

בקשר לתנאי נראה לי שהיסתדרתי , הוספתי אותו בשאילתה של הדוח עצמו..

מקווה שזה עושה קצת סדר

על מנת לעשות קוד דימאנמי, תיצתרך ליקרא לו דרך קוד.

הנה דוגמא:

קוד:

 DoCmd.SendObject acSendTable, "tbl1", , "Email", "copy", "hidden_copy", "Titel" 

ויש שם עוד פרמתרים. תעבור עליהם...

אין לי כלכך מושג בכתיבת קוד,
איך אני מכניס את שם הטבלה והרשומה שלי שם ? כי כשאני מכניס את זה כמו שאני כותב באקסס זה לא ממש הולך..

לא הבנתי מה הבעיה. אתה כותב בערך tbl1 את שם התבלה או שם השאילתא...

נניח ואני עושה ככה:

DoCmd.SendObject acSendTable, "לקוחות", , "Email", "copy", "hidden_copy", "Titel"

זה השם של הטבלת לקוחות, איך אני מייצג את הרשומה ספיציפית של האימיל?

הוא ישלך לך לאימייל את כל תבלת לקוחות. בשדה Email תיכתוב לו לאן לישלוח. (וכדי שזה יהיה דינאמי, אתה יכול לכתוב קוד קצר ששואב את הנתונים מתיבת טקסט או ישירות מהמסד.)
בשדה copy אתה כותב לו אימיל שישלך העתק אילו.
בשדה hidden_copy אתה כותב אימייל שישלך העתק מוסתר.
ובשדה Titel אתה כותב את כותרת המייל.
במידה ואתה מדלג על שדה מסויים, פשוט תעשה ",," (בלי הגרשים)
דוגמא:

קוד:

DoCmd.SendObject acSendTable, "tbl1", , "Email", , "hidden_copy", "Titel"

ואם אתה לא צריך את השדות הבאים, פשוט תימחק את המחרוזת עד שם.
דוגמא:

קוד:

DoCmd.SendObject acSendTable, "tbl1", , "Email" 

בהצלחה!

"וכדי שזה יהיה דינאמי, אתה יכול לכתוב קוד קצר ששואב את הנתונים מתיבת טקסט או ישירות מהמסד.)
בשדה copy אתה כותב לו אימיל שישלך העתק אילו."
אתה גורם לזה להישמע כלכך פשוט ...

אני יכול לכתוב קוד בSQL כמו באקסס ?

נניח:

SELECT לקוחות.[אי-מייל], לקוחות.[מספר לקוח]
FROM לקוחות
WHERE (((לקוחות.[מספר לקוח])=[Forms]![priceoffer]![priceoffer_client]));

ציטוט:

אתה גורם לזה להישמע כלכך פשוט

אני לא מבין מה הבעיה. זה באמת פשוט. דוגמא:

קוד:

 Dim rst As Recordset 'הגדרת משתנה רקורדסט
	Dim IntNamID As Integer 'משתנה שאומר את המספר הסידורי של המיילים
	IntNamID = 3 'המיספר הסידורי של המיל
 
	'הגדרה קבועה של שאילתה
	Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl1 where ID=" & IntNamID, dbOpenDynaset) 'פתיחת טבלה או שאילתה מהקובץ הנוכחי
	DoCmd.SendObject acSendTable, "tbl1", , rst("Email"), , "hidden_copy", "Titel"

תשים לב!
1. אתה כמובן צריך לשנות את השאילתא לשאילתה מתאימה.
2. אני שם לב, שבדוגמא שלך, אתה משתמש בשדות ותבלאות בעיברית!.
שתדע לך, שזה אסור בהחלט!.
3. איפה שכתוב rst("Email") אתה כמובן צריך לשנות את ה-Email לשם של השדה אימיל שלך...