寫了下面代碼呼叫outlook發郵件，但是想把附件中excel表中的貼圖表中的圖片也放到郵件內，請各位大神幫忙看下該如何修改下面陳述句
Sub Send_Email()
Dim OutlookApp As Outlook.Application
Dim Outlookitem As Outlook.MailItem
Set OutlookApp = New Outlook.Application
Set Outlookitem = OutlookApp.CreateItem(olMailItem)
Receiver = "XX@**.com"
Carbon = "***.com"
SubjectText = "【TDDV日報】"
BodyText = "2222"
AttachedObject = "E:\@資料組共享\交接\TDDV日報\華東TDDV日報.xlsx"
On Error GoTo SendEmail_Error
With Outlookitem
.To = Receiver
.CC = Carbon
.Subject = SubjectText
.Body = BodyText
If AttachedObject <> "" Then
.Attachments.Add AttachedObject
End If
.Send
End With
SendEmail_Exit:
Exit Sub
SendEmail_Error:
MsgBox Err.Description
Resume SendEmail_Exit
End Sub
uj5u.com熱心網友回復：
那可能先要打開AttachedObject的excel檔案，將貼圖SavePicture到本地，比如D:\Temp.jpg然后在.Attachments.Add D:\Temp.jpg
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/66996.html
標籤：VBA
上一篇：求助MSDN案例