我想要自動用Outlook寄送夾帶文件的Mail,寫法如下
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "xxxx@bbbb.com.tw"
.Subject = "yyyyyy"
.Attachments = App.Path & "tt.log"
.Send
End With
但是在夾帶檔案那段(.attachment)一直錯誤，所以想請問到底應該怎麼寫才對呢
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "xxxx@bbbb.com.tw"
.Subject = "yyyyyy"
.Attachments = App.Path & "tt.log"
.Send
End With
但是在夾帶檔案那段(.attachment)一直錯誤，所以想請問到底應該怎麼寫才對呢
文章標籤
全站熱搜
Attachments = App.Path & "\tt.log"
Jessica你可以修改成如下: With objOutlookMsg .Attachments.Add(app.path & "\tt.log") .Send End With