[英]How to open a folder to choose which files to attach to email using Excel VBA?
在弄清楚如何提示選擇我要通過電子郵件發送的文件時遇到問題。
Dim olApp As Outlook.Application
Dim diaFolder As FileDialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = "email@email.com"
olMail.Subject = "Subject Line"
olMail.Body = "Body of the Email"
diaFolder.AllowMultiSelect = True
diaFolder.Show
MsgBox diaFolder.SelectedItems
Set diaFolder = Nothing
olMail.Send
你可以試試這個:
Sub sendAttachment()
Dim olApp As Outlook.Application
Dim diaFolder As FileDialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
Dim lngCount As Long
olMail.To = "email@email.com"
olMail.Subject = "Subject Line"
olMail.Body = "Body of the Email"
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
attFilePath = Application.FileDialog(msoFileDialogOpen).SelectedItems(lngCount)
olMail.Attachments.Add (attFilePath)
Next lngCount
End With
olMail.Display
'olMail.Send
End Sub
我希望這能幫到您。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.