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

[ארי]

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

[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]

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