Outlook 2003 - Reply with Attachments
1. Go to Tools > Macros > Visual Basic Editor 2. Create a new Module 3. Paste the following code: Const TemporaryFolder = 2 Private Function GetCurrentMailItem ( ) As Outlook.MailItem Dim myOlApp As Outlook.Application Set myOlApp = CreateObject ( "Outlook.Application" ) Select Case TypeName ( myOlApp.ActiveWindow ) ' Selection From Inbox Explorer Case "Explorer" Set GetCurrentMailItem = myOlApp.ActiveExplorer.Selection.Item ( 1 ) ' Selection by opening Email Window Case "Inspector" Set GetCurrentMailItem = myOlApp.ActiveInspector.CurrentItem Case Else End Select 'If Not TypeName(GetCurrentItem) = "MailItem" Then ...