Outlook Add Multiple Attachments via file dialog box

[neqkeet]

Hello,

I'm trying to write a code which would add files from a specific folder to currently opened email via file dialog box. Could someone help me with this?

Sub test()


Dim objOutApp As Object, objMail As Object
  Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    Set myItem = Application.ActiveInspector.CurrentItem
    Set myAttachments = myItem.Attachments
    myAttachments.Add ("P:\Work\test.xlsx")
    myAttachments.Add           [U][I][B]<-------- open file dialog box here to select multple files in specific folder[/B][/I][/U]
End Sub