Discussion:
Outlook Kontakt aus Excel öffnen
(zu alt für eine Antwort)
Carsten
2004-06-23 19:10:31 UTC
Permalink
Hallo,

ich möchte gerne einen Outlook Kontakt aus
einen VBA Skript in Excel öffnen. Der Firmenname
soll dafür als Grundlage zum öffnen des Kontaktes
sein.

Bitte um Hilfe !!

Carsten
stefan onken
2004-06-24 06:19:17 UTC
Permalink
hallo Carsten,
teste mal dieses (den Verweis setzt du im VBA-Editor
unter Extras/Verweise):

Sub Kontakt()
'Verweis auf MS Outlook Object Library setzen
Dim ol As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Set ol = CreateObject("Outlook.Application")
Set olNameSpace = ol.GetNamespace("MAPI")
Set olFolder = _
olNameSpace.GetDefaultFolder(olFolderContacts)
For i = 1 To olFolder.Items.Count
If olFolder.Items(i).CompanyName = "meineFirma" Then
olFolder.Items(i).Display
Exit Sub
End If
Next
End Sub

Gruß
stefan
-----Originalnachricht-----
Hallo,
ich möchte gerne einen Outlook Kontakt aus
einen VBA Skript in Excel öffnen. Der Firmenname
soll dafür als Grundlage zum öffnen des Kontaktes
sein.
Bitte um Hilfe !!
Carsten
.
Carsten
2004-06-24 12:53:09 UTC
Permalink
Hallo,

danke für die Hilfe ! Funktioniert so weit.

Gibt es auch eine Möglichkeit auf eine anderen
Kontaktordner zuzugreifen. Z.B. auf einen öffentlichen
oder einen von einen Kollegen in Outlook eingebundenen
Kontaktordner ?

Gruß carsten
-----Originalnachricht-----
hallo Carsten,
teste mal dieses (den Verweis setzt du im VBA-Editor
Sub Kontakt()
'Verweis auf MS Outlook Object Library setzen
Dim ol As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Set ol = CreateObject("Outlook.Application")
Set olNameSpace = ol.GetNamespace("MAPI")
Set olFolder = _
olNameSpace.GetDefaultFolder(olFolderContacts)
For i = 1 To olFolder.Items.Count
If olFolder.Items(i).CompanyName = "meineFirma" Then
olFolder.Items(i).Display
Exit Sub
End If
Next
End Sub
Gruß
stefan
-----Originalnachricht-----
Hallo,
ich möchte gerne einen Outlook Kontakt aus
einen VBA Skript in Excel öffnen. Der Firmenname
soll dafür als Grundlage zum öffnen des Kontaktes
sein.
Bitte um Hilfe !!
Carsten
.
.
a***@discussions.microsoft.com
2004-06-24 14:03:15 UTC
Permalink
hallo Carsten,
dafür mußt du dich mE durch die Folders "hangeln", zB:

Set olFolder = _
olNameSpace.Folders(("Öffentliche Ordner").Folders
("Favoriten").Folders("Auftrag")

Die Folders siehst du in Outlook unter Ansicht/Ordnerliste

Gruß
stefan
-----Originalnachricht-----
Hallo,
danke für die Hilfe ! Funktioniert so weit.
Gibt es auch eine Möglichkeit auf eine anderen
Kontaktordner zuzugreifen. Z.B. auf einen öffentlichen
oder einen von einen Kollegen in Outlook eingebundenen
Kontaktordner ?
Gruß carsten
-----Originalnachricht-----
hallo Carsten,
teste mal dieses (den Verweis setzt du im VBA-Editor
Sub Kontakt()
'Verweis auf MS Outlook Object Library setzen
Dim ol As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Set ol = CreateObject("Outlook.Application")
Set olNameSpace = ol.GetNamespace("MAPI")
Set olFolder = _
olNameSpace.GetDefaultFolder(olFolderContacts)
For i = 1 To olFolder.Items.Count
If olFolder.Items(i).CompanyName = "meineFirma" Then
olFolder.Items(i).Display
Exit Sub
End If
Next
End Sub
Gruß
stefan
-----Originalnachricht-----
Hallo,
ich möchte gerne einen Outlook Kontakt aus
einen VBA Skript in Excel öffnen. Der Firmenname
soll dafür als Grundlage zum öffnen des Kontaktes
sein.
Bitte um Hilfe !!
Carsten
.
.
.
a***@discussions.microsoft.com
2004-06-25 07:18:52 UTC
Permalink
Funktioniert !

Super, danke ....

Carsten
-----Originalnachricht-----
hallo Carsten,
Set olFolder = _
olNameSpace.Folders(("Öffentliche Ordner").Folders
("Favoriten").Folders("Auftrag")
Die Folders siehst du in Outlook unter Ansicht/Ordnerliste
Gruß
stefan
-----Originalnachricht-----
Hallo,
danke für die Hilfe ! Funktioniert so weit.
Gibt es auch eine Möglichkeit auf eine anderen
Kontaktordner zuzugreifen. Z.B. auf einen öffentlichen
oder einen von einen Kollegen in Outlook eingebundenen
Kontaktordner ?
Gruß carsten
-----Originalnachricht-----
hallo Carsten,
teste mal dieses (den Verweis setzt du im VBA-Editor
Sub Kontakt()
'Verweis auf MS Outlook Object Library setzen
Dim ol As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Set ol = CreateObject("Outlook.Application")
Set olNameSpace = ol.GetNamespace("MAPI")
Set olFolder = _
olNameSpace.GetDefaultFolder(olFolderContacts)
For i = 1 To olFolder.Items.Count
If olFolder.Items(i).CompanyName = "meineFirma" Then
olFolder.Items(i).Display
Exit Sub
End If
Next
End Sub
Gruß
stefan
-----Originalnachricht-----
Hallo,
ich möchte gerne einen Outlook Kontakt aus
einen VBA Skript in Excel öffnen. Der Firmenname
soll dafür als Grundlage zum öffnen des Kontaktes
sein.
Bitte um Hilfe !!
Carsten
.
.
.
.
Loading...