Click here to Skip to main content
Click here to Skip to main content
Add your own
alternative version
Go to top

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
	Else
		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 & " ")
	
	objCommand.Execute



    ' 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.

| Advertise | Privacy | Mobile
Web03 | 2.8.140905.1 | Last Updated 27 Dec 2002
Article Copyright 2002 by Dan_P
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid