send an email to someone automatically

crmpicco · February 24th, 2005, 12:34 PM

How do i send an email to someone automatically if a condition is reached?

Can this be done with ASP?

Picco

www.crmpicco.co.uk

om_prakash · February 24th, 2005, 01:18 PM

yes u can send email automatically....

u can use CDONTS to send email

Om Prakash

mat41 · February 24th, 2005, 06:19 PM

For further information throw 'cdonts example' in google - there is a feast of information about this.
NOTE : The smtp service must be enabled

dim myMail,mssge
set myMail = server.createObject("CDONTS.NewMail")
myMail.body = "message string"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.Subject = "SomeText"
myMail.importance = 2
myMail.BodyFormat = 0
myMail.send
set myMail = nothing

Wind is your friend
Matt

crmpicco · February 25th, 2005, 05:33 AM

I put that in a new asp file but get error:

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/picco/smtp.asp, line 11

Line 11:

set myMail = server.createObject("CDONTS.NewMail")

www.crmpicco.co.uk

surendran · February 25th, 2005, 06:24 AM

hi,
are you using xp?
pls try this code

<%
Dim MyMail
Set MyMail = Server.CreateObject("CDO.Message")
MyMail.From = "[email protected]"
MyMail.To = "[email protected];[email protected]"
MyMail.Cc = "[email protected];[email protected]"
MyMail.Bcc = "[email protected];[email protected]"
MyMail.Subject = "Sending Mail via CDOSYS for Windows 2000/XP"
MyMail.TextBody = "Sending email with CDOSYS Message " &_
"objects is easy! Try it!"
MyMail.AddAttachment "c:pathsmiley.gif"
MyMail.Fields("urn:schemas:httpmail:importance").V alue = 2;
MyMail.Fields.Update()
MyMail.Send()
Set MyMail = Nothing
%>

surendran
(Anything is Possible)

crmpicco · February 25th, 2005, 06:41 AM

Got a new error:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/picco/smtp.asp, line 21, column 58
MyMail.Fields("urn:schemas:httpmail:importance").V alue = 2;

www.crmpicco.co.uk

crmpicco · February 25th, 2005, 07:48 AM

yes i am using WinXp Pro

www.crmpicco.co.uk

crmpicco · February 25th, 2005, 07:49 AM

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim MyMail
Set MyMail = Server.CreateObject("CDO.Message")
MyMail.From = "[email protected]"
MyMail.To = "[email protected];[email protected]"
MyMail.Cc = "[email protected];[email protected]"
MyMail.Bcc = "[email protected];[email protected]"
MyMail.Subject = "Sending Mail via CDOSYS for Windows 2000/XP"
MyMail.TextBody = "Sending email with CDOSYS Message " &_
"objects is easy! Try it!"
MyMail.AddAttachment "c:pathsmiley.gif"
MyMail.Fields("urn:schemas:httpmail:importance").V alue = 2;
MyMail.Fields.Update()
MyMail.Send()
Set MyMail = Nothing
%>

</body>
</html>

Thats all my code. SMTP is running in my services.

But i get this error:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/picco/smtp.asp, line 20, column 58
MyMail.Fields("urn:schemas:httpmail:importance").V alue = 2;

www.crmpicco.co.uk

mat41 · February 26th, 2005, 09:45 PM

does CDONTS not run on XP

Wind is your friend
Matt

shankhan · March 3rd, 2005, 03:10 AM

CDONTS will work. If u have installed Win 2000 Pro on any PC, copy the file CDONTS.dll from its system32 folder and then copy this file to ur Win XP system32 folder and register this DLL file. Command to register this file is, click on run and write there regsvr32 cdonts.dll
hope fully it will solve ur problem.

Zeeshan