Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Abgleich von Outlookkontaktfeldern mit einer externen Datei

Frage Entwicklung VB for Applications

Mitglied: 13martin37

13martin37 (Level 1) - Jetzt verbinden

12.01.2009, aktualisiert 16:53 Uhr, 3796 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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(2)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Webentwicklung
HTML Output in eine txt Datei mit VisualBasicScript (2)

Frage von coca22COCA zum Thema Webentwicklung ...

Informationsdienste
gelöst Aktuelle Firefox MSI Datei!? (8)

Frage von Hendrik2586 zum Thema Informationsdienste ...

Hardware
Unterstützt mein Laptop einen 1440p 60hz externen Monitor? (2)

Frage von thomasreischer zum Thema Hardware ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (15)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Backup
Clients als Server missbrauchen? (10)

Frage von 1410640014 zum Thema Backup ...