achklein
Goto Top

Import von E-Mail-Adressen in Outlook 2007

Hallo,

ich möchte eine Excel-Tabelle mit E-Mail-Adressen in Outlook 2007 importieren. Wie das funktioniert, ist mir bekannt. Allerdings sollen diese Adressen zum Erstellen einer neuen Empfängergruppe verwendet werden. Lässt sich dieses ohne große Umwege bewerkstelligen? Ich möchte verhindern, dass ich die Adressen nach dem Import wieder manuell einer Empfängergruppe zuweisen muss. Hat jemand dazu eine Idee?

Achim

Content-ID: 283673

Url: https://administrator.de/forum/import-von-e-mail-adressen-in-outlook-2007-283673.html

Ausgedruckt am: 06.04.2025 um 13:04 Uhr

colinardo
colinardo 23.09.2015 aktualisiert um 12:05:52 Uhr
Goto Top
Hallo Achim,
kleines Excel-Makro gefällig face-wink
Wenn deine E-Mail-Adressen in Spalte A ab A2 beginnen kannst du hiermit direkt ohne Umwege eine Verteilergruppe erstellen die im Standardkontakteordner abgelegt wird.
Hier noch das Demo-Sheet: create_outlook_distribution_list_283673.xlsm
Sub CreateDistList()
    Dim dList As Object, rec As Object, objOL as Object
    Set objOL = CreateObject("Outlook.Application")  
    'Verteilergruppenobjekt erstellen  
    Set dList = objOL.CreateItem(7)
    'Namen der Verteilergruppe festlegen  
    dList.DLName = "Meine Verteilergruppe"  
    With ActiveSheet
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            Set rec = objOL.Session.CreateRecipient(cell.Value)
            rec.Resolve
            dList.AddMember rec
        Next
    End With
    'Liste speichern und anzeigen  
    dList.Save
    dList.Display
End Sub
Grüße Uwe
achklein
achklein 23.09.2015 um 12:04:10 Uhr
Goto Top
Super, schon mal vorab vielen Dank! Werde es baldmöglichst ausprobieren! Kann ich in Zeile 7 den Namen der Liste schon vorab eintragen?

Achim
colinardo
colinardo 23.09.2015 aktualisiert um 12:06:21 Uhr
Goto Top
Zitat von @achklein:
Kann ich in Zeile 7 den Namen der Liste schon vorab eintragen?
Ja, dafür ist die Zeile da face-smile
achklein
achklein 10.11.2015 um 10:42:13 Uhr
Goto Top
Ich konnte das Skriipt gestern ausprobieren, leider kamen Fehlermeldungen:

4723d6835736d132f589cbc042c59108
achklein
achklein 10.11.2015 um 10:42:45 Uhr
Goto Top
efac3af65eabdc1eb0a2b5467aa8886b
colinardo
colinardo 10.11.2015 um 11:10:18 Uhr
Goto Top
Das wird an eurem Exchange liegen. Geht hier in einer Domain mit Exchange problemlos.
achklein
achklein 10.11.2015 um 11:16:57 Uhr
Goto Top
Hier gibt es kein Exchange. Das ist ein Einzel-PC eines Privatmannes

Achim
colinardo
colinardo 10.11.2015 um 11:30:17 Uhr
Goto Top
Zitat von @achklein:

Hier gibt es kein Exchange. Das ist ein Einzel-PC eines Privatmannes
Auch damit läuft es hier...