2

Outlook配布リストに追加した連絡先が名前と電子メールアドレスの両方で表示されるようにするにはどうすればよいですか？これらの連絡先は、配布リストだけでなく、他の名簿には存在しない可能性があります。現在、それらは（両方の列に）電子メールアドレスとして表示されます。

代替テキスト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
4

2 に答える 2

1

名前を定義できるように、受信者ごとに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
于 2010-05-05T15:08:14.137 に答える
1

ディック・クスレイカの答えに感謝しますが、ここでのグレイムの答えは、もっと簡単な方法があるかもしれないという考えを私に与えました。

これは、配布リストのエントリで山かっこを使用するだけです。のように "Ringo Starr<rstarr@example.com>"

これは問題なく機能します。

したがって、私の元の例は次のようになります。

objRecipients.Add RS!FullName & "<" & RS!Email & ">"
于 2010-05-05T18:03:18.267 に答える