🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Outlook

Microsoft OutlookはMicrosoft Officeの一部として組み込まれている、のユーザー管理とメーラーの機能を持ち合わせたソフトウェアです。

Q&A

解決済

1回答

6291閲覧

Outlook VBAで宛先の名前表示について

shn0

総合スコア1

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Outlook

Microsoft OutlookはMicrosoft Officeの一部として組み込まれている、のユーザー管理とメーラーの機能を持ち合わせたソフトウェアです。

0グッド

0クリップ

投稿2021/02/21 03:12

前提・実現したいこと

現在、Outlook VBAで送信先などを表示する確認ダイアログ作成しています。
送り先(ToとCC)に設定されているアドレスを連絡先に登録されている名前で表示したいのですが自身で見つけることができず。。
何か方法はございますでしょうか。

例)
taro.yamada@xx.co.jp→山田 太郎

該当のソースコード

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim mailTo, mailCc As String Dim alertMsg As String mailTo = Item.To mailCc = Item.CC mailTo = Replace(mailTo, ";", vbCrLf) mailCc = Replace(mailCc, ";", vbCrLf) MsgBox "添付ファイルは " & Item.Attachments.Count & " です。" alertMsg = "件名: " & Item.Subject & vbCrLf & vbCrLf & "宛先: " & mailTo & vbCrLf & "CC: " & _ mailCc & vbCrLf & "間違いなければメールを送信ます。よろしいですか?" If MsgBox(alertMsg, vbYesNo + vbExclamation + vbDefaultButton2) <> vbYes Then Cancel = True End If End Sub

試したこと

Findメソッドを使用してみたのですが「オブジェクトは、このプロパティまたはメソッドをサポートしてません。」と表示され実行不可でした。

xx = Item.Find("[Email1Address]='" & Item.To & "'") xx.FullName

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

こんな感じでいかがでしょうか。

VBA

1xx = item.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items.Find("[Email1Address]='" & item.To & "'").Email1DisplayName

投稿2021/02/21 03:46

jinoji

総合スコア4592

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

shn0

2021/02/21 08:47 編集

jinoji様 ありがとうございます。 ご教示いただいたものをもとに作成し、動作させることができました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問