home | get Sue’s code | forums | share code | registration

Outlook Technologies

Outlook Forms

Languages

Samples

More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

share code 09-Feb-2010 10:05

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: Set properties on outgoing messages
Description: Sometimes you might want to set a category or a follow-up flag or set an outgoing message so that it Outlook doesn't save a copy in the Sent Items folder. The Application.ItemSend event is used for this; it fires whenever you send an item. The code below suggests ways you might use this.
Date: 29-Apr-2003 23:38
Code level: beginner
Code area: Basic Outlook
Posted by: Sue Mosher
Body: Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim intRes As Integer Dim strMsg As String ' removes any categories in outgoing items Item.Categories = "" ' re If Item.Class = olMail Then ' asks user if they want to keep the message locally strMsg = "Do you want to keep a copy of this message in Sent Items?" intRes = MsgBox(strMsg, vbYesNoCancel + vbDefaultButton1, "Keep Copy?") Select Case intRes Case vbNo Item.DeleteAfterSubmit = True Case vbCancel Cancel = True Case vbYes ' default behavior -- nothing to change End Select ' set a follow-up flag for important messages for 1 day from now If Item.Importance = olImportanceHigh Then Item.FlagStatus = olFlagMarked Item.FlagDueBy = Now + 1 Item.FlagRequest = "Respond" End If End If End Sub
All 37comments

	Page [ 1 2 3 4 Next >> ]
	Dorothy 02-May-2003 23:16 I am the Beginner of Outlook programming. I copy the code to the Script Editor. When the form runs, an error message(Expected ")" Line:1) popped up. I don't know how to fix and don't understand why use Private. I found this function is so useful. However, I am turning around. Please teach me.
	Dorothy 02-May-2003 23:38 Oh, I know what's wrong. I should put the code in Macro. Thanks.
	Dorothy 05-May-2003 04:05 I love your book and it's fantantic. Although I follow the rules on Ch18.2 to convert above code to VBScript, I have problem. Can you show above sample in VBScript? Please Please.
	Sue Mosher 07-May-2003 17:46 Application_ItemSend is a VBA event handler. The above code is designed for use in the built-in ThisOutlookSession module in Outlook VBA, so that it runs against all outgoing items. It's not intended for use in a custom Outlook form.
	Sue Mosher 28-May-2003 19:15 Sorry, Dorothy, I meant to also ask just what you're trying to do with your outgoing items. I bet there's a way to make a script for whatever that might be.
	simmy 10-Jul-2003 06:38 is there a way to set/retrieve the sender name in Itemsend? All i get is an empty string for SenderName.
	Sue Mosher 17-Jul-2003 17:14 You can set the SendOnBehalfOfName, but that only really does the trick in an Exchange environment where you have SendAs or SendOnBehalfOf permission for the other user.
	Praveen 30-Jul-2003 12:19 Is there a way to copy the outgoing messages into a folder of a different mailbox?
	Sue Mosher 08-Aug-2003 06:08 Praveen, you would need to use a different event for that -- MAPIFolder.Items.ItemAdd where the folder is the sending user's Sent Items folder.
	Pat Ramadass 16-Sep-2003 06:15 How would you go about getting the MAPI properties of a message before it gets sent?
	Page [ 1 2 3 4 Next >> ]

name email

Search Outlook Code