كمك براي ايميل

[amirlol]

سلام دوستان من از يك سرور اي هاست دارم !!
براي ايميل گفتن از زير استفاده كنم كمك ام كنيد



PLease use this function

=========================================
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
Set mailobj = Nothing
end function
===============================