Click here to Skip to main content
12,076,925 members (46,391 online)
Click here to Skip to main content

Stats

89.2K views
931 downloads
26 bookmarked
Posted

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
  		.Update
	End With


    ' save changes to the mail
    Msg.Datasource.Save

    ' continue with the next event sink
    EventStatus = cdoRunNextSink

End Sub

</SCRIPT>

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.

License

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

Share

About the Author

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

You may also be interested in...

| Advertise | Privacy | Terms of Use | Mobile
Web01 | 2.8.160212.1 | Last Updated 27 Dec 2002
Article Copyright 2002 by Dan_P
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid