質問編集履歴
1
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,6 +1,5 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
|
-
ここに質問の内容を詳しく書いてください。
|
|
4
3
|
VBAでOutlookの下書きフォルダにあるメールをVBAに送らせるツールを作成しておりますが、
|
|
5
4
|
メールの件数に応じてうまく送信することができません。
|
|
6
5
|
|
|
@@ -31,7 +30,7 @@
|
|
|
31
30
|
Dim cITEM
|
|
32
31
|
Dim go As Integer, bo As Integer, l As Integer
|
|
33
32
|
|
|
34
|
-
Set oAcct = oApp.Session.Accounts("
|
|
33
|
+
Set oAcct = oApp.Session.Accounts("メールアドレス")
|
|
35
34
|
Set oStore = oAcct.DeliveryStore
|
|
36
35
|
|
|
37
36
|
Set oFolder = oStore.GetDefaultFolder(16)
|