Hi, see reply embedded. On Jan 13, 10:10 am, nk <[email protected]> wrote: > Hi, > > sadly enough, none of my browsers understand the 'Outlook' protocol. > Is some configuration of the browser needed ?
It is more related to Outlook setup to reference the FM20.dll (done in the VBA editor). Then it would work on whatever browser you wish. I use Firefox 3.x w/o issues. Quote from the original discussion, and the site provided this MAcro: http://mutable.net/blog/archive/2006/09/02/How_to_hyperlink_to_Microsoft_Outlook_messages.aspx ----- Quote ---- How to hyperlink to Microsoft Outlook messages Left by David Jade at 11/19/2006 6:52 AM Gravatar To add the FM20.dll as a reference to your VBA macro project, open the Tools References menu option in the VBA editor. From there you can place a check on the "Microsoft Forms 2.0 Object Library" item. If the that item in not in the list you will have to use the browse button first to find and add the fm20.dll file which should be located in you windows system directory. ----------- The discussion did mentioned that with Outlook 2007 there were issues, (I cannot check, since still using 2003), but also mentioned it should work. > Anyway, thanks for your VB code. I think it's more advanced than what > I uses. But for completeness sake, I will paste it below : Thanks for compliment, but - is not really my script. I just fixed it slightly, to print out a complete html link string. Regards. Y.A. > > thanks > > Henk > > --> > > Sub CopyBrowserLink() > 'Get all selected items > Dim MyOlNamespace As Outlook.NameSpace > Set MyOlNamespace = Application.GetNamespace("MAPI") > Set MyOlSelection = Application.ActiveExplorer.Selection > > 'Make sure at least one item is selected > If MyOlSelection.Count = 0 Then > Response = MsgBox("Please select an item first", vbExclamation, > MyApplName) > Exit Sub > End If > > 'Make sure only one item is selected > If MyOlSelection.Count > 1 Then > Response = MsgBox("Please select only one item", vbExclamation, > MyApplName) > Exit Sub > End If > > 'Retrieve the selected item > Set MyselectedItem = MyOlSelection.Item(1) > > 'construct the link > Dim entryid As String > 'Dim storeid As String > Dim strlink As String > > entryid = MyselectedItem.entryid > > 'storeid is not necessary > 'storeid = MyselectedItem.Parent.storeid > 'strlink = "<<MailLink '" & entryid & "' '" & storeid & "' >>" > > strlink = "<<MailLink '" & entryid & "' >>" > > 'save it on the clipboard > Dim c As CClipboard > Set c = New CClipboard > c.Clear > c.SetText strlink > > 'Cleanup > Set MyOlNamespace = Nothing > Set MyOlSelection = Nothing > Set MyselectedItem = Nothing > > End Sub > > On Jan 10, 8:34 pm, "Joe A." <[email protected]> wrote: > > > Hi, > > > I've been using mGTD quite happily with links to Outlook, using my > > modified version of VBA script of CopyItemIDs() with Outlook. > > > Usage in simple 2 steps: > > > 1. In Outlook - press "CopyItemID" botton (mapped to VBA macro below), > > once marker is on a desired e-mail meesage. (This causes Hyperlink > > text of message and subject to be captured/copied). > > 2. "Paste" the combined text and link, into a tiddler. (Just issue > > 'Paste' command in tiddler's body). > > > The outcome string, getting generated and paseted, - is something > > like: > > <html><a href ="Outlook: > > 0000000004E36616CD59D242A078FAA0D097D5320700D39C8B3D64A0D511A61E00D0B7828EEA000003DDC87F0000BC6084B86F32F646B43C61D382EA6303000002B115010000">Weekly > > Report - WW 1 (2009)</a></html> > > > This has been working extremely well, for me, hope you'd find it > > useful. > > > Y.A. > > > See VBA code below: > > -------------- Code below --------------------- > > Sub CopyItemIDs() > > 'Taken > > fromhttp://mutable.net/blog/archive/2006/09/02/How_to_hyperlink_to_Micros... > > 'Required referencing FM20.dll file manually (Using VB Tools/ > > References... menu) > > > Dim myOLApp As Application > > Dim myNameSpace As NameSpace > > Dim currentMessage As MailItem > > Dim ClipBoard As String > > Dim DataO As DataObject > > > ' Housekeeping: set up the macro environment > > Set myOLApp = CreateObject("Outlook.Application") > > Set myNameSpace = myOLApp.GetNamespace("MAPI") > > > ' Figure out if the active window is a list of messages or one > > message > > ' in its own window > > On Error GoTo QuitIfError ' But if there's a problem, skip it > > Select Case myOLApp.ActiveWindow.Class > > ' The active window is a list of messages (folder); this means > > there > > ' might be several selected messages > > Case olExplorer > > ' build the clipboard string > > For Each currentMessage In > > myOLApp.ActiveExplorer.Selection > > ClipBoard = GetMsgDetails(currentMessage, ClipBoard) > > Next > > > ' The active window is a message window, meaning there will > > only > > ' be one selected message (the one in this window) > > Case olInspector > > ' build the clipboard string > > ClipBoard = GetMsgDetails > > (myOLApp.ActiveInspector.CurrentItem, _ > > ClipBoard) > > ' can't handle any other kind of window; anything else will be > > ignored > > End Select > > > QuitIfError: ' Come here if there was some kind of problem > > Set myOLApp = Nothing > > Set myNameSpace = Nothing > > Set currentMessage = Nothing > > > Set DataO = New DataObject > > DataO.Clear > > DataO.SetText ClipBoard > > DataO.PutInClipboard > > > Set DataO = Nothing > > > End Sub > > > Function GetMsgDetails(Item As MailItem, Details As String) As String > > > If Details <> "" Then > > Details = Details + vbCrLf > > End If > > ' Orig commented out by Yossi > > 'Details = Details + Item.Subject + vbCrLf > > 'Details = Details + "Outlook:" + Item.EntryID + vbCrLf > > Details = "<html><a href =""Outlook:" + Item.EntryID + """>" + > > Item.Subject + "</a></html>" + vbCrLf > > > GetMsgDetails = Details > > > End Function > > ----------- Code end -------------- > > > On Jan 10, 2:00 pm, svogel <[email protected]> wrote: > > > > Hi Henk > > > > wheee, you are some kind auf clairvoyant :-) > > > I've been searching around yesterday to find some information on > > > exactly that issue. > > > > I guess that a Firefox-Addon might to the job. And I investigated in > > > trying to find a way to drag and drop an email into an open tiddler > > > which simply pastes the link (sorry, only ideas, no written code or > > > anything). > > > > But I would be glad already, if I could extract this damn GUID from > > > the outlook message. > > > So maybe you could share the Outlook-macro. > > > > Many thanks for your effort > > > > Best regards > > > Stefan > > --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "TiddlyWikiDev" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/TiddlyWikiDev?hl=en -~----------~----~----~----~------~----~------~--~---
