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

[ארי]

דוגמת קוד:

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 תודה, אבל התשובה כאן פתרה את הבעיה.
תודה לכולם!