I'm using Thunderbird and MLO running under Wine on a Linux system so drag and drop is a non-starter as is COM integration.
On Aug 21, 9:44 pm, NiMhurchu <[email protected]> wrote: > Can't you just drag and drop them there? > At work, I am using Outlook 2003, it works. > At home, with Thunderbird, it doesn't. But it's not too necessary > there. > > On 19 Aug., 06:11, HHumbert <[email protected]> wrote: > > > If you use Outlook, you can use the following macro to put a hypertext > > link into your MLO tasks. If you use Outlook with Zimbra (as opposed > > to Exchange), it'll keep the same OID, even if you move the message or > > delete it. Tres helpful: > > > Rem > > Rem Stolen > > fromhttp://mutable.net/blog/archive/2006/09/02/how_to_hyperlink_to_micros... > > Rem > > > Sub pet_CopyItemIDs() > > 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 > > Details = Details + "Date: " + CStr(Item.SentOn) + vbCrLf > > Details = Details + "Subject: " + Item.Subject + vbCrLf > > Details = Details + "Sent by: " + Item.SenderName + vbCrLf > > Details = Details + "To: " + Item.To + vbCrLf > > Details = Details + "Outlook:" + Item.EntryID + vbCrLf + vbCrLf > > > GetMsgDetails = Details > > > End Function --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "MyLifeOrganized" 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/mylifeorganized?hl=en -~----------~----~----~----~------~----~------~--~---
