پرنده کوچک
چهارشنبه 15 مهر 1383, 23:19 عصر
ادمین هاستم میگه از JMail پشتیبانی میکنیم ( فقط JMail در سرویسهای مشابه ، پس نگید که مثلا از CDONTS یا غیره استفاده کن !! )
حالا من همچین کدی را نوشته ام :
Dim smtpServer , sender , receiver , subject , body , smtpPort , mail , bSuccess
smtpServer = "mail.x.net"
smtpPort = 25
sender = Request.Form("sender")
receiver = "webmaster@y.com"
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
وقتی اجرا میشود پیغام عدم موفقیت را میدهد : ( قسمت Else )
An error occurred, the email was not sent.
حالا من چکار کنم ؟؟!!
حالا من همچین کدی را نوشته ام :
Dim smtpServer , sender , receiver , subject , body , smtpPort , mail , bSuccess
smtpServer = "mail.x.net"
smtpPort = 25
sender = Request.Form("sender")
receiver = "webmaster@y.com"
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
وقتی اجرا میشود پیغام عدم موفقیت را میدهد : ( قسمت Else )
An error occurred, the email was not sent.
حالا من چکار کنم ؟؟!!