Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Read Open Active Outlook Message

 Keywords:  Read Currently Open Active Outlook Message Email Inspector ActiveInspector

---

Question:

I'm not familiar with OLE but I'd like to make a list of the attachments in an open Outlook message. Could someone help me get started?

Answer:

The ActiveInspector method returns the topmost Inspector object on the desktop. If no inspector is active, returns 0. Use this method to access the Inspector object that the user is most likely to be viewing.

For Example:

objApp = ObjectCreate("Outlook.Application")
objInspector = objApp.ActiveInspector
olMail = 43
;Check for active inspector
If objInspector!=0
   objCurrItem = objInspector.CurrentItem
   class = objCurrItem.Class
   ;Check if message item
   If objCurrItem.Class == olMail
      Sender = objCurrItem.SenderName
      Body = objCurrItem.Body
      objAttachments =  objCurrItem.Attachments
      count = objAttachments.Count
      For i = 1 To count
       objAttach = objAttachments.Item(i)
       filename = objAttach.FileName
       Pause('Attachment ': i, filename)
      Next

      Message(Sender,Body)
   Else
      Message("Error","Not a Mail Item")
   EndIf

Else
   Message("Error","No Active Inspector")
EndIf
objInspector = 0
objApp = 0
Exit

---

Article ID:   W18094

Filename:   Read Open Active Outlook Message.txt

File Created: 2010:06:21:10:26:58

Last Updated: 2010:06:21:10:26:58