Click here to Skip to main content
12,997,185 members (75,032 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

Const adCmdStoredProc = &H0004
Const adVarChar = 200
Const adWChar = 130
Const adParamInput = &H0001

Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
    On Error Resume Next 

	Dim objConnection, objCommand, strConnection, intLen
	Dim strBody, strToEmail, strFromEmail, strSubject

	strToEmail = Msg.To
	strFromEmail = Msg.From
	strSubject = Msg.Subject
	strBody = Msg.TextBody

	If strBody <> "" Then
		intLen = Len(strBody) + 1
		intLen = 1
	End If

	'need to change the following line
	strConnection = "Provider=SQLOLEDB;SERVER=localhost;Initial Catalog=databaseName;User ID=;Password=;"

	Set objConnection = CreateObject("ADODB.Connection")
	Set objCommand = CreateObject("ADODB.Command")

	Call objConnection.Open(strConnection)

	objCommand.ActiveConnection = objConnection
	objCommand.CommandType = adCmdStoredProc
	objCommand.CommandText = "spAddBouncedEmail"

	objCommand.Parameters.Append objCommand.CreateParameter("ToEmail", adVarChar, adParamInput, 255, strToEmail)
	objCommand.Parameters.Append objCommand.CreateParameter("FromEmail", adVarChar, adParamInput, 255, strFromEmail)
	objCommand.Parameters.Append objCommand.CreateParameter("Subject", adVarChar, adParamInput, 255, strSubject)
	objCommand.Parameters.Append objCommand.CreateParameter("Body", adWChar, adParamInput, intLen, strBody & " ")

    ' 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.170622.1 | Last Updated 27 Dec 2002
Article Copyright 2002 by Dan_P
Everything else Copyright © CodeProject, 1999-2017
Layout: fixed | fluid