ادمين هاستم ميگه از JMail پشتيباني ميكنيم ( فقط JMail در سرويسهاي مشابه ، پس نگيد كه مثلا از CDONTS يا غيره استفاده كن !! )
حالا من همچين كدي را نوشته ام :
وقتي اجرا ميشود پيغام عدم موفقيت را ميدهد : ( قسمت Else )
حالا من چكار كنم ؟؟!!
حالا من همچين كدي را نوشته ام :
کد:
Dim smtpServer , sender , receiver , subject , body , smtpPort , mail , bSuccess
smtpServer = "mail.x.net"
smtpPort = 25
sender = Request.Form("sender")
receiver = "[email protected]"
subject = Request.Form("subject")
body = Request.Form("body")
Set mail = CreateObject ("JMail.SMTPMail")
mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = sender
mail.Subject = subject
mail.AddRecipient receiver
mail.ContentType = "text/plain"
mail.ISOEncodeHeaders = false
mail.ContentTransferEncoding = "8bit"
mail.Body = body
mail.Priority = 3
mail.Silent = True
bSuccess = mail.Execute()
If bSuccess = False Then
Response.Write "<p> An error occurred, the email was not sent. </p>"
Else
Response.Write "<p> Thank you , your email was sent . </p>"
End If
set mail = nothing
کد:
An error occurred, the email was not sent.