Database Search

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.

ObjectEventAdd To Capture ItemSend Event

 Keywords: Outlook Event ObjectEventAdd Capture ItemSend Attachments 

Question:

Any help would be greatly appreciated.

Answer:

Here is my attempt a coding up a WinBatch script that sits waiting for a user to attempt to send a message in Outlook. Note this code expects Outlook to already be running.

; How to cancel the ItemSend event in response to user input.
; NOTE the ObjectEventAdd routine must be called before the event procedure can be called by Microsoft Outlook.

#DefineFunction myOlApp_ItemSend(objItem,0)
   subject =  objItem.Subject
   Pause('Event Notification','User is sending an email, add code here to remove attachments')
   Pause('Email subject is', subject)
   Return
#EndFunction

;Assume running copy of Outlook
myOlApp = ObjectGet(,"Outlook.Application")

; Event Add
ObjectEventAdd(myOlApp, "ItemSend", "myOlApp_ItemSend")

; Loop until the email is sent by the user in Outlook or until the Esc key is pressed
BoxOpen("Waiting for a registry key to change.", "Press ESC key to quit")
While 1
   If WaitForKeyEX("{ESC}", 1) == 1
      Break ; Esc key pressed
   EndIf
EndWhile
BoxShut()

; Remove the event.
ObjectEventRemove(myOlApp, "ItemSend")

; cleanup
myOlApp = 0
Exit

Now for deleting the attachments: the Outlook 'Attachment Object' 'Delete method' looks interesting: http://msdn.microsoft.com/en-us/library/bb175152(office.12).aspx

This section of the tech database has lots of Outlook Com examples. Maybe you can find one that will help get you started: http://techsupt.winbatch.com/webcgi/webbatch.exe?techsupt/nftechsupt.web+WinBatch/OLE~COM~ADO~CDO~ADSI~LDAP/OLE~and~Outlook

Article ID:   W18093

Filename:   ObjectEventAdd To Capture ItemSend Event.txt

File Created: 2014:07:18:09:51:38

Last Updated: 2014:07:18:09:51:38