อยากได้ code ของ asp ที่ถูกต้อง โดยใช้ cdonts เพื่อทำ AutoResponseEmail ผมทดลองเขียนดูตามตัวอย่างข้างล่างนี้ ปรากฏว่าไม่ทำงาน และไม่มี error ใครก็ได้ช่วยผมทีครับ
<html>
<head></head>
<body>
<%
Vemail = "[email protected]"
VuserName= "Mr.Test"
VuserSname = " Exampleman"
Vwebaddress = "www.hotmail.com"
Vuserid = "abc"
Vpassword = "12345"
bodytxt = "Dears " & VuserName & " " & VUserSname & "<br><br>"
bodytxt = bodytxt & "Congraturations! " & "<br><br>"
bodytxt = bodytxt & "You have successfully registered to access our Web Photo Gallery at "
bodytxt = bodytxt & "<b>" & Vwebaddress & "</b>"
bodytxt = bodytxt & " Please find below your log-in name and password to enable you to access our gallery:"
bodytxt = bodytxt & "<br><br>" & "User Login : " & Vuserid
bodytxt = bodytxt & "<br>" & "Password : " & Vpassword
bodytxt = bodytxt & "<br><br>" & "Kindly note the above information down. We hope you enjoy downloading our images."
bodytxt = bodytxt & "<br><br>" & "Thank you and best regards" & "<br><br>" & "Six Senses Hotels Resorts and Spas"
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = "[email protected]"
CDOMail.To= Vemail
CDOMail.Subject = "Welcome to www.Sixsenses.com"
CDOMail.Body= bodytxt
CDOMail.Importance=2
CDOMail.Send
set CDOMail= nothing
%>
</body>
</html>
ขอขอบพระคุณอย่างสูงครับสำหรับผู้แนะนำ
Tag : - - - -
Date :
1 Apr 2546 03:02:19
By :
HelpMe,Please !
View :
3354
Reply :
2
No. 1
Guest
คอยมานานแสนนาน.. เห็นล่องรอยแต่ผู้เข้ามาเยี่ยมชมไม่มีใครกรุณาเลย ผมยังหาสาเหตุไม่เจอแต่ตอนนี้ผมมาใช้ JMAIL แล้ว work โลดครับ source code ของ JMAIL ที่ผมไปหามาจาก web มีดังนี้ครับ ซึ่งก็ work แล้วครับ แต่มีข้อแม้ว่า server ที่คุณใช้จะต้องลง JMAIL ไว้ด้วยนะครับ
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "mail.<your domain here>"
' This is me....
JMail.Sender = "[email protected]"
JMail.Subject = "Here you go..."
' Get the recipients mailbox from a form.
JMail.AddRecipient Request.Form("email")
' The body property is bodth read and write.
' If you want to append text to the body you can
' use JMail.Body = JMail.Body & "Hello world!"
' or you can use JMail.AppendText "Hello World!"
' which in many cases is easier to use.
JMail.Body = "Here you go. Your request has been approved"
_
"and the program is attached to this message"
' Must make sure that IUSR_???? has access to the following files.
JMail.AppendBodyFromFile "e:\mail\standard_footer.txt"
JMail.AddAttachment "e:\products\MyProduct.exe"
' Send it...
JMail.Execute
%>
หมายเหตุกรณีไม่ทราบว่า JMAIL เขาลงใน SERVER ให้เราหรือไม่ ลองเขียนโปรแกรมเช็ค version ดูนะครับดังนี้
<%
set mail = server.CreateObject("JMail.SMTPMail")
Response.Write mail.Version
%>
หากขึ้นเลขมาแสดงว่าเราสามารถใช้ JMAIL ได้ครับผม ขอให้เพื่อน ๆ ทดลองดูนะครับ
Load balance : Server 04
