versuch es mal so...
12.08.2010 09:26:02
Tino
Hallo,
, getestet unter Office 12
Private Sub Workbook_Open()
Dim oOutlook As Object
Dim myOlExps As Object, i As Integer
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
Shell Application.Path & "\OUTLOOK.EXE", vbMinimizedFocus
Else
Set myOlExps = oOutlook.Explorers
For i = 1 To myOlExps.Count
myOlExps.Item(i).WindowState = 1
Next i
MsgBox "Outlook schon offen"
End If
End Sub
Gruß Tino