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 from
http://mutable.net/blog/archive/2006/09/02/How_to_hyperlink_to_Microsoft_Outlook_messages.aspx
'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
-~----------~----~----~----~------~----~------~--~---
