Click here to Skip to main content
12,752,054 members (30,640 online)
Click here to Skip to main content


26 bookmarked
Posted 22 Dec 2002

SMTP Server Transport Events - Simple Scripting

, 26 Dec 2002
An article on SMTP Server Events
<SCRIPT language="VBScript">
On Error Resume Next

Const cdoRunNextSink = 0

Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)

    On Error Resume Next 

	Set Flds = Msg.Fields
	With Flds
  		.Item("urn:schemas:httpmail:messageflag") = True
  		.Item("urn:schemas:mailheader:x-message-flag") = True
	End With

    ' save changes to the mail

    ' continue with the next event sink
    EventStatus = cdoRunNextSink

End Sub


By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

Web Developer
Australia Australia
I've been programming for a few years now. I blog regularly at httpcode.

You may also be interested in...

Permalink | Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.170217.1 | Last Updated 27 Dec 2002
Article Copyright 2002 by Dan_P
Everything else Copyright © CodeProject, 1999-2017
Layout: fixed | fluid