Hi All,
Just back from a wonderfull 3 weeks off work, and as usual when your not there it all hits the fan.
I've got the following examples of code that allows me to hyperlink through VBA to a Lotus Notes Database.
The problem is that when I run it attached to a Sub Menu command it crashes Excel. When I step through it from within the VBE all is OK ????? Slightly bewildered
If anyone out there has any idea why it would be greatly appreciated.
BTW WinXP, XL2002
Thnx AJW
Sub LotusNotes_ValveDocLib()
Application.ScreenUpdating = False
On Error Resume Next
AppActivate "Lotus Notes"
If Not Err.Number = 0 Then
Err.Clear
MsgBox "Notes is Not Running", vbInformation, "WSM-Marketing"
Else
Application.ThisWorkbook.FollowHyperlink Address:="Notes://WARSYD1/4A256903007EE404/8525608C005E322585255D7C00545AF7", NewWindow:=True
End If
Exit Sub
End Sub
Sub LotusNotes_ISOGatePricing()
Application.ScreenUpdating = False
On Error Resume Next
AppActivate "Lotus Notes"
If Not Err.Number = 0 Then
Err.Clear
MsgBox "Notes is Not Running", vbInformation, "WSM-Marketing"
Else
Application.ThisWorkbook.FollowHyperlink Address:="Notes://WARSYD1/4A256903007EE404/8525608C005E322585255D7C00545AF7/01D498B498130A7F4A25690A001CB306", NewWindow:=True
End If
Exit Sub
End Sub
Sub LotusNotes_LeaveApplication()
Application.ScreenUpdating = False
On Error Resume Next
AppActivate "Lotus Notes"
If Not Err.Number = 0 Then
Err.Clear
MsgBox "Notes is Not Running", vbInformation, "WSM-Marketing"
Else
Application.ThisWorkbook.FollowHyperlink Address:="Notes://WARSYD1/4A25659A000C4FC9/8525608C005E322585255D7C00545AF7/ED0979DCA79B73A4CA256E450082284B", NewWindow:=True
End If
Exit Sub
End Sub