Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,028

HOME > ASP > ASP Forum > การส่งเมล ทำไงดี <% Set SMTPObj = CreateObject("ThaiCreate.SMTP") 192.168.1.1234 Set SMTPObj = CreateObject

การส่งเมล ทำไงดี <% Set SMTPObj = CreateObject("ThaiCreate.SMTP") 192.168.1.1234 Set SMTPObj = CreateObject

เริ่มหัวข้อใหม่

Guest

<%
Set SMTPObj = CreateObject("ThaiCreate.SMTP") ' เป็น Component ที่ใช้ส่งเมล์
SMTPObj.SMTPServer = "Mail.ThaiCreate.com" ' mail server
SMTPObj.ToAdd = "[email protected]"
SMTPObj.FromAdd = "[email protected]"
SMTPObj.Subject = "ทดสอบการส่งเมล์"
SMTPObj.Body = "ได้รับแล้วตอบเมล์ด้วยเด้อ"
SMTPObj.Connect
result = SMTPObj.EMail
Response.write "Sent " & result
SMTPObj.Quit
%>
จากโค้ดด้านบนนี้ถ้าเปลี่ยนเป็น หมายเลข SMTP ตรง ๆ เลยได้หรือเปล่าเช่น

192.168.1.1234
Set SMTPObj = CreateObject("192.168.1.1234") ถ้าไงก็ตอบหน่อยนะครั

Tag : - - - -

Date : 9 มี.ค. 2548 14:20:44

By : ผู้น้อย

View : 3649

Reply : 3

No. 1

gototon

โพสกระทู้ ( 96 )
บทความ ( 0 )

ผมไม่เคยใช้ของที่นี่นะ แต่ผมมีของผมเองอ่ะ
ลองเอาไปดู
อันนี้ของ NT,2000 นะครับ

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

With objCDOMail
.From = strFrom
.To = strUser& " <" & strEmail & ">"
.Subject = strSubject
.Body = strBody
.Send
End With
Set objCDOMail = Nothing

ส่วน xp

Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
With objCDOSYSCon
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMail_server
.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

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = strBoard_name & " <" & strBoard_email_address & ">"
objCDOSYSMail.To = strUser & " <" & strEmail & ">"
objCDOSYSMail.Subject = strSubject
objCDOSYSMail.TextBody = strBody
objCDOSYSMail.Send

หรือ jmail

smtpServer = "smtp.yourSMTPServerNameHere.com" ' ชื่อของเมล์เซิร์ฟเวอร์

smtpPort = 25

dim sender, subject, body, smtpServer, smtpPort

Now gets the data from Form

Set mail = CreateObject ("JMail.SMTPMail")

mail.ServerAddress = smtpServer & ":" & smtpPort

mail.Sender = strfrom

mail.Subject = strsubject

mail.AddRecipient strUser& " <" & strEmail & ">"

mail.ContentType = "text/html" ' or you can put 'text/plain' for plain text email

mail.ISOEncodeHeaders = false

mail.ContentTransferEncoding = "8bit"

mail.Body = strbody

Date : 9 มี.ค. 2548 18:19:34

By : gototon

No. 2

Guest

ขอบคุณครับแล้วจะลองทำดูก่อนครับ

Date : 9 มี.ค. 2548 23:48:25

By : ผู้น้อย

No. 3

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

ASP Send Mail

Date : 2009-04-26 10:48:20

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : การส่งเมล ทำไงดี <% Set SMTPObj = CreateObject("ThaiCreate.SMTP") 192.168.1.1234 Set SMTPObj = CreateObject

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก