שליחת מייל דרך האקסס האם אפשרי???

[avi rz]

רגע,
זה נראה שהשאלה הייתה על אקסל על ה desktop - של מייקרוסופט.
וההצעה הייתה ל googleSheets + appScript
אגב, אני גם משתמש בזה כבר המון זמן חוסך הרבה, עבור שליחת חשבוניות וכו'.
לגבי השאלה:
אם אתה משתמש באאוטלוק -אז יש אפשרות להוסיף מיילים לשליחה לאאוטלוק וזה גם אמור לעבוד חלק.
או באמת לעבור ל GoogleSheets
בהצלחה.

[צדיק תמים]

@avi-rz כתב בשליחת מייל דרך האקסס האם אפשרי???:

זה נראה שהשאלה הייתה על אקסל על ה desktop - של מייקרוסופט.
וההצעה הייתה ל googleSheets + appScript

לא
גוגל סקריפט כאן משמש כ"שרת בקאנד" שאפשר לשלוח אליו בקשה מהאקסל המקומי והוא שולח מייל

[אוריי]

@יהודי-טוב
תודה רבה אין מילים עובד מעולה....
וישר כח עצום ל @Mordechai-0 על העזרה הענקית בפרטי

[אוריי]

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

[יהודי טוב]

בעיקרון אם חוזר לך "error" זה אומר שהוא נתקל בשגיאה.

אבל הבעיה אצלך היא בשלב לפני..

הבקשה לא מגיעה לשם בכלל.

אתה צריך אצלך בקוד לבדוק שאם לא חוזר תגובה (כרגע חוזר סטרינג ריק - אתה יכול לכתוב שם משהו כמו OK) אז תתריע למשתמש.

[Mordechai 0]

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

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

שים לב הקוד שנתתי לך בולע שגיאות

[אוריי]

@Mordechai-0
הנה הקוד שנתת לי בתור פונקציה

Public Function email() As String

    Dim toAddress As String
    Dim subjectText As String
    Dim bodyHtml As String
    Dim token As String
    Dim url As String
     
    toAddress = "123456789@gmail.com"
    subjectText = "hi"
    bodyHtml = "hi"
    token = "123456789"
    url = "https://script.google.com/macros/s/"
     
    On Error Resume Next
     
    With CreateObject("MSXML2.XMLHTTP")
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/json"
        .Send "{""to"":""" & toAddress & """,""subject"":""" & subjectText & """,""body"":""" & bodyHtml & """,""token"":""" & token & """}"
        .abort
    End With
   email = "???"
   
    On Error GoTo 0

End Function

איך אני יכול לקבל את ה error (התשובה מהסקריפט) בחזרה?

[יהודי טוב]

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

איך אני יכול לקבל את ה error (התשובה מהסקריפט) בחזרה?

הכי פשוט לשאול את אחד הAIים.

[יהודי טוב]

@אוריי שאלתי בשבילך

ובכל אופן תנסה את הקוד הזה:

Public Function email() As String
    Dim toAddress As String
    Dim subjectText As String
    Dim bodyHtml As String
    Dim token As String
    Dim url As String
    Dim http As Object
    
    ' פרטי ההודעה
    toAddress = "123456789@gmail.com"
    subjectText = "hi"
    bodyHtml = "hi"
    token = "123456789"
    url = "https://script.google.com/macros/s/"
    
    On Error GoTo ErrHandler
    
    ' יצירת אובייקט HTTP
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' פתיחת הבקשה
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/json"
    
    ' שליחת הנתונים
    http.Send "{""to"":""" & toAddress & """,""subject"":""" & subjectText & """,""body"":""" & bodyHtml & """,""token"":""" & token & """}"
    
    ' בדיקת קוד סטטוס
    If http.Status <> 200 Then
        Err.Raise vbObjectError + 1, "email", "השרת החזיר קוד שגיאה: " & http.Status
    End If
    
    ' החזרת תגובת השרת
    email = http.responseText
    Exit Function
    
ErrHandler:
    email = "שגיאה: " & Err.Description
End Function

[אוריי]

@יהודי-טוב ישר כח!
גילוי נאות: אין לי כרגע גישה לai ולכן שאלתי כאן.
הקוד שהבאת לי שולח מיילים אבל... תמיד מחזיר שגיאה Access is denied. אבל המייל מגיע לייעדו.
למה זה קורה..
אני משתמש בסקריפט שכתבת כאן וכן בקוד ומחזיר שגיאה...

[Mordechai 0]

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

@יהודי-טוב ישר כח!
גילוי נאות: אין לי כרגע גישה לai ולכן שאלתי כאן.
הקוד שהבאת לי שולח מיילים אבל... תמיד מחזיר שגיאה Access is denied. אבל המייל מגיע לייעדו.
למה זה קורה..
אני משתמש בסקריפט שכתבת כאן וכן בקוד ומחזיר שגיאה...

בגלל זה נתתי לך קוד שבולע שגיאות.
"Access is denied" זו שגיאה מקומית, לא קשורה לשרת של גוגל.
לא בטוח למה זה קורה — אולי צריך יותר הרשאות, ואולי אם תריץ כמנהל זה יסתדר.

[ליבל]

לדעתי לא כדאי להשתמש עם גיימיל זה נהייה מסובך יותר לאחרונה
תנסה לשלוח מיילים עם SMTP

[אוריי]

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

@ליבל כתב בשליחת מייל דרך האקסס האם אפשרי???:

תנסה לשלוח מיילים עם SMTP

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

[אוריי]

לאחר 3 שעות של סחור סחור עם gpt והשגיאות הרבות שלו הצלחתי בס"ד למצוא את הבעיה...
וכעת הכל עובד מעולה!!!!!!!!!!!!
@יהודי-טוב @Mordechai-0 ישר כח עצום!!!!!!!!
היה בעית אבטחה עם הספריה שהוא (gpt) גופא הביא לי ולמעשה צריך לשלוח עם הספריה הבאה

    Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")

שהיא משתמשת ב https ולא http כמו הספרייה הבאה

 Set http = CreateObject("MSXML2.XMLHTTP")

וע"כ

תמיד מחזיר שגיאה Access is denied. אבל המייל מגיע לייעדו.

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

[ליבל]

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

יש לך דרך ברורה איך לעשות את זה... או נסיון ותהייה..

אין לי דרך ברורה, אבל אני יודע ש SMTP\POP מסובך בגיימיל

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

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

נכון עשיתי פעם כבר לא זוכר איך

[חגי]

@ליבל כתב בשליחת מייל דרך האקסס האם אפשרי???:

תנסה לשלוח מיילים עם SMTP

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