תחומים - פורום חרדי מקצועי

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

@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 כתב בשליחת מייל מאקסס - עיצוב html:

@ארי נסה גם:

msgOne.HTMLBodyPart.Charset = "utf-8"

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

@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

תודה!

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

@שמעון-חבצלת א. אתה צריך להוסיף לreferences את Microsoft scripting runtime.
ב. אתה יכול ליצור טבלה ובה לשמור את הערך האחרון שמתקבל בכל קריאה.

@Y-Excel-Access ויש איך לתקן את זה?
תודה.

@שמעון-חבצלת סליחה, שכחתי לציין שצריך קוד שממיר Json לאקסס.
תוסיף את הקוד שיש בקובץ המצורף לVBA שלך (בתוך חלון הVBA בצד ימין איפה שכל המודולים, לחיצה על המקש הימני בעכבר ועל ייבוא מקובץ).

JsonConverter.bas

@מלא תוקן.
תודה.

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

מישהו יודע למה זה קורה?
תודה!

@שמעון-חבצלת באירוע בעת לחיצה כפולה אתה שם

me.shekel = me.dollar * GetExchangeRates.sum

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

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

צהריים טובים.
אני מעוניין בקוד שיכול להחזיר לי רשימה של כל הכרטיסיות הפתוחות בדפדפן Edge.
בדפדפן הישן IE היה API שיכל להחזיר את זה, אבל בEdge אין משהו ברור בעניין.
מצאתי כאן שרשור בעניין ובפוסט הזה בשיטה השניה משהו כמו שרציתי.
הבעיה היא שהקוד שם אמנם יכול להחזיר כתובות url פתוחות, אבל רק אם הדפדפן נפתח באמצעות הקוד. ולא הצלחתי לשחק איתו כך שיחזיר את הכתובות שכבר היו פתוחות.
האם מישהו מכיר את הקוד הנ"ל או קוד אחר שיכול להחזיר את הכתובות הפתוחות?
תודה רבה!

@clickone אנסה.
תודה.

@clickone בכל המסמכים.
לפעמיים הוא עובד טוב, ולפעמיים מקפיץ את זה.
רק אחרי שלוחצים לו שיהפוך מאקרו ללא זמין הוא מדפיס את הקובץ כמו שצריך.

@איש-פלוני תגיד, הטופס נפתח בתצוגת טופס או כטבלה?

@איש-פלוני שתי השורות שהבאת הם כל הקוד?
או שיש חלק שאתה לא מראה לנו?

@איש-פלוני מה קורה כשאתה כותב כך:

DoCmd.OpenForm "מחברקודספרברקוד", acFormDS, , "ID = " & ScanValue
Form_מחברקודספרברקוד.מדף.SetFocus