Hallo,
poste nun meine Frage schon im 3. Forum.
Habe ein Problem. Und zwar möchte ich die Outlook Kontaktliste als Pop-up Fenster öffnen. Funktioniert zwar, aber nicht an dem PC bei mir zuhause (auf der Arbeit funktioniert es einwandfrei).
Hier der Code:
Mein Versuch wäre ja:
Danke für eure Hilfe!
poste nun meine Frage schon im 3. Forum.
Habe ein Problem. Und zwar möchte ich die Outlook Kontaktliste als Pop-up Fenster öffnen. Funktioniert zwar, aber nicht an dem PC bei mir zuhause (auf der Arbeit funktioniert es einwandfrei).
Hier der Code:
Wie gesagt, auf der Arbeit funktioniert es einwandfrei aber zuhause läuft das Programm nicht. Es liegt an MAPI.Session, weiss aber nicht wie bzw. wodurch ich es ersetzen kann.Quote:
Public Function outName()
Dim OutSitz As Object
Dim Adressbuch As Object
On Error Resume Next
Set OutSitz = CreateObject("MAPI.Session")
If Not OutSitz Is Nothing Then
OutSitz.Logon "", "", False, False
End If
Set Adressbuch = OutSitz.AddressBook()
outName = Adressbuch.Item(1).Name
If outName = "" Then
MsgBox "Es wurde kein Empfänger ausgewählt.", vbCritical, "Fehler"
End If
Set OutSitz = Nothing
Set Adressbuch = Nothing
End Function
Mein Versuch wäre ja:
*Wie es weiter gehen würde weiß ich leider nicht :oQuote:
Public Function outName()
Dim OutSitz As Outlook.Application
Dim Adressbuch As Object
Dim nsOut as NameSpace
Set OutSitz = New Outlook.Application
Set nsOut = OutSitz.GetNameSpace("MAPI").Logon , , ,False
... *
End Function
Danke für eure Hilfe!