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

Aktuellen Kontakt in Outlook auslesen

Forumthread: Aktuellen Kontakt in Outlook auslesen

Aktuellen Kontakt in Outlook auslesen
16.09.2013 22:31:09
S.Scholl
Hallo Forum.
Ich suche schon seit langem eine VBA Befehl mit dem ich bei einen selektierten Outlook Kontakt z.B. die Telefonnummer .BusinessTelephoneNumber auslesen kann?
Irgendwie fehlt mir die zündende Idee ;-(
Danke für Eure Hilfe.
Stefan

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktuellen Kontakt in Outlook auslesen
17.09.2013 17:29:22
S.Scholl
Hallo Marc.
Danke für Deine Links, nur leider erfüllen die nicht meine Anforderung.
Ich suche eine Möglichkeit einen einzelnen Kontakt, den ich zuvor markiert habe, auszulesen.
Nicht wie Link 1, alle auslesen und leider auch nicht Link 2 "suche ersetze" über alle Kontakte.
Passt leider nicht so wirklich. :-(
Mit welchem Befehl kann ich den selektierten Kontakt auslesen?
Grübel. :-(
Gruß
Stefan

Anzeige
AW: Aktuellen Kontakt in Outlook auslesen
18.09.2013 08:11:28
Firmus
Hi Stefan,
bei Beispiel mit dem ich eine aktuelle EMAIL ermittele und anzeigen kann.
Ob Email oder Kontakt entscheidet nur der Objekttyp - sonst ist die Methodik gleich.
Eingebettet in VBAproject.OTM (für Outlook).
Es sollte Dir aber vermutlich den richtigen Weg weisen.
'===========================================================================================
' Diese Routine zeigt bei einer gefundenen eMail den dazugehörigen Folder-Pfad an.
'=========================================================================================== 
Public Sub OLU01_GetItemsxxFolderPath()
Dim obj As Object
Dim F As Outlook.MAPIFolder
Dim guck As Outlook.Explorer
Dim x As Long
Dim Msg$
Set obj = Application.ActiveWindow
If TypeOf obj Is Outlook.Inspector Then
Set obj = obj.CurrentItem
Else
Set obj = obj.Selection(1)      'aktuelles Item
End If
Set F = obj.Parent
Msg = "The Path of this email is: " & vbCrLf _
& F.FolderPath & vbCrLf & vbCrLf
Msg = Msg & "The Path is copied into the clipboard always.  " & vbCrLf
Msg = Msg & "Open a separate Folder-View for this mail?" & vbCrLf
If MsgBox(Msg, vbYesNo) = vbYes Then
Set guck = F.GetExplorer
guck.Height = 650
guck.Width = 1200
'    Application.SendKeys ("%F4")
guck.Display
'    Application.SendKeys ("^6")
x = x
'    damit würde er kein neues Fenster öffnen, sondern im alten positionieren
Set Application.ActiveExplorer.CurrentFolder = F
End If
' in die Zwischenablage kopieren
Dim objClip As DataObject
Set objClip = New DataObject
strTMP = F.FolderPath
objClip.SetText strTMP
objClip.PutInClipboard
End Sub

Viel Erfolg,
Gruß
Firmus
Anzeige

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Datei oeffnet sich in Entwurfsmodus (Optionsbox)
Alex

Hi @ all!
Also ich weiss nicht ob ich damit hier richtig bin und wenn nicht dann sorry, dacht ich versuchs einfach mal nach zwei Tagen Buecher waelzen...
Also ich habe ein Worddokument, dass ein Fragebogen sein soll, sowohl mit Bewertungsfragen von 1 - 5 als auch mit offenen Fragen...!<...
14.08.2008 15:21:17
Thread-ID: 1001886
10 Beiträge
automatische übertragung in neues tabellenblatt
tomtom

Also zuerst mal, wollt ich sagn dass ich nur mit vb 8.0 bis jetzt ein paar spielereien wie Taschenrechner und so gemacht habe. Also falls das bei mitm vb-excel nicht klappt muss ich halt nochmal nachfragen...
Also nun zu meinem Problem:
Und zwar hab ich eine Liste mit Artikel und in de...
19.08.2008 22:57:53
Thread-ID: 1003053
3 Beiträge
Anzeige
Duplikate, Zeilen einfuegen...
Dirk

Hallo euch allen,
bin mal wieder an einem Punkt angelangt, wo ich allein nicht weiterkomme u. Gefahr laufe, frühzeitig zu ergrauen... ;-)
Eine detaillierte Beschreibung befindet sich in dieser Beispielmappe (gezippt, 2 Dateien).
Folgende Themen werden berührt:
-- csv-Import in...
22.08.2008 20:41:00
Thread-ID: 1004001
15 Beiträge
Anzeige
Thema: automatische übertragung in neues tabellenb
tomtom

hatte dazu schon einen beitrag, man kann aber anscheinend nichts neues dazuschreiben wenn er schon etwas älter ist.
Hier der link: https://www.herber.de/forum/archiv/1000to1004/t1003053.htm
Jedenfalls habe ich noch eine Frage dazu:
Und zwar hängen all diese Artikelzeilen die ins Ta...
27.08.2008 21:34:00
Thread-ID: 1005203
2 Beiträge
Anzeige
UDF - inkl. Übergabe der aktuellen Position
Peter

Guten Tag
Ich möchte selbst eine Funktion basteln, scheitere jedoch schon bei Grundlegendem.
In meiner Tabelle habe ich einen Spaltenbereich mit "Identifier" benannt. Dieser kann sich in Spalte O, P, Q etc.. befinden.
Nun möchte ich in der gleichen Tabelle mittels Funktion den Bezug...
10.09.2008 11:06:00
Thread-ID: 1008684
11 Beiträge
QueryTabels Internet Timeout
Peter

Folgende Aufgabe:
Ich hole mir via unten stehender Webabfrage Daten aus dem Internet.
Nun kommt es hin und wieder mal vor, dass die Abfrage beim Refresh hängen bleibt und ich VBA mit ESC stoppen muss.
Gerne hätte ich einen Timer, der z.B. nach 5 Sekunden aus der Abfrage aussteigt u...
23.09.2008 14:42:00
Thread-ID: 1011746
2 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
blaue Titellesite eines Fensters ausblenden
Dieterlem

Hallo Excelfreunde,
Ich habe eine Datei in der ich mit mehreren Fenstern arbeite.
Ich "teilte" diese Datei über "Fenster - Neues Fenster" und zeige drei verschiedene Tabellenblätter untereinander an. Hier wird dann bei allen Seiten die Titelleiste (inkl. Schließen-Button etc.) angezeigt...
30.09.2008 19:33:00
Thread-ID: 1013468
2 Beiträge
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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