Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kontakte aus Outlook auslesen und ändern

Forumthread: Kontakte aus Outlook auslesen und ändern

Kontakte aus Outlook auslesen und ändern
Bertram
Hallo zusammen,
in meinen Kontakten in OL habe ich viele Personen einer Firma. Nun hat sich in deren Mailadresse die Domain geändert und ich möchte ungern alle einzeln öffnen um die Domain zu ändern.
Meine Idee war es, die betroffenen Kontakte auszulesen, die Domain zu ändern und diese dann wieder in die OL-Kontakte zurückschreiben.
Das Auslesen hab ich hingekriegt, auch das Hinzufügen neuer Kontakte, aber wie kann ich die geänderten Kontakte zurückschreiben?
Hab leider bei meiner Recherche nix gefunden, was sowohl das Auslesen als auch das Zurückschreiben betrifft.
Ich hoffe ihr könnt mir etwas unter die Arme greifen.
Danke und Gruß
Bertram

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kontakte aus Outlook auslesen und ändern
17.09.2012 15:01:09
UweD
Hallo
hab momentan nur Notes hier, aber in OL hab ich das auch mal gemacht
müsste irgendwie so gehen...
Datei
in Datei exportieren
als CSV / Komma separiert
Pfad angeben
... Nur Kontakte anklicken
- - -
- Dann kannst du die Datei in Excel öffnen
- Suchen und Ersetzen
- abspeichern
- - -
dann wieder in OL einlesen..
Gruß UweD

Anzeige
AW: Kontakte aus Outlook auslesen und ändern
17.09.2012 15:13:16
Bertram
Hallo Uwe,
danke für den Tipp. Dann werd ich das mal so machen. Dachte nur, dass das auch geht, wenn man sie nicht exportiert, sondern per VBA ausliest.
Aber so tut's auch:-)
Gruß
Bertram

AW: Kontakte aus Outlook auslesen und ändern
17.09.2012 16:54:33
firmus
Hi Bertram,
falls Du Export/Import noch nicht genutzt hast, hier die VBA Variante.
Option Explicit 
Sub OL_Contacts_Update_TLD()
' getestet 16.sep 2012    mit Outlook 2007
Dim myAppl As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myContacts As Outlook.Items
Dim myitems As Outlook.Items
Dim myItem As Object
Dim tmpc1, tmpc2 As String
Set myAppl = CreateObject("Outlook.Application")
Set myNameSpace = Outlook.GetNamespace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items
For Each myItem In myContacts
If (myItem.Class = olContact) Then
tmpc1 = UCase(myItem.CompanyName)
tmpc2 = UCase(myItem.Email1Address)
If InStr(1, tmpc1, "Testfirma") Then
tmpc1 = myItem.CompanyName
tmpc1 = Replace(tmpc1, "testfirma", "")
tmpc1 = Replace(tmpc1, "Testfirma", "")
tmpc1 = Replace(tmpc1, "TESTFIRMA", "")
myItem.CompanyName = tmpc1
myItem.Body = myItem.Body & " Firma updated " & today & " " & Now
myItem.Save
End If
If InStr(1, tmpc2, "Testfirma") Then
tmpc2 = myItem.Email1Address
tmpc2 = Replace(tmpc2, "testfirma", "")
tmpc2 = Replace(tmpc2, "Testfirma", "")
tmpc2 = Replace(tmpc2, "TESTFIRMA", "")
myItem.Email1Address = tmpc2
myItem.Body = myItem.Body & " emailadr updated " & today & " " & Now
myItem.Save
End If
End If
Next
End Sub
Referenz für Outlook in VBA setzen - nicht vergessen.
Gruss
Firmus
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Kontakte aus Outlook auslesen und ändern

Schritt-für-Schritt-Anleitung

  1. Outlook Kontakte exportieren:

    • Öffne Outlook und gehe zu "Datei".
    • Wähle "Öffnen und exportieren" aus und klicke auf "Importieren/Exportieren".
    • Wähle "In Datei exportieren" und dann "Comma Separated Values (CSV)".
    • Wähle den Ordner "Kontakte" aus und speichere die Datei an einem gewünschten Ort.

  2. CSV-Datei in Excel öffnen:

    • Öffne die exportierte CSV-Datei in Excel.
    • Du kannst jetzt die Kontakte bearbeiten, indem du die Mailadressen anpasst. Nutze die Funktion "Suchen und Ersetzen", um die Domain schnell zu ändern.

  3. Änderungen speichern und importieren:

    • Speichere die bearbeitete CSV-Datei.
    • Gehe zurück zu Outlook und wiederhole die Schritte zum Importieren.
    • Wähle "Aus Datei importieren" und lade die bearbeitete CSV-Datei hoch.

Häufige Fehler und Lösungen

  • Outlook Adressbuch leer nach dem Import:

    • Überprüfe, ob du die CSV-Datei korrekt formatiert hast. Die Spaltenüberschriften müssen mit den Outlook-Feldern übereinstimmen.

  • Kontakte lassen sich nicht bearbeiten:

    • Stelle sicher, dass die Datei nicht schreibgeschützt ist. Du kannst dies überprüfen, indem du mit der rechten Maustaste auf die Datei klickst und "Eigenschaften" wählst.

Alternative Methoden

  • VBA-Skript verwenden:

    • Du kannst auch ein VBA-Skript nutzen, um Kontakte automatisch zu ändern, wie im Beitrag von Firmus beschrieben. Hier ist ein einfaches Beispiel:
    Sub OL_Contacts_Update_TLD()
  ' Beispielcode zur Aktualisierung von Kontaktdaten
  Dim myAppl As Outlook.Application
  ...
  myItem.Save
End Sub
    • Achte darauf, die Outlook-Referenz in den VBA-Einstellungen zu setzen.

Praktische Beispiele

  • Domain einer Firma ändern:

    • Wenn du viele Kontakte einer Firma hast, deren Domain sich geändert hat, exportiere die Kontakte, ändere die Domain in Excel und importiere die Datei zurück in Outlook.

  • Kontakte nach bestimmten Kriterien filtern:

    • Du kannst auch nur bestimmte Kontakte exportieren, z.B. nur die von "Testfirma", um gezielter Änderungen vorzunehmen.

Tipps für Profis

  • Nutze die Suchen und Ersetzen Funktion in Excel, um mehrere Änderungen effizient vorzunehmen.
  • Wenn du häufig mit dem Adressbuch in Outlook arbeitest, überlege, ein Makro zu erstellen, das dir repetitive Aufgaben automatisiert.
  • Halte dein Outlook Adressbuch regelmäßig auf dem neuesten Stand, um die Übersichtlichkeit zu gewährleisten.

FAQ: Häufige Fragen

1. Wie kann ich mein Outlook Adressbuch bearbeiten?
Du kannst dein Outlook Adressbuch bearbeiten, indem du die Kontakte exportierst, in Excel bearbeitest und anschließend wieder importierst.

2. Kann ich Kontakte direkt in Outlook ändern, ohne sie zu exportieren?
Ja, du kannst Kontakte direkt in Outlook ändern, jedoch ist das bei einer großen Anzahl von Kontakten nicht effizient. Der Export und die Bearbeitung in Excel sind oft schneller.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige