Einzelnen Outlook Kontakt mit Dialog suchen und in Access Formular einfügen

toulousi · 27. Oktober 2020, 20:31

Hallo zusammen,

ich habe eine Datenbank, in welche ich EINZELNE Kontakte aus dem Outlook in ein Formular einfügen will.

Also etwa so...

1. Ich drücke auf dem Button Adresse hinzufügen...
2. Es öffnet sich ein Outlook-Such-Dialog
3. Wenn ich den richtigen Kontakt ausgewählt habe, drück ich okay.
4. Nach dem drücken auf okay wird ein neuer Datensatz angelegt und Name, Vorname, Abteilung, Telefon und E-Mailadresse in das Formular eingetragen.

Ich hab mal eine Bsp.-Datenbank hochgeladen.

Ich möchte bitte nicht, wie es in eigentlich allen Beiträgen in Netz ist ALLE Kontakte in die Datenbank importieren,
denn in der Firma stehen in unserem Globalen Adressbuch etwa 30.000 Kontakte.

Ich hab auch mal ein Foto des Dialogfeldes hochgeladen, welches beim Makro verwendet wird. Vielleicht kann das auch verwendet werden.

Viele Dank schon mal für euer Hilfe.
Bin mittlerweile echt verzweifelt.

*Topic verschoben*

Marcus Gräfe · 27. Oktober 2020, 23:50

Du spricht von einem Access-Formular. Meinst du ein Formular in VB.NET auf Basis einer Access-Datenbank oder programmierst du in Access (VBA)?

toulousi · 28. Oktober 2020, 06:46

Ich programmiere in Access (VBA).

Marcus Gräfe · 28. Oktober 2020, 17:56

Ich habe das Topic nun verschoben. Du hattest VB.NET angegeben. Siehe auch: [Allgemein] VB.NET, VB6, VBA, VBS — Mit welcher Sprache programmiere ich eigentlich?

Bei deinem Problem kann ich dir leider nicht helfen, aber vielleicht werden jetzt auch VBA-Profis auf den Thread aufmerksam.

toulousi · 28. Oktober 2020, 18:49

Vielen Dank. Bin neu im Forum und muss mich erst noch daran gewöhnen.

mumpel · 29. Oktober 2020, 00:19

Hallo!

Dafür könntest Du ein (mehrspaltiges) Listenfeld nutzen. In dieses werden dann alle Kontakte eingelesen. Mit Klick oder besser Doppelklick auf einen Listenfeld-Eintrag wird dann der Kontakt übernommen. Dafür gibt es im Netz sicher Beispielcodes. Für Excel habe ich mal sowas ähnliches programmiert (zum Anzeigen, Verschieben und Löschen von Emails).

Gruß, René

toulousi · 29. Oktober 2020, 18:37

Hallo Rene,

wie ich oben geschrieben habe sind im Adressbuch etwa 30000 Kontakte enthalten.

Wenn ich nur ein paar Kontakte hätte könnte ich einfach eine Verknüpfung zu den Outlookkontakten herstellen.

zorroot · 29. Oktober 2020, 19:27

Verzeihung, aber ich habe die Problemstellung noch nicht ganz verstanden. Mein Verständnis:
- Du hast ein Adressbuch A mit ca. 30.000 Einträgen.
- Aus diesem Adressbuch A möchtest du nach bestimmten Kriterien eine Teilmenge auswählen und in Adressbuch B speichern.

Was möchtest du tun, wenn sich die Daten eines Kontakts aus Adressbuch A ändern ? Sollen dann auch die Daten dieses Kontakts in Adressbuch B geändert werden ? Falls ja, musst du selber eine Synchronisation programmieren da Outlook das nach meinem Wissensstand nicht kann. Dann müsstest du regelmäßig eben doch die 30.000 Kontakte aus Adressbuch A auslesen, was du ja unbedingt vermeiden möchtest.

Hier der Link zum Office Objektmodell docs.microsoft.com/de-de/office/vba/api/overview/
Im Bereich Outlook, Konzepte, Adressbuch gibt es ein paar Beispiele, die vielleicht deinem Problem ähnlich sind.

toulousi · 30. Oktober 2020, 19:32

Ich möchte nicht eine Teilmenge auswählen, sonder einen einzelnen Kontakt.
Und ich benötige auch nicht alle Daten aus dem Adressbuch sondern nur Name, Vorname, E-Mail, Telefon und Abteilung.
Da es sich um ein Firmen internes Adressbuch handelt gehe ich davon aus, das sich höchstens Mal die Abteilungsbezeichnung ändert, das wäre aber dann nicht so schlimm.

Wenn ich alle 30.000 Kontakte einlesen würde wären das Unmengen an Datenmüll, weil ich am Ende vielleicht 50 davon brauchen.
Aber es könnte auch immer wieder mal ein neuer dazu kommen. Und den will ich dann der Einfachheit halber über einen Dialog auswählen und einfügen.

Leider kann ich mit den Daten in dem Link nichts anfangen.

Wenn ich mir das ganze auch nur irgendwie ansatzweise zusammenstückeln könnte würde ich das tun. Aber dazu fehlt mir einfach die Kompetenz.

mumpel · 30. Oktober 2020, 20:14

toulousi schrieb:

Und ich benötige auch nicht alle Daten aus dem Adressbuch sondern nur Name, Vorname, E-Mail, Telefon und Abteilung.

Mit dem richtigen VBA-Code kein Problem. Hier mal ein Beispiel aus meinem Outlook-VBA-Code (ohne "Abteilung").

Visual Basic-Quellcode

Private Sub UserForm_Initialize()
Dim objItem As ContactItem
Dim olSelection As Selection
Set olSelection = Application.ActiveExplorer.Selection
For Each objItem In olSelection
With frmContactNumber
.Label1.Caption = objItem.FirstName & " " & objItem.LastName
.Label2.Caption = objItem.MobileTelephoneNumber
.Label3.Caption = objItem.HomeTelephoneNumber
.Label4.Caption = objItem.BusinessTelephoneNumber
.Label8.Caption = objItem.Email1Address
End With
Next objItem
End Sub

Einzelnen Outlook Kontakt mit Dialog suchen und in Access Formular einfügen

Einzelnen Outlook Kontakt mit Dialog suchen und in Access Formular einfügen

toulousi schrieb:

Visual Basic-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben