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

[sn141414]

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

אני מעוניין לשלוח מייל דרך אקסל VBA
אני משתמש בקוד הבא שהעתקתי מתותח אקסל

Set olApp = CreateObject("Outlook.Application")
  Set olNS = olApp.GetNamespace("MAPI")
  Set objFolder = olNS.Folders.GetFirst
  Set OutApp = CreateObject("Outlook.Application")
 
Set OutMail = OutApp.CreateItem(0)
 With OutMail
   .To = "[EMAIL][email protected][/EMAIL]"
   .CC = ""
   .BCC = ""
   .Subject = "Your Subject come here…"
   .Body = "The email body come here…"

   .send
 End With

האם אפשר בגוף ההודעה (Body) במקום לרשום טקסט לתת טווח?
האם אפשר שידביק בגוף ההודעה את הטווח שעשיתי עליו "העתק"?
כשאני בתוך האווטלוק עצמו הוא עושה "הדבק" בגוף ההודעה עם כל העיצובים שבאקסל (כמובן שרק ערכים) כגון גבולות פונטים וכו'
האם יש פקודה במקרו שיעשה הדבק בגוף ההודעה?
תודה

 

[ziv98]

שליחת מייל מעוצב

קיימת אפשרות להפעיל מתוך קוד אפליקציה אחרת, ולדמות הקלדה (sendKeys).
זו שיטה לא מומלצת - כל נגיעה בעכבר עלולה לשבש את הקוד, כמו גם עיכוב בביצוע הפעולה הקודמת.

ניתן לספק ערכים מתוך הגיליון ל - BODY, ולעצב אותו כ - HTML:

קטעי הקוד הבאים מתוך קובץ שאני עובד איתו. משתנים Body, recname, recname2 מתמלאים בתוכן בשלבים מוקדמים יותר. Body למשל מתמלא ב10 שורות תוכן מתוך גיליון, בין שורה לשורה - vbcrlf.

1. בניית משתנה טקסט מתוכן תאים
TXTBody = "לכבוד: " & recName2 & vbCrLf & "מספר ספק : " & recName & vbCrLf & vbCrLf & vbCrLf & Body
2. הוספת תגי HTML - ניתן למצוא באינטרנט דוגמאות לעיצוב HTML

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

השורה האחרונה הופכת crLf (ירידת שורה ב - VB) ל - br (ירידת שורה ב - HTML).

3. הוספה לגוף המייל (במקום BODY)
.htmlBody = strHTML

אני מניח שבקצת מאמץ ניתן לקרוא עיצוב מהתא, ולעצב את ה - HTML בהתאם.
אם מדובר במעט עיצובים (למשל - פונט אדום) - כנראה ששווה מאמץ, מעבר לזה - הייתי בונה טמפלט אחד לכולם.

בהצלחה !

 

[sn141414]

עיצוב כטבלה

תודה על העזרה
בהעתק הדבק זה מגיע עם עיצוב גבולות התא ורקע התא ונראה כמו טבלה
האם אפשר לעשות עיצובים כאלה?

 

[ziv98]

טבלה

בסופו של יום HTML הוא טקסט.
נסה את:
https://www.w3schools.com/html/html_tables.asp
&nbsp

 

[sn141414]

שליחת מייל אקסל VBA כתמונה

האם ניתן לשלוח בגוף ההודעה את תמונת מסך של אקסל?