- 帖子
- 60
- 主題
- 12
- 精華
- 0
- 積分
- 106
- 點名
- 0
- 作業系統
- Win 10家用版
- 軟體版本
- Office 2013
- 閱讀權限
- 20
- 性別
- 女
- 來自
- 新北
- 註冊時間
- 2016-1-27
- 最後登錄
- 2024-5-2
|
使用中的檔案傳送到outlook新郵件附件
請教各位大大：
以下vba是自動開啟outlook新郵件，並自動填入收件人，主旨，內文，加上附件等，
但是附件的檔案不會是正在編輯中的資料(而是存檔過的檔案內容)，
A檔是已儲存的檔案，B檔是目前正在開啟編輯中的檔案，執行VBA後，寄出的郵件附檔是A檔，請問要怎麼設定才能將附檔改成B檔呢？
Sub sendmail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Sheets("自動寄郵件").Range("B3")
.CC = ""
.Subject = ActiveWorkbook.Name
.body = "試算表自動寄郵件"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End Sub
謝謝~ |
|
發表於 2024-4-19 14:17
| 
