我有一個 vbs 腳本，用于將檔案夾中的檔案添加為電子郵件的附件，然后通過 Outlook 自動發送。效果很好。
我無法弄清楚的問題是如何將同一檔案夾中的 2 個檔案添加到 1 封電子郵件中。我一直在嘗試幾件事，但我唯一能夠管理的是在一封電子郵件中添加兩次“檔案 1”，在另一封電子郵件中添加兩次“檔案 2”。
我對此完全是新手，所以如果這是一些我無法弄清楚的簡單解決方法，我深表歉意。
theFolder = "folder location"
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder(theFolder).Files
SendEmail objFSO.GetAbsolutePathName(objFile)
Next
Set objFSO = Nothing
Sub SendEmail(theFileName)
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.To = "emailaddress"
objMail.cc = ""
objMail.Subject = "subject"
objMail.Body = "body"
objMail.Attachments.Add(theFileName)
objMail.Send
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
uj5u.com熱心網友回復：
將檔案夾名稱作為引數傳遞：
theFolder = "folder location"
SendEmail theFolder
Sub SendEmail(folderName)
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.To = "emailaddress"
objMail.cc = ""
objMail.Subject = "subject"
objMail.Body = "body"
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder(folderName).Files
objMail.Attachments.Add(objFile.Path)
Next
objMail.Send
Set objMail = Nothing
Set objOutlook = Nothing
Set objFSO = Nothing
End Sub
uj5u.com熱心網友回復：
您需要Attachments.Add()為檔案夾中的每個檔案呼叫 。因此，您的代碼可能如下所示：
theFolder = "folder location"
Sub SendEmail()
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.To = "emailaddress"
objMail.cc = ""
objMail.Subject = "subject"
objMail.Body = "body"
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder(theFolder).Files
objMail.Attachments.Add(objFSO.GetAbsolutePathName(objFile))
Next
objMail.Send
Set objMail = Nothing
Set objOutlook = Nothing
Set objFSO = Nothing
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/428118.html
下一篇：C#打開outlook郵件視窗