مشاهده نسخه کامل
: Dash_Mosi
05-01-2008, 11:03
سلام .. من میخوام یه فرم ارتباط داشته باشم .. این کد رو که به asp. هست رو گیر آوردم ... چک کنید ببینید درسته ؟
اگه درسته میشه یه فایل بدید که این کد رو بهش مربوط کنم؟ یعنی بزارم رو سایت خودش کار کنه؟
مرسی
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 = "XXXX@XXXX.com"
.Password = "XXXXX"
.IsHTML = true
.From = FromAddres
.AddAddress ToAddres
.Subject = Subject
.Body = Body
.send
End With
Set mailobj = Nothing
end 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 = "XXXX@XXXX.com"
.Password = "XXXXX"
.IsHTML = true
.From = FromAddres
.AddAddress ToAddres
.Subject = Subject
.Body = Body
.send
End With
Set mailobj = Nothing
end function