-
@חייםיודלביץ
שולחים עם אובייקט CDO.
בעבר העלתי כאן דוגמאות קוד (זה בתיכנות אקסלוסיבי. אם אין לך מנוי שם תכתוב ואני אדביק כאן את הפונקצייה ששמתי שם [אפשרות אחרת זה לשלם מנוי לפורום הזה. מנסיון - שווה כל שקל])
http://tchumim.com/post/27711 -
@חייםיודלביץ לדעתי תנסה לפחות חודש.
תראה שזה שווה כל שקל. במיוחד אם אתה מתחיל. (אין לי אחוזים שם
)
ה8 ש"ח האלו זה פחות מ2 שקיות חלב בחודש. והזמן שזה יחסוך לך שווה המון.CDO זה האובייקט שדרכו אאוטלוק עובר.
מצ"ב הקודFunction SendMail(sEmail As String, Title As String, sText As String, Optional sFile As String = "") As String On Error Resume Next Dim cdomsg As Object Set cdomsg = CreateObject("CDO.message") With cdomsg.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" .update End With ' build email parts With cdomsg .To = "to@gmail.com" .From = "from@gmail.com" '.sender = .Subject = "Subject" If Me.HtmlBody Then .HtmlBody = sText Else .TextBody = '"the full message body goes here. you may want to create a variable to hold the text" End If If Len(sFile) > 0 Then Dim arr As Variant arr = Split(sFile, ";") For i = 0 To UBound(arr) If Len(arr(i)) > 0 Then If Dir(CStr(arr(i)), vbNormal) <> vbNullString Then .AddAttachment arr(i) End If End If Next End If .Send End With Set cdomsg = Nothing If Err = 0 Then SendMail = "Mail Send" Else SendMail = Err.Description End If End Function -
@clickone ווואו! תודה!
ב to לרשום את הכתובת, אך מה זה From?
אשמח אם תכול להסביר לי קצת על הפרמטרים של הקוד
יש אפשרות גם לצרף קבצים כלומר דוח?
ושוב תודה רבה רבה!!
@חייםיודלביץ
TO זה לאן לשלוח
FROM זה הכתובת שתוצג ככתובת השולחת. לא זוכר כעת כמה זה עובד בגימייל. (בשרתים אחרים זה עובד מצויין)
sFile זה הקובץ לצרף למייל.
אם אתה רוצה לצרף כמה, תפריד בי שמות הקבצים עם נקודה פסיק = ;
שים לב שצריך לשים נתיב מלא לקובץהמייל שלי urivpn@gmail.com
-
@חייםיודלביץ
TO זה לאן לשלוח
FROM זה הכתובת שתוצג ככתובת השולחת. לא זוכר כעת כמה זה עובד בגימייל. (בשרתים אחרים זה עובד מצויין)
sFile זה הקובץ לצרף למייל.
אם אתה רוצה לצרף כמה, תפריד בי שמות הקבצים עם נקודה פסיק = ;
שים לב שצריך לשים נתיב מלא לקובץ -
@חייםיודלביץ
כן.
אתה צריך לייצא את הקובץ לפני לPDF, ואז לתת אותו בפרמטר
דוגמא:Dim ssfile As String ssfile = CurrentProject.Path & "\" & "rptName" & Format(Now, "ddmmyynnss") & ".pdf" sFile = ssfile DoCmd.OutputTo 3, srpt, acFormatPDF, ssfile, False, , , acExportQualityPrintואז תעביר לפונקצייה את sFile
המייל שלי urivpn@gmail.com
-
@חייםיודלביץ
כן.
אתה צריך לייצא את הקובץ לפני לPDF, ואז לתת אותו בפרמטר
דוגמא:Dim ssfile As String ssfile = CurrentProject.Path & "\" & "rptName" & Format(Now, "ddmmyynnss") & ".pdf" sFile = ssfile DoCmd.OutputTo 3, srpt, acFormatPDF, ssfile, False, , , acExportQualityPrintואז תעביר לפונקצייה את sFile
-
@clickone כלומר זה ייצא אותו לתקייה זמנית במחשב, לא בתוך האקסס נכון?
באיזה שורה למקם אותו במודול?
תודה רבה רבה! שימחת אותי מאד בעזרה שלך!
@חייםיודלביץ לתיקייה המקומית שבה נמצא קובץ האקסס.
לפני השליחה של המייל.
אם תעלה קובץ דוגמא אשתדל להוסיף את השורות במקומות הנכונים כדי שתראה איך זה עובד תקין. -
תודה!
בפועל אני רואה שאני בכלל לא מסתדר
מצ"ב הקובץ שאיתו אני מנסה
בטופס פרטי איש קשר הוספתי לחצן "שלח מייל" וכתבתי את הפרמטרים אבל הוא נותן לי שגיאה "שגיאה בהקלדה"
בתודה מראש
0_1542146893129_אנשי קשר.accdb -
תודה!
בפועל אני רואה שאני בכלל לא מסתדר
מצ"ב הקובץ שאיתו אני מנסה
בטופס פרטי איש קשר הוספתי לחצן "שלח מייל" וכתבתי את הפרמטרים אבל הוא נותן לי שגיאה "שגיאה בהקלדה"
בתודה מראש
0_1542146893129_אנשי קשר.accdb@חייםיודלביץ
הנה קובץ מתוקן.
היה שם משהו בפונקצייה שהיה צריך לתקן.
ועוד משהו, שמת בטעות את התווית של המייל, במקום את התיבת טקסט שלו. ולכן זה נפל.
0_1542147635588_1542146896140-אנשי-קשר.accdbהמייל שלי urivpn@gmail.com
-
@חייםיודלביץ
הנה קובץ מתוקן.
היה שם משהו בפונקצייה שהיה צריך לתקן.
ועוד משהו, שמת בטעות את התווית של המייל, במקום את התיבת טקסט שלו. ולכן זה נפל.
0_1542147635588_1542146896140-אנשי-קשר.accdb -
@חייםיודלביץ
לא הוספתי.
כי הבנתי שאתה רוצה קודם לפתור את הבעייה הספציפית הזו.
איזה דוח אתה רוצה לייצא?המייל שלי urivpn@gmail.com
-
@חייםיודלביץ
לא הוספתי.
כי הבנתי שאתה רוצה קודם לפתור את הבעייה הספציפית הזו.
איזה דוח אתה רוצה לייצא? -
@clickone לדוגמא "רשימת אנשי קשר"
תודה רבה על המאמץ לעזור!
@חייםיודלביץ
בבקשה
היו עוד כמה שינויים בקוד שלא תיעדתי.... אבל כעת הקוד נראה לי עובד.
תבדוק עם שם משתמש וסיסמא.
שים לב שכאן עבדתי עם קוד VBA מאחורה.
תעבור עליו ותנסה להבין. זה חשוב.
אם לא, תשאל. יענו לך.
0_1542148424751_1542146896140-אנשי-קשר.accdbהמייל שלי urivpn@gmail.com
-
@clickone תודה רבה רבה על כל ההשקעה!
אני ממש שמח אני כבר מתחיל לראות את המיילים מגיעים לתיבות מייל שאיתם אני בודק! איזה כיף!
שימחת אותי מאד מאד!
את הקובץ האחרון אני ינסה ללמוד כבר מחר .
ושוב תודה רבה! כל הברכות!
-
@חייםיודלביץ
בבקשה
היו עוד כמה שינויים בקוד שלא תיעדתי.... אבל כעת הקוד נראה לי עובד.
תבדוק עם שם משתמש וסיסמא.
שים לב שכאן עבדתי עם קוד VBA מאחורה.
תעבור עליו ותנסה להבין. זה חשוב.
אם לא, תשאל. יענו לך.
0_1542148424751_1542146896140-אנשי-קשר.accdb@clickone זה פשוט עובד מדהים!!
יש אפשרות שהוא לא יתן לי הודעה אחרי כל שליחת מייל, אני פשוט מריץ את זה בלולאה.
זה קשור לשורה הזאת לא?
MsgBox SendMail([כתובת מייל], "טלפון", "מספר טלפון גוף ההודעה", ssfile)תודה רבה רבה
נ.ב. לגבי להרשם לפורום של תכנות, אני הייתי בטוח שאין כזה דבר רק לחודש, היה זכור לי שצריך התחייבות לשנה, אבל אתה צודק לגמרי חפשתי ולא מצאתי את התנאי הנ"ל, אני מתכננן להצטרף לנסיון עוד היום -
@clickone זה פשוט עובד מדהים!!
יש אפשרות שהוא לא יתן לי הודעה אחרי כל שליחת מייל, אני פשוט מריץ את זה בלולאה.
זה קשור לשורה הזאת לא?
MsgBox SendMail([כתובת מייל], "טלפון", "מספר טלפון גוף ההודעה", ssfile)תודה רבה רבה
נ.ב. לגבי להרשם לפורום של תכנות, אני הייתי בטוח שאין כזה דבר רק לחודש, היה זכור לי שצריך התחייבות לשנה, אבל אתה צודק לגמרי חפשתי ולא מצאתי את התנאי הנ"ל, אני מתכננן להצטרף לנסיון עוד היום@חייםיודלביץ אמר בביטול הודעת אזהרה של אאוטלוק בעת שליחת איימיל מאקסס:
זה קשור לשורה הזאת לא?
MsgBox SendMail([כתובת מייל], "טלפון", "מספר טלפון גוף ההודעה", ssfile)תודה רבה רבה
תסיר את המילה
MsgBox. -
@חייםיודלביץ אמר בביטול הודעת אזהרה של אאוטלוק בעת שליחת איימיל מאקסס:
זה קשור לשורה הזאת לא?
MsgBox SendMail([כתובת מייל], "טלפון", "מספר טלפון גוף ההודעה", ssfile)תודה רבה רבה
תסיר את המילה
MsgBox. -
@www נסיתי הוא מחזיר שגיאה השורה נהפכת לאדומה.
@חייםיודלביץ אמר בביטול הודעת אזהרה של אאוטלוק בעת שליחת איימיל מאקסס:
@www נסיתי הוא מחזיר שגיאה השורה נהפכת לאדומה.
במקום זה תכתוב:
Send = -
@חייםיודלביץ אמר בביטול הודעת אזהרה של אאוטלוק בעת שליחת איימיל מאקסס:
@www נסיתי הוא מחזיר שגיאה השורה נהפכת לאדומה.
במקום זה תכתוב:
Send =
