gelöst Abgleich von Outlookkontaktfeldern mit einer externen Datei

Mitglied: 13martin37

13martin37 (Level 1) - Jetzt verbinden

12.01.2009, aktualisiert 16:53 Uhr, 3934 Aufrufe, 4 Kommentare

Mittels eines VBA-Makros soll ein Feld innerhalb eines Kontakts auf seine Korrektheit untersucht werden.

Hallo!

ich hab nur eine kleine Frage zu einer für mich schwierigen Problemstellung Ich will gar keine Programmierlösung (die will ich schon selber machen ), sondern will eigentlich nur wissen, ob es generell machbar ist (kenne mich noch nicht mit VBA aus).

Darum gehts:
Es müssen benutzerdefinierte Felder innerhalb eines Kontakts, die nur mit den Werten "Ja" und "Nein" belegt werden können, mit einer Excelliste (oder irgendeiner anderen externen Datei (Textliste)) abgeglichen werden.
Stimmt der Eintrag in Outlook nicht mit dem Eintrag in der Exceltabelle überein, sollte er mit dem Excelwert überschrieben werden.
Dabei sollten mehrere tausend Kontakte am besten anhand der E-Mailadresse des Kontakts abgeglichen werden.

Mich interessiert vor allem, ob der Abgleich mit einer Text- oder Exceldatei möglich ist. Und wenn ja, wieviel Aufwand sich hinter der ganzen Aufgabe verbirgt.

Vielen Dank schon mal im Vorraus,
Martin

EDIT:
Die Aufgabenstellung ein bisschen logischer/einfacher:
In der Excelliste/Textdatei stehen Emailadressen für die das Checkboxfeld im Kontakt auf "Nein" stehen sollte. Jetzt soll überprüft werden, ob die zugehörigen Emailadressen in den Outlook Kontakten auch auf "Nein" stehen und gegebenenfalls überschrieben werden.
Mitglied: kruder
15.01.2009 um 02:05 Uhr
Hi Martin,

möglich ist es. Der Aufwand sollte nicht allzu groß sein.
Als Neuling in VB/VBA dauert es evt. nen bisschen länger
aber es ist machbar... Du musst letzten Endes nur die
externe Datei strukturiert, einlesen und einen paar Vergleiche
vollziehen und entsprechend agieren.

Wenn Du mit einer Excel-Datei arbeitest, dann solltest
Du diese der Einfachheit halber als *.csv (DOS) speichern.
Diese Datei dann einlesen und die Split-Funktion mit
dem Delimiter ";" nutzen. (Die *.csv benutzt das Semikolon
als Begrenzer zwischen den Zellen.)

Viel Spaß
kruder
Bitte warten ..
Mitglied: kruder
15.01.2009 um 02:22 Uhr
Hi Martin,

ich nochmal...
Da ich nicht weiß wieviel Hintergrundwissen Du hast :

- lege dir vorm testen sicherheitskopien an!
- man spricht i.d.r von booleschen werten: "true" oder "false" und nicht von "Ja" und "Nein"
- die booleschen werte werden i.d.r. über ein objekt zugewiesen zb objectname.value=true
- mit strg+space bekommst du zu der aktuellen eingabe im editor möglichkeiten aufgezeigt, was unter anderen
zeitsparend und unter umständen auch wissenserweiternd sein kann...
- wenn du nicht weißt wie was gemacht wird, dann kann unter umständen das aufzeichnen eines
makros mit anschließender sichtung des quelltextes helfen...

genug der klugscheißerei, ich hoffe ich konnte ein
wenig helfen...

gruß
kruder
Bitte warten ..
Mitglied: 13martin37
15.01.2009 um 13:15 Uhr
Hi Kruder,

danke für die Infos. Ein bisschen Hintergrundwissen hab ich =) Kann relativ gut C programmieren, deswegen sollte es auch kein großes Ding sein.
Danke für den Typ mit den .csv Datein, das dürfte das Auslesen ja einfacher machen.

Vielen Dank, ich mach mich jetzt mal an die Arbeit =)

Gruß, Martin
Bitte warten ..
Mitglied: 13martin37
22.01.2009 um 19:20 Uhr
Hab das Programm jetzt soweit gelöst, hab jedoch ein anderes Problem. Es funktionier alles soweit so gut. Wenn ich jedoch zu viele Kontakte (ab 100) arbeitet das Programm nicht mehr richtig. Die Personen werden nicht gefunden, obwohl sie in den Kontakten drin stehen. Hier mal der Quelltext

Option Explicit

Private Sub CommandButton1_Click()
Dim Kontakt As ContactItem
Dim eMailAdresse As String
Dim i As Integer
On Error Resume Next

Open "U:\Outlook\Abmeldungen.txt" For Input As #1
For i = 0 To 30
Line Input #1, eMailAdresse
MsgBox eMailAdresse + " wird gesucht!"

For Each Kontakt In Session.GetDefaultFolder(olFolderContacts).Items
If Kontakt.Email1Address = eMailAdresse Then
MsgBox Kontakt.LastNameAndFirstName + " mit der Emailadresse " + eMailAdresse + " gefunden" _
+ vbCr + "Markierung entfernt!"
Kontakt.UserProperties("News").Value = False
Kontakt.Save
End If
Next
Next

Close #1
MsgBox "Aufgabe erledigt"
Unload Me
End Sub
Bitte warten ..
Heiß diskutierte Inhalte
Router & Routing
Lancom Router Site to Site Problem mit Außenstellen
gelöst mossoxFrageRouter & Routing24 Kommentare

Guten Tag zusammen, in der Hauptgeschäftsstelle nutzen wir einen Lancom 1781VA Router und haben i.d.R. zwei gleichzeitige IPSec Site ...

Netzwerke
Sporadische Ausfälle im gesamten Heimnetz
gelöst bilbo-dvdFrageNetzwerke20 Kommentare

Guten Morgen, ich habe einen Kabelanschluss bei Vodafone und mein Tarif wurde im März auf CableMax 1000 umgestellt. Ich ...

Sicherheit
Sicherheit oder bessere Benutzbarkeit?
gelöst StefanKittelFrageSicherheit19 Kommentare

Hallo, ich habe eine Webanwendung programmiert und sehe mich nun mit einer Frage zur Benutzbarkeit konfrontiert. Bei der Anmeldung ...

Router & Routing
RDP nur im internen Netz möglich nicht aber per vpn?
einfach112FrageRouter & Routing18 Kommentare

Hallo zusammen. Beim Kunden habe ich einen Server mit VMWARE laufen. Darauf ein Windows Server 2016 Essentials als VM ...

Apache Server
Wer installiert mir Jitsi-meet mit Stun- Turn-Server und wartet dies?
gelöst default-userFrageApache Server16 Kommentare

Nachdem ich mit der Audio- und Videoqualität der meisten angebotenen Videokonferenz-Lösungen nicht zufrieden bin, möchte ich einen eigenen Jitsi-meet-Server ...

Internet
Über meinen WAN ist lidl.de nicht ereichbar
gelöst NetGodFrageInternet16 Kommentare

Hallo zusammen, mit meinem DTAG-Anschluß ist derzeit kein Durchkommen zu www.lidl.de möglich. Zu den selben Zeitpunkten ist es aber ...

Ähnliche Inhalte
Batch & Shell

For Schleife für Abgleich mit Text-Datei und Unterverzeichnisse

gelöst grisurFrageBatch & Shell4 Kommentare

Hallo zusammen, habe mich extra angemeldet, da ich bei einem kleinen Problem nicht so schnell weiterkomme. Bin Batch-Anfänger und ...

Windows Server

WindowsServer 2012 R2 Dateiserver Abgleich

BauntyFrageWindows Server4 Kommentare

Hallo zusammen ich habe zu übungszwecken 2 win server Datacenter 2012R2 im 180 Tage test am laufen, ich versuche ...

Microsoft Office

Excellisten abgleich Funktion gesucht

gelöst YannoschFrageMicrosoft Office2 Kommentare

Hallo zusammen, habe eine kurze Frage bzgl. Excel. Ausgangssituation: Eine Excel Arbeitsmappe mit 2 verschiedenen Tabellenblättern (A & B) ...

Exchange Server

Datenverlust: Abgleich iOS Adressbuch mit O365

gelöst VisuciusFrageExchange Server4 Kommentare

Guten Morgen in die Runde, mir ist es jetzt schon 2 mal untergekommen, dass einzelne(!) Adressen bei der Portierung ...

Batch & Shell

Robocopy und der Abgleich von Verzeichnissen

gelöst Stefan007FrageBatch & Shell2 Kommentare

Hi Leute, ich lasse mit Robocopy momentan ein E-Book Archiv per Windows-Task nach der Anmeldung "abgleichen" damit er die ...

Router & Routing

Interner Webserver von extern

gelöst petermarcFrageRouter & Routing11 Kommentare

Hallo zusammen, mein interner Webserver mit der IP 192.168.156.200:8080 soll aus dem Internet erreichbar sein. Auf meiner Firewall ist ...

Neue Fragen
Administrator Magazin
11 | 2020 Virtualisierung ist aus der IT nicht mehr wegzudenken. In der November-Ausgabe des IT-Administrator Magazins dreht sich der Schwerpunkt um das Thema "Server- und Storage-Virtualisierung". Darin erfahren Sie, wie sich die Virtualisierungstechnologie entwickelt hat, welche Varianten es im Bereich Server und Speicher gibt und wie ...
Neue Beiträge
Neue Jobangebote
Server- und Storage-VirtualisierungServer- und Storage-VirtualisierungBerechtigungs- und IdentitätsmanagementBerechtigungs- und IdentitätsmanagementWebdienste und -serverWebdienste und -serverDatenbankenDatenbankenMonitoring & SupportMonitoring & SupportHybrid CloudHybrid Cloud