mohsen57
کاربر تازه وارد
- تاریخ عضویت
- 24 نوامبر 2005
- نوشتهها
- 307
- لایکها
- 1
این یک کد برای ارسال ایمیل هست چجوری باید ازش استفاده کنم:
کد:
Public Function SendEmail (Byref FromAddres,Byref ToAddres,Byref Subject,Byref Body) dim mailobj
Set mailobj = Server.CreateObject("Persits.MailSender")
With mailobj
.Host = "XXXX.com"
.Username = "[email protected]"
.Password = "XXXXX"
.IsHTML = true
.From = FromAddres
.AddAddress ToAddres
.Subject = Subject
.Body = Body
.send
End With