Hi,
Trying to use InfoQube with Outlook 2003 at work and when I try to drag an email or contact etc to the box in the Hyperlink dialog both Outlook and Infoqube freeze. I have to kill InfoQube to resolve the freeze. Am I doing something wrong - is there a setting I need to activate in InfoQube or Outlook?
Thanks,
Mike
Comments
Private Sub lblOutlook_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim myErr As Long: myErr = Err.Number: On Error Resume Next
Dim s As String
s = GetOutlookGUID
If s <> "" Then Me.txtContent = s
If Me.txtLinkText = "" Then Me.txtLinkText = "Outlook Link"
Err.Number = myErr
End Sub
Public Function GetOutlookGUID() As String
Dim myErr As Long: myErr = Err.Number: On Error Resume Next
Dim myOLApp As Application
Set myOLApp = CreateObject("Outlook.Application")
Select Case myOLApp.ActiveWindow.Class
Case olExplorer
GetOutlookGUID = "Outlook:" & myOLApp.ActiveExplorer.selection(1).EntryID
End Select
Err.Number = myErr
End Function
[/quote]