folgendes Makro (ist aus dem Internet) bricht mit Fehler bei "Status", ab. Wie muss es lauten, dass ich aus Excel Outlook starten kann?
Sub Outlook_Starten()
Status = Shell("outlook.exe", 1)
End Sub
Mit der Bitte um Hilfe und
Gruß, Dieter(Drummer)
Sub Outlook_Starten()
Status = Shell("outlook.exe", 1)
End Sub
Sub Outlook_Starten()
Dim oApp As Object, Status&
On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")
If oApp Is Nothing Then
Status = Shell("Outlook.exe", 1)
Else
MsgBox "Outlook bereits gestartet!"
End If
Set oApp = Nothing
End Sub
Gruß Tino
Sub Outlook_Starten()
Dim vTaskID
vTaskID = Shell("C:\Program Files (x86)\Microsoft Office\Office14\Outlook.exe", _
vbMaximizedFocus)
End Sub
Sub Outlook_Starten()
Dim oApp As Object
On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")
If oApp Is Nothing Then
Shell "Outlook.exe", 1
DoEvents: Application.Wait Now + TimeSerial(0, 0, 1)
Set oApp = GetObject(, "Outlook.Application")
Do While oApp.ActiveWindow.WindowState 1
oApp.ActiveExplorer.Display
oApp.ActiveWindow.WindowState = 1
Loop
Else
MsgBox "Outlook bereits gestartet!"
End If
Set oApp = Nothing
End Sub
Gruß Tino