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