title: How to open a folder to choose which files to attach to email using Excel VBA?
body: <p>Having an issue figuring out how to prompt to choose the files I want to email.</p>
  
  <pre><code>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
  </code></pre>