im Archiv wimmelt es von diesem Outlokkaufruf, nur bei mir tut sich nichts. Visible ist nicht bekannt. Im Taskmanager wird Outlook auch nicht als laufender Prozess angezeigt. Wodran kann das liegen? Danke.
Gruß
Reinhard
Sub tt()
Dim IEApp, OApp
Set IEApp = CreateObject("internetexplorer.application")
IEApp.Visible = True
Set OApp = CreateObject("outlook.application")
'OApp.Visible = True ' Fehler 438 Objekt unterstützt diese Eigenschaft nicht
End Sub
Sub Outlook_starten()
Dim olApp As Object
Shell "C:\Programme\Microsoft-Office\Office10\Outlook.exe", vbNormalNoFocus
Set olApp = GetObject(, "Outlook.Application")
'weiterer Code
olApp.Quit
Set olApp = Nothing
End Sub
Gruß Ingolf
Option Explicit
Dim oApp As Object
Dim oNameSpace As Object
Dim oFolder As Object
Sub DisplayInbox()
Set oApp = CreateObject("Outlook.Application")
Set oNameSpace = oApp.GetNamespace("MAPI")
Set oFolder = oNameSpace.GetDefaultFolder(6)
oFolder.Display
End Sub
Sub Outlook_starten()
Dim olApp As Object
Dim olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.Display
End Sub
Danach hab ich diesen Ansatz aufgegeben und bin auf die Shell-Methode umgesprungen.Sub DisplayInbox()
Dim OApp As Object, ONameSpace As Object, OFolder As Object
Set OApp = CreateObject("Outlook.Application")
Set ONameSpace = OApp.GetNamespace("MAPI")
Set OFolder = ONameSpace.GetDefaultFolder(6)
OFolder.Display
End Sub
Sub Outlook_starten()
Dim n, Start, OlApp 'As Application
Start = Shell("C:\Programme\Microsoft Office2003\Office11\Outlook.exe", vbMinimizedNoFocus)
'MsgBox "huhu"
Set OlApp = GetObject(, "Outlook.Application")
MsgBox TypeName(OlApp)
OlApp.Quit
Set OlApp = Nothing
End Sub
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..