Sandra Oechler
03.12.09, 15:41 Uhr
|
Hallo,
ich habe eine große Excelliste mit eMail-Adressen. Ist es möglich, diese Daten in Outlook zu übernehmen und dann entsprechend mails zu versenden, ohne dass ich tagelang die Adressen manuell ins Empfängerfeld tippen muss?
Für einen hilfreichen Tip bin ich sehr dankbar!!
Viele Grüße
Sandra Oechler
|
Volker Jung
07.12.09, 11:03 Uhr
|
Hallo Frau Oechler,
unter http://www.redmark.de/excel/newsDetails?newsID=1218008557.14
finden Sie ein Tool mit dem Sie direkt aus Excel heraus Ihre Serien-Mails verschicken können.
Hilft Ihnen das weiter oder wollen Sie die Daten auf jeden Fall nach Outlook importieren?
Eine andere Möglichkeit ist die Nutzung der Serienmail-Funktion von Word unter Einbeziehung einer Excel-Tabelle für die Adressen. Diese Möglichkeit wird ausführlich im kommenden Update Heft von Excel im Unternehmen vorgestellt.
Gruß
Volker Jung
|
Tanja S
21.12.09, 08:53 Uhr
|
Guten Morgen,
je nachdem wieviele E-Mail-Adressen Sie haben, können Sie entweder mit "copy und paste" die E-Mail-Adressen direkt in die E-Mail einfügen oder Sie können mithilfe der Funktion "Importieren" im Outlook die kompletten Datensätze der Excel-Liste in die Kontakte ins Outlook kopieren.
Ciao
|
Marc Katscherowski
26.02.10, 21:20 Uhr
|
Hallo Frau Oechler,
eine Idee von mir wäre:
Ich habe ein Makro gefunden mit dem Sie alle Daten per Klick in die Outlook-Kontakte übernehmen können....für jede Zeile wird ein Outlook-Kontakt angelegt!
Man könnte anschliessend manuell alle die Kontakte auswählen die eine eMail erhalten sollen in diese in eine Kontaktgruppe packen!!!
--------------------------------------------
Sub KontakteNachOutlook()
Dim appOutLook As Outlook.Application
Dim conoutlook As Outlook.ContactItem
Dim i As Integer
Sheets("Kontaktdaten").Activate
Set appOutLook = CreateObject("Outlook.Application")
i = 1
Do Until Cells(i, 1).Value = ""
Set conoutlook = appOutLook.CreateItem(olContactItem)
With conoutlook
.LastName = Cells(i, 1).Value
.FirstName = Cells(i, 2).Value
.BusinessAddressStreet = Cells(i, 3).Value
.BusinessAddressCity = Cells(i, 4).Value
.BusinessAddressPostalCode = Cells(i, 5).Value
.BusinessAddressCountry = Cells(i, 6).Value
.BusinessAddressState = Cells(i, 7).Value
.Email1Address = Cells(i, 8).Value
.Save
i = i + 1
End With
Loop
Set conoutlook = Nothing
Set appOutLook = Nothing
End Sub
-------------------------------------
Bitte aktivieren Sie vor dem Start in der Entwicklungsumgebung (Alt + F11) unter Extras -> Verweise die Bibliothek Microsoft Outlook.
Spalte:
A=Vorname, B=Name, C=Strasse, D=Stadt, E=PLZ, F=email (keine Überschrift benutzen!)
Dieses Beispiel funktioniert bei mir in OL2007/2010
Beispiel evtl. für 2-3 Adressen antesten!
Gruss Katsche
|
Jürgen Diedmann
27.04.10, 17:04 Uhr
|
Hallo!
Ich habe eine Beispieldatei auf meinem dienstlichen PC. Wo soll ich diese hinschicken?
|
