Hi,
sadly enough, none of my browsers understand the 'Outlook' protocol.
Is some configuration of the browser needed ?
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
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
-~----------~----~----~----~------~----~------~--~---
