Outlook (全般)

Outlook 全般に関するフォーラムです。
Outlook Express、Windowsメールも含みます。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 7全般 : Outlook 2010)
新規メール作成時の"名前の確認"機能をVBAから使いたい
投稿日時: 17/02/02 09:40:03
投稿者: nontano

Outlookで新規メールを作成したときに"名前の確認"という機能がありますが、
VBAからこの機能を使用することはできるのでしょうか?
 
よろしくお願いいたします。

回答
投稿日時: 17/02/02 10:44:28
投稿者: sk

引用:
Outlookで新規メールを作成したときに"名前の確認"という機能がありますが、
VBAからこの機能を使用することはできるのでしょうか?

( Outlook 上の標準モジュール)
-----------------------------------------------------------------------
Sub subRecipientResolve()
 
    '変数の宣言
    Dim myMailItem As Outlook.MailItem
    Dim myRecipient As Outlook.Recipient
   
    '新規メールメッセージの作成
    Set myMailItem = Application.CreateItem(olMailItem)
    'メールメッセージのウィンドウの表示
    myMailItem.Display
    '受信者の追加
    Set myRecipient = myMailItem.Recipients.Add("受信者の名前")
    '受信者の確認
    myRecipient.Resolve
    '該当する受信者がアドレス帳に登録されている場合
    If myRecipient.Resolved Then
        '件名の設定
        myMailItem.Subject = "件名"
        '本文の設定
        myMailItem.Body = "本文"
    Else
        '該当する受信者が見つからない、もしくは複数いた場合
        MsgBox "受信者[" & myRecipient.Name & "]の名前解決ができませんでした。"
    End If
 
End Sub
-----------------------------------------------------------------------
 
以上のような感じでしょうか。

トピックに返信