ارسال ایمیل

[www.rayanehkhabar.com]

کسی می تونه یک کد برای ارسال ایمیل بده البته از CDONT استفاده نکنه.

[3nitro]

http://www.barnamenevis.org/forum/showpost.php?p=114216&postcount=7
http://www.barnamenevis.org/forum/showpost.php?p=127034&postcount=4

[dr-solomons]

اگه با persites.sender خواستی بگو بت بدم

[www.rayanehkhabar.com]

اگر توضیح بدی ممنون می شم.

[dr-solomons]

dim mailobj
Set mailobj = Server.CreateObject("Persits.MailSender")
With mailobj
.Host = "khabarchin.com"
.Username = "khabarchin@khabarchin.com"
.Password = "pass"
.IsHTML = true
.From = FromAddres
.AddAddress ToAddres
.Subject = Subject
.Body = Body
.Charset = "windows-1256"
.ContentTransferEncoding = "Quoted-Printable"
.send
End With
Set mailobj = Nothing