0

Excel VBAでOutlookのメールを作成するのですが、実行後にメールの画面がアクティブにならないことがあります。 アクティブ(最前面)にする方法を教えてください。

コードは以下のような感じです。

Dim objOutlook As Outlook.Application
 Dim objMail As Outlook.MailItem
 Set objOutlook = CreateObject("Outlook.Application")
 Set objMail = objOutlook.CreateItem(olMailItem)
 With objMail
 .To = "[email protected]" 
 .Subject ="〇〇〇の件" 
 .BodyFormat = olFormatPlain 
 .Body = "メール本文" 
 .Display
 End With
3
  • この辺の組み合わせ等で考えられるかもしれません。MailItem.GetInspector プロパティ (Outlook), Inspector.Activate メソッド (Outlook)
    – kunif
    Commented 2022年2月25日 1:46
  • ありがとうございます。 具体的なコードを教えていただけると大変助かります。
    – yuka
    Commented 2022年2月25日 4:41
  • 1
    私も検索して関連しそうだと想像しただけなので、詳細は使えるかどうかもわかりません。同様に連想して検索を続けるか、試すか等してみてください。
    – kunif
    Commented 2022年2月25日 4:46

2 件の回答 2

1

私も同じことをやりたくてここにたどり着きました。

.Display

End With
の間に
.GetInspector.Activate
という1行を入れるとできました。

1
  • ありがとうございます。 やってみましたが、まだうまく行かないようです。
    – yuka
    Commented 2022年8月21日 11:04
1

私も上記の修正では前面に来ないことが出てきました。

そこで、以下の通り書き換えて試しています。

修正前:

.GetInspector.Activate

修正後:

.GetInspector.Display (False)
1
  • ありがとうございます。まだ様子見ですが、できたかもしれないです!
    – yuka
    Commented 2022年9月11日 2:44

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。