Outlook Technologies

Outlook Forms

Languages

Samples

More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

share code 02-Sep-2010 22:32

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: beginner Code area: Basic Outlook Printer Friendly Version
Title: Auto-reply with headers
Description: A bit of a hack I threw together to reply to a message (using a Rule) with the subject 'Delay Test', and include full headers. This is the Outlook portion of another hacked up script that monitors delays in email sending/receiving. This was actually my first VBA (and VB) project, so it is quite sloppy.
Date: 29-May-2003 01:04
Code level: beginner
Code area: Basic Outlook
Posted by: Corey Gilmore
Body: ' Requires Outlook Redemption, http://www.dimastr.com/redemption/ ' OutlookSpy is also useful http://www.dimastr.com/outspy/ ' Review Redemption license requirements before using it Public Sub SendHeaders(incItem As Outlook.MailItem) Dim SafeItem, oItem, sincItem Set sincItem = CreateObject("Redemption.SafeMailItem") sincItem.Item = incItem PrEmail = &HC1F001E 'Recipients Email PrHeaders = &H7D001E 'Message Headers Set SafeItem = CreateObject("Redemption.SafeMailItem") Set oItem = Application.CreateItem(0) 'Create a new message SafeItem.Item = oItem SafeItem.Recipients.Add sincItem.Fields(PrEmail) 'Compose new message SafeItem.Recipients.ResolveAll SafeItem.Subject = "Delay Test" ' Generic Subject SafeItem.Body = sincItem.Fields(PrHeaders) 'Add the headers to the body SafeItem.Send 'For some reason messages are sitting in the Drafts folder, lets mimic a Send/Receive click Set Btn = Application.ActiveExplorer.CommandBars.FindControl(1, 5488) Btn.Execute MAPIUtils.Cleanup 'Release the MAPI session - now! End Sub
All 0comments

name email