Outlookメールに添付するファイルを選択してから添付する方法

vbaで、Outlookに添付するファイルが入っているファルダまで開き、ファイルを選択してもらって添付する方法を試しているのですが、選択したファイルが添付されません。
そして、添付するファイルが一つではないのでファイルを選択した後にまたフォルダを開かせたいのですが、そのようなことは可能でしょうか。

Dim objOutlook As Outlook.Application
Dim ObjMail As Outliik.MailItem
Dim ws As Worksheet

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutLook.CreateItem(olMailItem)
Set wsMail = ThisWorkbook.Sheets("Sheet2")

With CreateObject("WScript.Shell")
     .CurrentDirectory = "\username\user"
End With

vPath = Application _
.GetOpenFilename _
(FileFilter:="ファイル(*.xlsx;*.xlsm;*xls),*.xlsx;*.xlsm;*.xls" _
, FilterIndex:=2, Title:="ファイル選択"　_
, MultiSelect:=False)
If VarType(vPath) = vbBoolean Then Exit Sub

With wsMail
    <宛先や本文について>
    objMail.Display
End With

Set objOutlook = Nothing

行動規範の内容に同意します

回答1件

ベストアンサー

Application.GetOpenFilename の MultiSelect引数をTrueにすれば複数ファイルを選択できるようになります。

下記のようなコードになります。

vba
1   '前略
2
3    Dim vPaths As Variant
4    vPaths = Application.GetOpenFilename _
5        (FileFilter:="ファイル(*.xlsx;*.xlsm;*xls),*.xlsx;*.xlsm;*.xls", _
6         FilterIndex:=2, Title:="ファイル選択", MultiSelect:=True)
7
8    If Not IsArray(vPaths) Then '複数選択可のときは配列が返る、キャンセルのときは配列でない
9        Exit sub
10        MsgBox "キャンセルされました"
11    End If
12    
13    Dim vPath As Variant
14    For Each vPath In vPath
15        objMail.Attachments.Add(fPath)
16    Next Target
17
18    '後略