ループの中で mailItemObj.Display を送信終了後に次を実行するには？

Question

一覧表から，mailItemObj.Display　を使って，メールを半自動で送信するVBAを作成してます。

ループのなかで，mailItemObj.Display　を使うと，ループの数だけ，一度に送信のウィンドウが開いてしまいます。

これを，一つのウインドウの処理が終わったら次のウィンドウが開くようにするに，どうすればいいのでしょうか。

送信終了のイベントを検出するまで，ループさせて，終了後に次のウインドウが開くようにすれば良さそうですが，

実際にどうすればいいか解りません。

ご助言をお願いできればありがたいです。

Qchan1962 · Accepted Answer

こんばんは、
.Displayメソッドには戻り値が無かったように記憶しています。
従って送信またはキャンセルされた時に次に進むような処理は難しいのではないでしょうか。
WindowsAPIなどでWindowを捕まえて、すべて非表示、、順番に表示するような事も出来るかも知れませんがどうでしょう？

コードがないので実際どのようなプロセスか分かりませんが、
考え方を変え、mailItemObj.Display　ウィンドウでユーザーが行いたい事を
mailItemObj.Displayを使わずUserFormで表示して実行する事は、可能ではないかと思います。

例えば、
For i = 1 to 10
 With objMail
            .To = List(i)      不明の為 'メール宛先
            .Subject = "メール件名"         　　 'メール件名
            .BodyFormat = olFormatplain          'メールの形式
            .Body = "メール本文"                 'メール本文
            .Display
        End With
のような場合、

UserForm1.Show

UserForm1 Moduleで
Private Sub UserForm_Initialize()
省略
For i = 1 to 10
            ListBox1.AddItem = .AddressEntries(i).Address　?  不明の為      'メール宛先
Next
            TextBox1 = "メール件名"         　　 'メール件名
            TextBox2 = "メール本文"                 'メール本文

など確認操作したい項目を備える
End Sub

Private Sub CommandButton1_Click()
省略
 With objMail
            .To = ListBox1.Text       'メール宛先
            .Subject = TextBox1.Value        　　 'メール件名
            .BodyFormat = olFormatplain          'メールの形式
            .Body = TextBox2.Value                 'メール本文
            .Send
        End With
End Sub

ご質問から離れてしまったので、この辺で

Qchan1962 · Answer

こんばんは、
エクセルから操作するのですね。
処理の流れとして
＞ループのなかで，mailItemObj.Display　を使う
としないのであれば、可能かもしれませんね。
Application_ItemSend　で、mailItemObj.Displayから送信せずに閉じた場合、どのように対策しますか

どの様なプロセスを前提に考えられているか分かりませんが、少なくともループの中でmailItemObj.Display表示して
Do　While等の無限ループで、イベントを待つのは、どうなんでしょう？（思ったら検証してみては？それが一番早いし理解できるかと）
すみません。いまは、検証する時間がないのでわかりませんが、普通？に考えると

前提として、送信イベント＆キャンセルイベント、または、ウインドウが閉じるなど捕まえられるなら
トリガー　＞＞メール作成　＞＞　イベント　＞＞　Call　メール作成　の様にするかな

Dim n As Long
sub trigger()
省略
To_Address= xxx
call MailAdd (To_Address)

sub MailAdd (To_Address As String)
省略
With objMail
.To = To_Address
省略
.Display　’イベント発生又はトリガーを得る
End With

Private Sub Outlook.Application_ItemSend(ByVal item As Object, Cancel As Boolean) 
Dim To_Address As String 　 'このイベントこんな書き方で動いたか不明です。調べてください。
If cells(n+1,1) <>"" Then
To_Address=cells(n+1,1)
Call MailAdd (To_Address)
n=n+1
end if

適当になってしまいましたが、あくまで.Displayから挙動がつかめれば、
こんな感じで繰り返せば良いのでは？

ループの中で mailItemObj.Display を送信終了後に次を実行するには？

こんばんは、

こんばんは、

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング