配布リストの連絡先が名前とメールアドレスの両方で表示されるようにします
-
03-10-2019 - |
質問
Outlook配布リストに追加する連絡先が名前とメールアドレスの両方で表示されるようにするにはどうすればよいですか?これらの連絡先は、他のアドレス帳に存在しない場合があります。これは、配布リストのみです。現在、それらは(両方の列で)メールアドレスとして表示されます。
Alt Text http://img52.imageshack.us/img52/1804/tempgg.jpg
これがおおよそ使用しているVBAです:
Do Until RS.EOF
//here's where we want to inject RS!FirstName, RS!Surname etc
objRecipients.Add RS!Email
objRecipients.Resolve
RS.MoveNext
Loop
Set objDistList = contactsFolder.Items.Add("IPM.DistList")
objDistList.DLName = "Whatever"
objDistList.AddMembers objRecipients
objDistList.Save
etc
解決 2
彼の答えをしてくれたディック・クスレイカに感謝します グレームの答えはこちら 簡単な方法があるかもしれないという考えを教えてくれました。
そして、それは単に配布リストへのエントリで角度ブラケットを使用することです。のように "Ringo Starr<rstarr@example.com>"
うまく機能します。
だから私の元の例は次のようになります:
objRecipients.Add RS!FullName & "<" & RS!Email & ">"
他のヒント
名前を定義できるように、各受信者のcontactItemを作成する必要があると思います。これが例です:
Sub testdistlist()
Dim oRecips As Recipients
Dim ciDist As DistListItem
Dim ci As ContactItem
Dim mi As MailItem
Set mi = Application.CreateItem(olMailItem)
Set oRecips = mi.Recipients
Set ciDist = Application.CreateItem(olDistributionListItem)
'replace this with your recordset loop
Set ci = Application.CreateItem(olContactItem)
ci.FirstName = "John"
ci.LastName = "Lennon"
ci.Email1Address = "jlennon@example.com"
ci.Save
oRecips.Add ci.FullName
Set ci = Application.CreateItem(olContactItem)
ci.FirstName = "Ringo"
ci.LastName = "Starr"
ci.Email1Address = "rstarr@example.com"
ci.Save
oRecips.Add ci.FullName
'end replace
ciDist.AddMembers oRecips
ciDist.Save
ciDist.Display
mi.Close olDiscard
End Sub
所属していません StackOverflow