ارسال ایمیل [بایگانی]

aliramazani

جمعه 18 شهریور 1384, 13:15 عصر

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

3nitro

جمعه 18 شهریور 1384, 15:35 عصر

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

dr-solomons

یک شنبه 20 شهریور 1384, 10:22 صبح

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

aliramazani

یک شنبه 20 شهریور 1384, 21:07 عصر

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

dr-solomons

دوشنبه 21 شهریور 1384, 11:59 صبح

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