שליחת מייל מאקסס - עיצוב 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, אף פעם לא עבדתי עם זה.
אבל שים לב שכשאני פותח את המייל בג'ימייל הוא מוצג בצורה תקינה, רק ב'דואר' של ווינדוס זה ככה.
אולי זה יכול להוביל לפיתרון? -
דוגמת קוד:
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תודה!
-
@ארי כתב בשליחת מייל מאקסס - עיצוב 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>" -
@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>"זה לא עזר...
רק המשפט שהוספתי לעיל. -
@mekev כתב בשליחת מייל מאקסס - עיצוב html:
אולי הבעיה היא במילה div
שזה CSS ולא HTML טהורראשית div זה HTML טהור לגמרי בדיוק כמו th.
(הסיבה שבמייל משתמשים הרבה בtable\dr\dt\th זה בגלל מגבלות הCSS של פעם לנושא העימוד).
שנית, גם אם תכתוב בכלל משהו לא קיים כמו <xyz>אבא<xyz> זה יוצג תקין מבחינת הטקסט, רק העיצוב יסבול.
