שליחת מייל באקסס באופן אוטומטי, וזיהוי כשהמחשב מתחבר לרשת

[איש פלוני]

שלום וברכה,
אני משתמש בתוכנת אקסס לקיטלוג.

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

יש אפשרות כזו?

תודה רבה

[איש פלוני]

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

https://tchumim.com/topic/2784/איך-כותבים-בvba-קוד-לשליחת-אימייל-ישירות-מהאקסס

https://tchumim.com/topic/1269/תוכנה-לשליחת-אימיילים

אודה מאוד למי שיוכל לעדכנני האם יש שם פיתרון ומהו

[by6199]

פוסט זה נמחק!

[חייםיודלביץ]

@איש-פלוני אמר בשליחת מייל באקסס באופן אוטומטי, וזיהוי כשהמחשב מתחבר לרשת:

שלום וברכה,
אני משתמש בתוכנת אקסס לקיטלוג.

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

יש אפשרות כזו?

תודה רבה

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

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

זה קוד לבדיקה האם המחשב מחובר לאינטרנט

[OdedDvir]

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

https://wellsr.com/vba/2020/excel/vba-send-email-with-gmail/

ב. כדי לבדוק אם המחשב מחובר לאינטרנט, ניתן להשתמש בקריאה ל-API. תדביק במודל חדש:

Private Declare PtrSafe Function apiInternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" ( _
                                 ByVal lpszUrl As String, _
                                 ByVal dwFlags As Integer, _
                                 ByVal dwReserved As Integer) As Boolean

Public Function InternetCheckConnection(Optional url As String = "http://www.google.com/") As Boolean
    InternetCheckConnection = apiInternetCheckConnection(url, 1, 0)
End Function

הערה: זכור לי שראיתי היכן שהוא שהקוד הנ"ל נזנח, אבל בשביל פתרון מהיר ומלוכלך שעובד - זה מספיק.

[אפר שריפה]

@OdedDvir לגבי הסיסמה
ניתן להגדיר אימות דו שלבי ולהשתמש בסיסמה לאפליקציה ואז אין צורך בהרשאה נמוכה ואין בעיות

[חייםיודלביץ]

@אפר-שריפה אמר בשליחת מייל באקסס באופן אוטומטי, וזיהוי כשהמחשב מתחבר לרשת:

@OdedDvir לגבי הסיסמה
ניתן להגדיר אימות דו שלבי ולהשתמש בסיסמה לאפליקציה ואז אין צורך בהרשאה נמוכה ואין בעיות

תודה רבה הפתרון הזה זה ממש עזר לי היום!

היום נכנס לתוקף החסימה של גוגל

כאן נמצא ההסבר של גוגל איך אפשר לפתור את הבעיה שביטול ההרשאה ברמת אבטחה נמוכה בוטל
וכאן יש הסבר עם תמונות בקישור של @OdedDvir הביא