質問編集履歴

1

内容の変更

2020/10/18 05:20

投稿

karin10
karin10

スコア34

test CHANGED
File without changes
test CHANGED
@@ -1,4 +1,4 @@
1
- vbaで、Outlookに添付するファイルが入っているファルダまで開き、ファイルを選択してもらって添付する方法をShellで試しのですが、まず開かないです
1
+ vbaで、Outlookに添付するファイルが入っているファルダまで開き、ファイルを選択してもらって添付する方法を試しているのですが、選択したァイルが添付されません
2
2
 
3
3
  そして、添付するファイルが一つではないのでファイルを選択した後にまたフォルダを開かせたいのですが、そのようなことは可能でしょうか。
4
4
 
@@ -30,6 +30,20 @@
30
30
 
31
31
 
32
32
 
33
+ vPath = Application _
34
+
35
+ .GetOpenFilename _
36
+
37
+ (FileFilter:="ファイル(*.xlsx;*.xlsm;*xls),*.xlsx;*.xlsm;*.xls" _
38
+
39
+ , FilterIndex:=2, Title:="ファイル選択" _
40
+
41
+ , MultiSelect:=False)
42
+
43
+ If VarType(vPath) = vbBoolean Then Exit Sub
44
+
45
+
46
+
33
47
  With wsMail
34
48
 
35
49
  <宛先や本文について>