שמירת שאילתא באקסס

[ארי]

@one1010 זה ממש לא תקין.
אם אתה רוצה שלא רק יתנו לך בכפית אלא גם יאכילו אותך, ואתה לא רוצה להעלות את הקובץ שלך לכאן. אתה יכול לייצא רק את המודול VBA לקובץ ואתו להעלות.
ככה אולי @מלא ירצה לעזור לך יותר...
תעמוד בחלון הVBA על הטופס שבו נמצא הקוד הנ"ל, תלחץ על מקש ימני, ואז על Export File, ותשמור אותו במחשב.
לאמח"כ תעלה לכאן את הקובץ הזה, ונראה אם יהיה קל יותר לעזור לך.

[one1010]

@ארי ככה?:
Form_SearchPage2.cls

[ארי]

@one1010 בדיוק

[one1010]

@ארי זה קובץ נקי בלי ההוספות של @מלא

[ארי]

@one1010 שמתי לב, עדיף ככה.

[ארי]

מצורף קובץ חדש.
תמחק את המודול הישן, ואז תעלה את החדש לתוכנה (מקש ימני כנ"ל ואז Impot File).
מקווה שיעבוד.
יש לך כמה מקומות שאתה צריך לעדכן בקוד של השליחת מייל, אתה צריך להכניס את הכתובת מייל שלך והסיסמא שלך, וגם את הכתובת מייל של המייל שאליו אתה רוצה שהמייל יישלח (זה יכול להיות אותו מייל שממנו נשלח).

השינויים הם בשורות הבאות:
להכניס את הכתובת מייל שלך (במקום YourEmail@gmail.com) :

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"

את הסיסמא (במקום YourPasswoed) :

    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"

את המייל של הנמען (במקום "To name SendTo@gmail.com" תכתוב פשוט את הכתובת מייל (מוקפת בגרשיים כמובן) :

msgOne.To = "To name <SendTo@gmail.com>"

את המייל שלך שוב (במקום Your Name YourEmail@gmail.com) :

msgOne.From = "Your Name <YourEmail@gmail.com>"

בהצלחה

form_searchpage2.cls

[one1010]

@ארי אפרופו כפית של זהב ולהאכיל...:

אני מקבל את זה כשאני מייבא כפי שהסברת

[ארי]

מחקת את הישן לפני?

[one1010]

@ארי בפעם הראשונה לא...
אבל אחרי שקיבלתי שגיאה כן, למחוק אתה מתכוון את התוכן של הקוד או את כל הטופס עצמו? [כי לא מצאתי אופציה למחוק את הכל]

[ארי]

טעות שלי, זה מודול של טופס ולכן א"א למחוק אותו.
פשוט תמחק את כל התוכן שלו, ותעשה העתק הדבק לתוכן שיש בקובץ ששלחתי.

[one1010]

@ארי עשיתי אפי שאמרת, כרגע אין שגיאה.
בהזדמנות קרובה אבדוק האם זה מבצע את הפעולות בפועל ואעדכן
תודה רבה!!

[one1010]

@ארי מקבל את השגיאה הבאה כשהמילה CLASS בשורה הראשונה מודגשת

[ארי]

תמחק את ה9 שורות הראשונות (עד השורה הכחולה שמתחילה בOption).

[one1010]

@ארי צודק...
נראה שהמבנה של הקוד תקין, אבל אני מקבל הודעה "התרחשה שגיאה במהלך שליחת המייל"

איך אני יכול לבדוק במה הבעיה?

[ארי]

תחליף את הפונקציה האחרונה במודול שלך (Send) לזה:

Public Function Send(strBodyText) as string
'on error goto SendErr
Dim cdoConfig
Dim msgOne
Dim ErrStr
 
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPasswoed"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Update
End With
 
Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
 
msgOne.To = "To name <SendTo@gmail.com>"
msgOne.From = "Your Name <YourEmail@gmail.com>"
msgOne.Subject = "בוצע חיפוש"
msgOne.TextBody = strBodyText
msgOne.Send
 
send = "השליחה בוצעה בהצלחה"
exit function

SendErr:
send = "התרחשה שגיאה במהלך שליחת המייל"
End Function

[one1010]

@ארי יש פתרון פשוט לכך שכשאני מעתיק מכאן הוא מודבק ב2 שורות ארוכות?

[ארי]

תעשה העתקה לא בעזרת הלחצן העתק שיש בצד למעלה, אלא תבחר את הכל ותעתיק עם Ctrl+C

[one1010]

@ארי עזר! [עזר גם שהמילים בעברית לא מתחלפות לסימני שאלה...]
עכשיו אבל אני לא מקבל שום הודעה- לא על שגיאה ולא על הצלחה, יכול להיות שאורך לו זמן ועד שהוא שולח בפועל הוא לא מודיע כלום?!