Re: Verteilerliste über VBA erstellen

Am Mon, 6 Mar 2006 03:09:30 -0800 schrieb Frank Dunsche:

Wird der Ordner als E-Mail-Adressbuch angezeigt? Das kannst Du unter
Ordnereigenschaften, Reiter "Outlook-Adressbuch" einstellen. Dann klappt´s
auch mit Unterordnern.

Ja klar ist der Ordner (sind alle entpsrechenden Ordner)
E-Mail-Adressbücher...
Klappt trotzdem nicht!

So klar ist das gar nicht. Hast Du nachgesehen?

Beim folgenden komme ich nicht mehr mit.

In der Ursprungsplanung wird ja noch die gültige E-Mail-Adresse hinzugefügt...
Also im Stil von: "<Frank Dunsche> dunsche@xxxxxxxxx"

Das klappt also?

Der Name innerhalb der eckigen Klammern *ist* der Anzeigename. Den kannst Du
wählen, wie Du lustig bist. Auch wenn es im Kontakteordner einen Eintrag mit
den gleichen Daten gibt: Es wird keine Verknüpfung erstellt.

Hier ist doch dann (unabhängig vom Anzeigename) eine korrekte E-Mail-Adresse
hinterlegt...
Aber wie gesagt: So funzt das sowieso nicht!

Hm, nun klappt es doch nicht?

Ich kann nur "reine" E-Mail-Adressen (also ohne abweichenden Anzeigenamen)
in den Verteilern hinterlegen...

Das kann ich nicht glauben. Wenn Du bitte mal folgendes Beispiel einfach
kopierst und ausführst, siehst Du dann den Eintrag in der DL? (Bitte ändere
nichts an meinem Beispiel!)

Public Sub AddMemberWithDisplayName()
Dim oMail As Outlook.MailItem
Dim colRecips As Outlook.Recipients
Dim oRecip1 As Outlook.Recipient
Dim oDl As Outlook.DistListItem

Set oDl = Application.CreateItem(olDistributionListItem)
oDl.Display
Set oMail = Application.CreateItem(olMailItem)
Set colRecips = oMail.Recipients
Set oRecip1 = colRecips.Add("<Frank Dunsche> dunsche@xxxxxxxxx")
oDl.AddMembers colRecips
oDl.Save
End Sub


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --
.

Relevant Pages

  • Re: Msgbox soll über Word-Dokument erscheinen
    ... Klappt leider auch nicht. ... Dim w As Word.Application ... Set w = New Word.Application ...
    (microsoft.public.de.access)
  • Re: Makroübergabe von Excel an Word
    ... Dim oWr As Word.Application ... Set oWr = New Word.Application ... Klappt auch, wenn ich das Makro für Suchen und Ersetzen in Word ...
    (microsoft.public.de.word.vba)
  • Re: Schleife for
    ... Ulrich ... > Enabled=false setzen...So klappt es nicht ... > Dim i As integer ...
    (microsoft.public.de.excel)
  • Re: VB6 + Excel 2000 (Find-Methode)
    ... Set co_seekCell = ... Klappt das besser? ... Habs aus dem Kopf hingeschrieben und nicht probiert. ...
    (microsoft.public.de.vb)