Last year I created a simple macro for Microsoft Outlook 2007 that automatically created an appointment from an email, adding the recipients to the appointment invite.  Apparently there has been quite a bit of interest in this, most recently someone asked if it could be modified so that it would work with the previewed email in addition to an opened email.  Well I looked at the code again and found that it was pretty easy to do: 

If the active inspector is null, then no item is opened.  I then check to see if the preview pane is visible and if it is, I get the first selected item (because only the first item is previewed). 

I have attached the updated source code for your use and productivity.  Thanks for all of your suggestions!

    ...
Dim app As New Outlook.Application Dim item As Object If app.ActiveInspector Is Nothing Then If app.ActiveExplorer.IsPaneVisible(olPreview) Then Set item = app.ActiveExplorer.Selection.item(1) End If Else Set item = app.ActiveInspector.CurrentItem End If If item Is Nothing Then Exit Sub If item.Class <> olMail Then Exit Sub
....