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-message-into-a-task.aspx>http://www.paraesthesia.com/archive/2007/07/10/convert-an-outlook-message-into-a-task.aspx 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] www.empathic-parenting.com --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
