次の方法で共有

MailItem.BeforeCheckNames イベント (Outlook)

  • [アーティクル]

Microsoft Outlook がアイテム (親オブジェクトのインスタンス) の受信者コレクションの名前解決を開始する直前に発生します。

構文

式。 BeforeCheckNames( _Cancel_ )

expression は MailItem オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
Cancel 必須 Boolean False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合、名前解決プロセスは完了しません。

注釈

VBScript では BeforeCheckNames イベントを 使用しますが、メール名がフォームで解決されてもイベントは発生しません。

このイベントは、次のような状況下では発生しません。

  • 履歴項目の書式をカスタマイズした後、[ 連絡先] フィールドで連絡先を解決した場合。

  • 連絡先の書式をカスタマイズした後、[ 連絡先] フィールドで連絡先を解決した場合。

  • なんらかの書式をカスタマイズした後、Outlook によってバックグラウンドで自動的に名前が解決された場合。

  • プログラムを通じて受信者を作成し、解決した場合。

例

この Visual Basic for Applications (VBA) の例では、ユーザーが名前を解決するのには、ユーザーが希望する場合とユーザーに応答しない場合は、操作をキャンセルする 場合は False を返しますを確認します。 サンプル コードは、 などの ThisOutlookSessionクラス モジュールに配置する必要があり、イベント プロシージャを SendMail() Outlook から呼び出す前にプロシージャを呼び出す必要があります。

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Private Sub myItem_BeforeCheckNames(Cancel As Boolean) 
 
 If MsgBox("Do you want to resolve names now?", 4) = vbOK Then 
 
 Cancel = True 
 
 End If 
 
End Sub 
 
 
 
Public Sub SendMail() 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 myItem.Recipients.Add ("Dan Wilson") 
 
 myItem.Recipients.Add ("Nate Sun") 
 
 myItem.Body = "Good morning!" 
 
 myItem.Send 
 
End Sub

関連項目

MailItem オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。