Hi Lisa, very helpful information. "Implemented" it already into my system.
Just one question (in case you'd be able to answer) Would there be any way to keep attachments when transforming an email into a task? Means: When having an email with attachments, and emailing them to yourself... would there be any way, that the original attachments also get embedded into the newly generated task? I googled already, but to be honest I'm a totely newbie in regard to Microsoft VB. Thanks, Eberhard On 6 Nov., 03:18, Lisa Stroyan <[email protected]> wrote: > Thanks *very much* to the person that emailed me offlist and > suggested I set up a rule in Outlook to transfer certain emails to > tasks, which then will sync with MLO. I thought you all might to > know how I did it. I found this post and followed > it: > <http://www.paraesthesia.com/archive/2007/07/10/convert-an-outlook-mes...>http://www.paraesthesia.com/archive/2007/07/10/convert-an-outlook-mes... > Below is my modified subroutine that also adds the sender and the > sender's address, and the date, to the body of the note. > > Instead of taking things that have "TASK"" in the name, I set up my > rule so that for one of my gmail addresses (which can have +string > added to the name and it still goes to the address without the > +string), [email protected] . That way I can give my husband and > colleague that email address and they can email tasks to me also > without having to type "TASK:" I left the code in anyway, just in case. > > I'm so psyched that I can mail myself tasks now. All I have to do > is get rid of the pesky warnings that some program is trying to > access my email addresses....but I've wasted enough time on this > already so I'll just live with them I guess. > > Sub ProcessMailItemIntoTask(Item As Outlook.MailItem) > Dim strTaskName As String > strTaskName = Trim(Item.Subject) > > If Len(strTaskName) < 1 Then > ' No subject - use the first line of the body > strTaskName = Trim(Item.Body) > Dim intCrLfPos As Integer > intCrLfPos = InStr(1, strTaskName, Constants.vbCrLf, vbTextCompare) > If intCrLfPos > 0 Then > strTaskName = Trim(Left(strTaskName, intCrLfPos - 1)) > End If > End If > > ' Trim TASK: off the line > Dim intKeyWordPos As Integer > intKeyWordPos = InStr(1, strTaskName, "TASK:", vbTextCompare) > If intKeyWordPos = 1 Then > strTaskName = Trim(Right(strTaskName, Len(strTaskName) - 5)) > End If > > ' Create the task > Dim objTask As Outlook.TaskItem > Set objTask = Application.CreateItem(olTaskItem) > objTask.Subject = strTaskName > ' My tasks usually don't have start dates > ' objTask.StartDate = Item.ReceivedTime > ' > ' objTask.UnRead = True > > objTask.Body = "From: " & Item.SenderName & " <" & > Item.SenderEmailAddress & ">" & vbCrLf & "Date: " & Item.ReceivedTime > & vbCrLf & Item.Body > > objTask.Save > Set objTask = Nothing > End Sub > > Lisa > > ---------- > Lisa Stroyan, mailto:[email protected] --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
