teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

4

2021/10/29 00:28

投稿

shunsuke_0319
shunsuke_0319

スコア2

title CHANGED
File without changes
body CHANGED
@@ -1,4 +1,5 @@
1
- vbaでワードに反応してメールを送るvbaを作ったのですが自由に添付ファイルをつけれるようにしたいですが
1
+ vbaでワードに反応してメールを送るvbaを作ったのです
2
+ 添付ファイルをつけれるようにしたいですが
2
3
  下記にこれを追加したらできるでしょうか
3
4
  すでに選択したファイルと同じファイルをおくります
4
5
  mail.Attachments.Add file

3

2021/10/29 00:28

投稿

shunsuke_0319
shunsuke_0319

スコア2

title CHANGED
File without changes
body CHANGED
@@ -1,11 +1,8 @@
1
1
  vbaでワードに反応してメールを送るvbaを作ったのですが自由に添付ファイルをつけれるようにしたいですが
2
2
  下記にこれを追加したらできるでしょうか
3
+ すでに選択したファイルと同じファイルをおくります
3
- Dim fname As String
4
+ mail.Attachments.Add file
4
5
 
5
- fname = Application.GetOpenFilename(フォルダ名")
6
- mail.attachments.add=fname
7
- でいいんでしょうか?
8
-
9
6
  Sub ファイル自由参照()
10
7
  Const olMailItem = 0
11
8
  Dim file As String

2

2021/10/29 00:28

投稿

shunsuke_0319
shunsuke_0319

スコア2

title CHANGED
@@ -1,1 +1,1 @@
1
- パワーポイントvba 添付ファイルをつけてメールを送る方法について
1
+ vba 添付ファイルをつけてメールを送る方法について
body CHANGED
File without changes

1

2021/10/29 00:01

投稿

shunsuke_0319
shunsuke_0319

スコア2

title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,11 @@
1
- パワポのvbaでワードに反応してメールを送るvbaを作ったのですが自由に添付ファイルをつけれるようにしたいです
1
+ vbaでワードに反応してメールを送るvbaを作ったのですが自由に添付ファイルをつけれるようにしたいです
2
+ 下記にこれを追加したらできるでしょうか
3
+ Dim fname As String
4
+
5
+ fname = Application.GetOpenFilename(フォルダ名")
6
+ mail.attachments.add=fname
2
- どうしたらいいでしょうか?
7
+ いいでしょうか?
8
+
3
9
  Sub ファイル自由参照()
4
10
  Const olMailItem = 0
5
11
  Dim file As String