README.md

December 5, 2022 · View on GitHub

CDO Mailer Script

Description

Kept getting an error with ASP that I couldnt debug. So I came across this script. also ported it to PHP aswell. Hope its useful to someone as it was me.

More Info

Submitted On
By�e7eN
LevelBeginner
User Rating3.8 (15 globes from 4 users)
CompatibilityASP (Active Server Pages)
CategoryMiscellaneous
WorldASP / VbScript
Archive File

Source Code

<%
Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
with objCDOSYSCon
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
	.Fields.Update
end with
with objCDOSYSMail
	Set .Configuration = objCDOSYSCon
	.From = "email@address.com"
	.To = "email@address.com"
	.Subject = "Insert Subject"
	.HTMLBody = "Insert Body"
	.Send
end with
Response.Write "Your email has been sent."
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>