標題: [發問] 自動MAIL附加圖片問題尋問 [打印本頁]

---

作者: rouber590324    時間: 2017-4-13 14:16     標題: 自動MAIL附加圖片問題尋問

DEAR ALL 大大
1.如下VAB 為可自動MAIL附加檔案與MAIL內容抓取Sheet1.Range("A1") Sheet1.Range("A2") Sheet1.Range("A3") 秀出
1.1問題請教.今  Sheet1.Range("A3") 內容=文字數字均可秀出於MAIL之內容中.
    但放置圖檔就無法秀出於MAIL之內容中
1.1.1請問有無辦法將指定位置圖檔自動代到MAIL之內容中
2.煩不吝賜教    THANKS*10000   

Option Explicit

Sub SenddMail()
  Dim oltAPP As Outlook.Application
  Dim myMail As MailItem
  Dim Sender As Long
  Set oltAPP = CreateObject("Outlook.Application")
  Set myMail = oltAPP.CreateItem(olMailItem)
  With myMail
     Application.DisplayAlerts = False
    .To = "[email protected];[email protected]"
    .CC = "[email protected];[email protected]"
    .Attachments.Add "C:\Documents and Settings\N000017371\桌面\出勤-篩選後\上班超時明細表-產設處-7休1確認-日提報表-8日篩選後-2017413.XLS"      '附件(請自行更改路徑)
    .BodyFormat = olFormatPlain
    .Body = "" & Sheet1.Range("A1") & "" & Chr(10) & "" & Sheet1.Range("A2") & "" & Chr(10) & "" & Sheet1.Range("A3") & "" '內容
    .Subject = "" & Sheet1.Range("A4") & "" '主旨
    .Send
  End With
  oltAPP.Quit
  Set oltAPP = Nothing
  Set myMail = Nothing
End Sub

---

作者: hungrn    時間: 2017-4-25 21:56

最快的方式
.Body 改為 .HTMLBody
圖檔改為用連結檔案
"<img src='X:\X.jpg' height=XXX width=XXX>"
height=XXX width=XXX  (設定大小..不輸入也可以)

---

作者: rouber590324    時間: 2017-4-26 13:48

DEAR  hungrn 大大
感謝指導.可代出圖片於MAIL  THANKS*10000

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)