Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktiven Outlook Kontakt nach Excel

aktiven Outlook Kontakt nach Excel
Goran
Hallo
Beispiel: ich bin in einem Outlook Kontakt und möchte auf Knopfdruck die Daten des Kontaktes (Name, Adresse, etc ) in eine bestimme Excedatei / Reiter übertagen (z.B. in die 3. Zeile).
z.B. "D:\Test\VBTest.xls" in den Reiter "Herber"
ein Beispiel mit name + ort würde reichen. den rest kriege ich selbst hin.
Habe schon ein paar Sachen (auch hier) gefunden, aber nicht passt wirklich.
Den Trick "Kontakt per drag&drop rüber ziehen" kenne ich.
Danke vorab
LG
Goran

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: aktiven Outlook Kontakt nach Excel
bst
Abend Goran,
HTH, Bernd
--
[code]Option Explicit
Sub x()
Dim appOutlook As Object, objContact As Object
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If Not appOutlook Is Nothing Then
If Not appOutlook.ActiveInspector Is Nothing Then
Set objContact = appOutlook.ActiveInspector.CurrentItem
If TypeName(objContact) = "ContactItem" Then
Debug.Print objContact.FirstName, objContact.LastName, objContact.BusinessAddress
End If
End If
End If
Set appOutlook = Nothing
End Sub

[/code]
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige