שליחת מייל מאקסס - עיצוב html

[Y.Excel.Access]

@ארי לא יודע, אבל כדי לבודד את הבאג:
אני מניח (לפי המשמעות הפשוטה בנוסח השאלה שלך) שהבעיה היא לא בשליחת מייל אלא בקבלת המייל.

יש שתי אפשרויות מהם הבאג נוצר, או מהקוד שלך ב VBA או מHTML.

כדי לבדוק שזה לא מה HTML תוכל לשלוח מייל עם קוד מ Google app script המכיל את הHTML המדובר ולבדוק אם זה עדיין מג'ורבש.

קוד לשימוש ב HTML לשליחת מייל מג'ימייל: https://developers.google.com/apps-script/reference/mail/mail-app#sendemailmessage

[ארי]

@Y-Excel-Access האמת שאני ממש לא יודע איך להסתכל אפילו על Apps Script, אף פעם לא עבדתי עם זה.
אבל שים לב שכשאני פותח את המייל בג'ימייל הוא מוצג בצורה תקינה, רק ב'דואר' של ווינדוס זה ככה.
אולי זה יכול להוביל לפיתרון?

[dovid]

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

[ארי]

דוגמת קוד:

Private Function sendEmail()
Dim cdoConfig
Dim msgOne
Dim Html As String

Html = "<div dir=" & Chr(34) & "rtl" & Chr(34) & ">"
Html = Html & "<div>לכבוד פלוני אלמוני</div>"
Html = Html & "<div>להלן קישור לפורום תחומים.</div>"
Html = Html & "<div><a href=""https://tchumim.com/post/149773"">לחצו כאן למעבר לפורום.</a><br></div>"
Html = Html & "<div><br></div>"
Html = Html & "<div>תודה.<br></div>"
Html = Html & "<div class=" & Chr(34) & "yj6qo" & Chr(34) & "></div><div class=" & Chr(34) & "adL" & Chr(34) & "><br></div></div>"
                
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") = "mygmail@gmail.com"
    .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"
    
    .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 = "yourgmail.com"
msgOne.FROM = "my name <mygmail@gmail.com>"
msgOne.Subject = "mail with html"
msgOne.HTMLBody = Html

msgOne.send

End Function

תודה!

[dovid]

נסה להוסיף לפני השורה של send את אחת משורות אלו:

 msgOne.TextBodyPart.Charset = "utf-8" 
 msgOne.BodyPart.Charset = "utf-8" 

לקחתי מפה: https://stackoverflow.com/q/27420042/1271037
תראה אם זה עוזר.

[ארי]

@dovid לא עזר
תודה.

[dovid]

@ארי נסה גם:

msgOne.HTMLBodyPart.Charset = "utf-8"

[mekev]

@ארי כתב בשליחת מייל מאקסס - עיצוב html:

אם פותחים את המייל בג'ימייל זה נראה מעולה.
הבעיה היא שאם אני פותח אותו בתוכנת דואר של ווינדוס

שאלה:
האם באותו הודעת מייל עצמה
כאשר אתה פותח את הההודעה בדפדן כרום/גיימיל - זה מוצג תקין
ואותה הודעה בדיוק - כאשר אתה פותח אותה באאוטלוק - זה מוצג כסינית?

במידה ואכן כך
אולי הבעיה היא במילה div
שזה CSS ולא HTML טהור
תנסה להחליף אותה

Html = "<th dir=" & Chr(34) & "rtl" & Chr(34) & ">"
Html = Html & "<th>לכבוד פלוני אלמוני</th><br>"
Html = Html & "<th>להלן קישור לפורום תחומים.</th><br>"
Html = Html & "<th><a href = ""https://tchumim.com/post/149773"">לחצו כאן למעבר לפורום.</a><br></th>"
Html = Html & "<th><br></th>"
Html = Html & "<th>תודה.<br></th>"
   

[ארי]

@dovid כתב בשליחת מייל מאקסס - עיצוב html:

@ארי נסה גם:

msgOne.HTMLBodyPart.Charset = "utf-8"

הצליח!
תודה!!

[ארי]

@mekev כתב בשליחת מייל מאקסס - עיצוב html:

@ארי כתב בשליחת מייל מאקסס - עיצוב html:

אם פותחים את המייל בג'ימייל זה נראה מעולה.
הבעיה היא שאם אני פותח אותו בתוכנת דואר של ווינדוס

שאלה:
האם באותו הודעת מייל עצמה
כאשר אתה פותח את הההודעה בדפדן כרום/גיימיל - זה מוצג תקין
ואותה הודעה בדיוק - כאשר אתה פותח אותה באאוטלוק - זה מוצג כסינית?

במידה ואכן כך
אולי הבעיה היא במילה div
שזה CSS ולא HTML טהור
תנסה להחליף אותה

Html = "<th dir=" & Chr(34) & "rtl" & Chr(34) & ">"
Html = Html & "<th>לכבוד פלוני אלמוני</th><br>"
Html = Html & "<th>להלן קישור לפורום תחומים.</th><br>"
Html = Html & "<th><a href = ""https://tchumim.com/post/149773"">לחצו כאן למעבר לפורום.</a><br></th>"
Html = Html & "<th><br></th>"
Html = Html & "<th>תודה.<br></th>"
   

זה לא עזר...
רק המשפט שהוספתי לעיל.

[dovid]

@mekev כתב בשליחת מייל מאקסס - עיצוב html:

אולי הבעיה היא במילה div
שזה CSS ולא HTML טהור

ראשית div זה HTML טהור לגמרי בדיוק כמו th.
(הסיבה שבמייל משתמשים הרבה בtable\dr\dt\th זה בגלל מגבלות הCSS של פעם לנושא העימוד).
שנית, גם אם תכתוב בכלל משהו לא קיים כמו <xyz>אבא<xyz> זה יוצג תקין מבחינת הטקסט, רק העיצוב יסבול.

[Shmuel754]

@ארי
תוסיף לHTML

<meta http-equiv=Content-Type content="text/html; charset=windows-1255">

[ארי]

@Shmuel754 תודה, אבל התשובה כאן פתרה את הבעיה.
תודה לכולם!