電子メールユーザーの一次受信トレイを検索するマクロ。彼らのアドレスをハードコーディングせずに

Question

私は、Outlookで多くのユーザーが実行するメールマクロを開発しています。現在、私は、私はolShareName変数はマクロのプライマリ電子メールアドレスを実行している誰に設定されるという意味で、このコードの移植を作りたい

Set objNamespace = Application.GetNamespace("MAPI") 
'Replace line below with code that sets olShareName equal to the current 'outlook user's primary e-mail account. 
Set olShareName = objNamespace.CreateRecipient("rpullman@dogs.com") 
Set objFolder = objNamespace.GetSharedDefaultFolder(olShareName, olFolderInbox) 
Set DestFolder = objNamespace.GetSharedDefaultFolder(olShareName, olFolderToDo) 

strFilter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " like '%Dogs Secretly Control the World%'" 

Set filteredItems = objFolder.Items.Restrict(strFilter) 

...私の受信トレイを検索するには、次のアプローチを使用しています。

例えば、私の同僚がこのマクロを使用していて、（outlookからアクセスされる）電子メールアドレスbailey@dogs.comとmolly@dogs.comを持っていれば、コードを変更しなくても実行することができます。

明らかに、私は入力ボックスを使用して電子メールアドレスを入力することができますが、私はそれを避けたいと思います。

Answer 1

現在のユーザーの受信者オブジェクトを取得するには、NameSpace.CurrentUserプロパティを使用します。これにより、アクティブなOutlookプロファイルの既定のアカウントに関連付けられたアドレスが返されます。これがExchangeアカウントの場合は、ExchangeUser.PrimarySMTPAddressを取得するためにRecipient.AddressEntry.GetExchangeUser（）にアクセスする必要があります。実際には、NameSpace.GetSharedDefaultFolderのパラメータとして使用するには、Recipientオブジェクトが必要です。

そのユーザーのエイリアスのアドレスが必要な場合は、MAPIを直接使用する必要があると思います。しかし、プロファイルに設定されている他のアカウントの電子メールアドレスにアクセスする場合は、NameSpace.AccountsをループしてAccount.SmtpAddressをチェックすることができます。