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


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

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

[code]

    Dim objOutlook As Outlook.Application
     Dim objMail As Outlook.MailItem
     Set objOutlook = CreateObject("Outlook.Application")
     Set objMail = objOutlook.CreateItem(olMailItem)
     With objMail
     .To = "xxxxxxx@xxxx.co.jp" 
     .Subject ="〇〇〇の件" 
     .BodyFormat = olFormatPlain 
     .Body = "メール本文" 
     .Display
     End With
    
[/code]




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

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

