Outlook 2007 - Create Task from Email

Final macro for a thorough GTD approach to the email inbox. This will create a Task form with the contents of the email prepopulated in the task form. This macro allows detailed tasks to be generated by the click of the mouse, managing workflow through the Task viewer in Outlook!


Public Sub AddToTasks()
Dim olTask As Outlook.TaskItem
Dim olMail As MailItem
Dim olIns As Inspector
Dim olExp As Explorer
Set olTask = Application.CreateItem(olTaskItem)
Set olExp = Application.ActiveExplorer

If olExp.CurrentView "Messages" Then Exit Sub
If olExp.Selection.Count 1 Then Exit Sub

Set olMail = olExp.Selection.Item(1)

With olTask
.Subject = olMail.Subject
.Body = olMail.Body
.StartDate = Now
.DueDate = DateAdd("d", 7 - Format$(Date, "w", vbSaturday), Date)
.ReminderSet = False
olTask.Status = olTaskInProgress
End With

Set olIns = olTask.GetInspector
olIns.Display ("True")
End Sub


Outlook 2007 Move to Folder Under Inbox

Part two of the Email Management series. This macro code moves a message item from the Inbox to a folder under the Inbox. Two versions of this macro exist in my setup to move items to the Actions or Review folders.

Sub moveReview()
On Error Resume Next
Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder
Dim objNS As Outlook.Namespace, objItem As Outlook.MailItem

Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders.Item("Folder")
'Assume this is a mail folder

If objFolder Is Nothing Then
MsgBox "This folder doesn’t exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
End If

If Application.ActiveExplorer.Selection.Count = 0 Then
'Require that this procedure be called only when a message is selected
Exit Sub
End If

For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
'Set item as read.
'objItem.UnRead = False
objItem.Move objFolder
End If
End If
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing

End Sub

Restore successful!

Removed the RAID 0 setup from my primary computer.  Recovering data from Acronis was completely successful!  So the Raid 0 can be retired, and will run off of the WD Black 1TB drive for a while.

Cannot recommend enough the Acronis TrueImage software for home backups.  I copy the .TIB file to an external drive in order to pull the backup to external media.  This could easily be taken off site for a redundant and safe off site backup strategy.

Will be checking out the 2011 verison of the Acronis TrueImage home product this week.

Backups: How to save your PC

Here's a good backup strategy.  Daily backups to Windows Home Server.  Nightly backups with Acronis TrueImage to external drive.  Recovery involves either pulling the backup from Windows Home Server or reverting to the last good Acronis image.

Trying the Acronis backup method tonight after reconfigureing some hardware in my primary PC.  Its going to be an adventure.