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

@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

@clickone אין מאקרו בוורד.
ואני ממזג קובץ אקסל שייוצא מאקסס (בקוד לפני).
תודה.

שלום וברכה.
יש לי קוד למיזוג דואר לקובץ וורד קיים, ומיד פעם קופצה לי ההודעה הזו:

למה זה קורה?

הקוד שלי הוא:

Public Function PrintDocument(FileName As String)
On Error Resume Next
Dim wordApp As New Word.Application
Dim sXlsFile As String

sXlsFile = CurrentProject.Path & "\XlsFile.xlsx"

wordApp.Documents.Open FileName:=FileName, ReadOnly:=True
If Err <> 0 Then MsgBox "התרחשה שגיאה בפתיחת הוורד", vbOKOnly + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading: Exit Function

On Error GoTo 1
With wordApp.ActiveDocument.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource _
        Name:=sXlsFile, _
        SQLStatement:="select * from [Tbl]"
    .Destination = wdSendToPrinter
    .ViewMailMergeFieldCodes = 9999998
    .ShowWizard InitialState:=6, ShowDataStep:=False, ShowTemplateStep:=False
    .SuppressBlankLines = True
    .Execute
End With

1:
wordApp.Quit False
Set wordApp = Nothing
End Function

תודה!