מקרו לשליחת דוא"ל מאקסל

[רפיס9]

מקרו לשליחת דוא"ל מאקסל

Win 10 Excel 2019
אשמח לעזרה במקרו ליצירת הודעת דוא"ל ממקרו באקסל.
יש לי מקרו שעובד, אבל חסרים לי 2 דברים:
1. פירמוט גוף ההודעה לפונט נדרש (נניח Arial 12)
2. יישור טקסט ימינה, עבור העברית...

 

[T o m c o]

יכול להשתמש בפונקציה של מיזוג דואר בWord ששואבת את המידע שלה
מתוך Excel ויכולה לשלוח את זה בדוא"ל דרך Outlook.

 

[ziv98]

עיצוב גוף המייל

כדי לעצב את גוף המייל אתה צריך גוף מסוג HTML.
אתה יוצר טקסט שמייצג מקטע HTML, למשל:

     strHTML = "<P ALIGN=" & Chr(34) & "RIGHT" & Chr(34) & " style=" & Chr(34) & "direction: rtl" & Chr(34) & ">" & TXTBody & "</P>"
     strHTML = Replace(strHTML, vbCrLf, "<br>")

כאשר TXTBody מכיל את הטקסט עצמו.
בהמשך, שאתה מגדיר את המייל, במקום .body צ"ל:

With OutMail
            .To = toMail
            .CC = ccMail
            .BCC = ""
            .Subject = TXTSbjct
            .htmlBody = strHTML

תחת מקטע ה - HTML תוכל לעצב כרצונך, דוגמאות:
https://www.w3schools.com/html/html_examples.asp

 

[רפיס9]

תודה רבה!