How to auto send an email using asp classic.

rjlorenzo

Hi Everyone,

I'm just a beginner on asp, just want to ask for the help on how I could do to have a auto email send on my program. Just please give me some basic codes like if the user click OK then it will automatic send a email to specific email address with subject "thank you" and body text "please reply"

thank you in advance for the help

RJ

rjlorenzo

Hi in additon i did this but the problem is i did not received the email. please help. thanks

Expand|Select|Wrap|Line Numbers

 Dim myMail
 
Set myMail=CreateObject("CDO.Message")
 
myMail.Subject="Sending email with E2E"

myMail.From="mymail1@ab.com.ph"

myMail.To="mymail@ab.com.ph"

myMail.TextBody="This is a message."

myMail.Send

set myMail=nothing

CroCrew

Hello rjlorenzo,

Here is a one page example that you can use/tweak.

Page is called: ThisPage.asp

Expand|Select|Wrap|Line Numbers

 
<% 

    If (Request.Form("xSendMessage")) Then 

        Set myMail=CreateObject("CDO.Message") 

        myMail.Subject = Request.Form("xSubject") 

        myMail.From = "Billy@billy.com" 'Place an email address here so when someone replies to this email you will get it. 

        myMail.To = Request.Form("xEmail") 

        myMail.TextBody = Request.Form("xMessage") 
 
        On Error Resume Next  

           myMail.Send     

           If Err <> 0 Then  

              Response.Write("<h3><Font Color='#FF0000'>Error occurred: <i>" & Err.Description & "</i></Font></h3>") 

           else 

              Response.Write("Your message was sent successfully.") 

           End If 

    End If 

%> 

<html> 

    <head> 

        <title>Example</title> 

    </head> 

    <body> 

        <form method="post" action="ThisPage.asp" name="xForm" id="xForm"> 

            <input type="hidden" name="xSendMessage" value="true"> 

            Full Name: <input type="text" name="xName" size="50"><br> 

            Email: <input type="text" name="xEmail" size="50"><br> 

            Subject: <input type="text" name="xSubject" size="50"><br> 

            Message: <textarea name="xMessage" cols="50" rows="5"></textarea><br> 

            <input type="submit" value="submit"> 

        </form> 

    </body> 

</html>

If you get an error this should tell you why.

Hope this helps,
CroCrew~

rjlorenzo

Hi thanks you for reply, still didn't recieved the mail and no error message or successful message display. see my complete code below.

Expand|Select|Wrap|Line Numbers

 
if grp <> act_stage then
 
Dim myMail

Set myMail=CreateObject("CDO.Message")  

        myMail.Subject = "testing auto email"  

        myMail.From = "ab@xxx.com.ph"   

        myMail.To = "cd@xxx.com.ph"  

        myMail.TextBody = " e2e TMS auto email testing if stage to other group"
 
        On Error Resume Next   

           myMail.Send      

           If Err <> 0 Then   

              Response.Write("<h3><Font Color='#FF0000'>Error occurred: <i>" & Err.Description & "</i></Font></h3>")  

           else  

              Response.Write("Your message was sent successfully.")  

           End If  
 
set myMail=nothing

end if
 
response.redirect ("prs_editrec.asp?user="&user&"&recnum="&recnum)

CroCrew

It could be that your ISP is blocking the email. Also, check your spam folder.

CroCrew~

gcube

Try changing line 4 to:

Expand|Select|Wrap|Line Numbers

Set myMail = CreateObject("CDONTS.Newmail")

How to auto send an email using asp classic.

re: How to auto send an email using asp classic.

re: How to auto send an email using asp classic.

re: How to auto send an email using asp classic.

re: How to auto send an email using asp classic.

re: How to auto send an email using asp classic.

Similar ASP / Active Server Pages bytes

/bytes/development

/bytes/it

/bytes/about