terminate the routine if outlook is not available

[fitful_thought]

This code forms part of a routine that will be running on some computers
that have Outlook 2003 and some that have Outlook Web Access for Exchange
2003.

DimOutAppAsOutlook.Application
DimOutMailAsOutlook.MailItem
SetOutApp=CreateObject("Outlook.Application")
SetOutMail=OutApp.CreateItem(olMailItem)

Can I add something to the above code to terminate the routine if outlook is
not available?

Please feel free to contribute is you have an ideas.

 

[Michael Bauer]

Am Thu, 27 Apr 2006 06:54:22 +1000 schrieb fitful_thought:

A simle error handler does the trick:

On Error Resume Next
Dim OutApp AsOutlook.Application
Dim OutMail AsOutlook.MailItem
Set OutApp=CreateObject("Outlook.Application")
If Not OutApp Is Nothing Then
Set OutMail=OutApp.CreateItem(olMailItem)
Else
' Not available
MsgBox Err.Description
Endif

 

[fitful_thought]

Thank you Michael.
DL

Am Thu, 27 Apr 2006 06:54:22 +1000 schrieb fitful_thought:

A simle error handler does the trick:

On Error Resume Next
Dim OutApp AsOutlook.Application
Dim OutMail AsOutlook.MailItem
Set OutApp=CreateObject("Outlook.Application")
If Not OutApp Is Nothing Then
Set OutMail=OutApp.CreateItem(olMailItem)
Else
' Not available
MsgBox Err.Description
Endif