این هم یه برنامه دیگه که خودم شخصاً اونو چک کردم و 100% جواب میده .
کد:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim objCDOSYSCon
Dim strEmail, strWebsite, strAttachment
Dim PadAttachment
Response.Write "From: " & strEmail & "<br />"
Response.Write "From: " & strWebsite & "<br />"
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.YourDomain.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "FromEmail@Domain.com"
objCDOSYSMail.To = "YourEmail@YourDomain.com"
objCDOSYSMail.Subject = "Application Help"
objCDOSYSMail.TextBody = "Email Test"
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Response. Write " Massege Sended"
%>