سلام
آقا رفتم از يكجا هاست گرفتم كه مي‌گه براي ارسال ميل بايد از jmail استفاده كنيد.
بنده از اين روش استفاده كردم اما متاسفانه جواب نداد!
[align=left:63c71e2eb9]Function jmail([align=right]sender, subject, body, receiver)
Dim smtpServer, smtpPort, mail
smtpServer = "test.com"
smtpPort = 25
Set mail = CreateObject ("JMail.SMTPMail")
mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = sender
mail.Subject = subject
mail.AddRecipient receiver
mail.ContentType = "text/html" ' or you can put 'text/plain' for plain text email
mail.ISOEncodeHeaders = false
mail.ContentTransferEncoding = "8bit"
mail.Body = body
mail.Priority = 3
mail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
mail.Execute
set mail = nothing
Response.write "Email sent OK!"
End Function[/align:63c71e2eb9]
در صورت امكان راهنمايي كنيد٬ خيلي خيلي گيرم!
آقا رفتم از يكجا هاست گرفتم كه مي‌گه براي ارسال ميل بايد از jmail استفاده كنيد.
بنده از اين روش استفاده كردم اما متاسفانه جواب نداد!
[align=left:63c71e2eb9]Function jmail([align=right]sender, subject, body, receiver)
Dim smtpServer, smtpPort, mail
smtpServer = "test.com"
smtpPort = 25
Set mail = CreateObject ("JMail.SMTPMail")
mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = sender
mail.Subject = subject
mail.AddRecipient receiver
mail.ContentType = "text/html" ' or you can put 'text/plain' for plain text email
mail.ISOEncodeHeaders = false
mail.ContentTransferEncoding = "8bit"
mail.Body = body
mail.Priority = 3
mail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
mail.Execute
set mail = nothing
Response.write "Email sent OK!"
End Function[/align:63c71e2eb9]
در صورت امكان راهنمايي كنيد٬ خيلي خيلي گيرم!
