質問編集履歴
4
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,6 @@
|
|
|
1
|
-
vbaでワードに反応してメールを送るvbaを作ったのです
|
|
1
|
+
vbaでワードに反応してメールを送るvbaを作ったのです
|
|
2
|
+
|
|
3
|
+
添付ファイルをつけれるようにしたいですが
|
|
2
4
|
|
|
3
5
|
下記にこれを追加したらできるでしょうか
|
|
4
6
|
|
3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,15 +2,9 @@
|
|
|
2
2
|
|
|
3
3
|
下記にこれを追加したらできるでしょうか
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
すでに選択したファイルと同じファイルをおくります
|
|
6
6
|
|
|
7
|
-
|
|
8
|
-
|
|
9
|
-
fname = Application.GetOpenFilename(フォルダ名")
|
|
10
|
-
|
|
11
|
-
mail.
|
|
7
|
+
mail.Attachments.Add file
|
|
12
|
-
|
|
13
|
-
でいいんでしょうか？
|
|
14
8
|
|
|
15
9
|
|
|
16
10
|
|
2
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
vba 添付ファイルをつけてメールを送る方法について
|
test
CHANGED
|
File without changes
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,6 +1,18 @@
|
|
|
1
|
-
|
|
1
|
+
vbaでワードに反応してメールを送るvbaを作ったのですが自由に添付ファイルをつけれるようにしたいですが
|
|
2
2
|
|
|
3
|
+
下記にこれを追加したらできるでしょうか
|
|
4
|
+
|
|
5
|
+
Dim fname As String
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
|
|
9
|
+
fname = Application.GetOpenFilename(フォルダ名")
|
|
10
|
+
|
|
11
|
+
mail.attachments.add=fname
|
|
12
|
+
|
|
3
|
-
|
|
13
|
+
でいいんでしょうか？
|
|
14
|
+
|
|
15
|
+
|
|
4
16
|
|
|
5
17
|
Sub ファイル自由参照()
|
|
6
18
|
|