返回列表下一主題上一主題發帖

[發問] 自動MAIL附加圖片問題尋問

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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