質問編集履歴
1
誤字
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,8 +1,6 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
3
|
|
|
4
|
-
|
|
5
|
-
ここに質問の内容を詳しく書いてください。
|
|
6
4
|
|
|
7
5
|
VBAでOutlookの下書きフォルダにあるメールをVBAに送らせるツールを作成しておりますが、
|
|
8
6
|
|
|
@@ -64,7 +62,7 @@
|
|
|
64
62
|
|
|
65
63
|
|
|
66
64
|
|
|
67
|
-
Set oAcct = oApp.Session.Accounts("
|
|
65
|
+
Set oAcct = oApp.Session.Accounts("メールアドレス")
|
|
68
66
|
|
|
69
67
|
Set oStore = oAcct.DeliveryStore
|
|
70
68
|
|