مشاهده نسخه کامل
: arman665
25-02-2009, 14:43
سلام .
میخواستم فایل زیر رو که باید Smtpserver داشته باشیم که ارسال شه بدون تنظیمات smtp ارسال کنم. در ضمن اگه همین smtp رو هم راهنمایی کنید که چجوری باید تنظیمش کنم هم لطف بزرگی کردید. میشه کسی راهنمایی کنه . ممنون میشم اگه بگید باید کجارو ویرایش کنم. در ضمن بگم که asp هست که میخواهم فایل فلشم از طریق این ارسال بشه.:46:
<%
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
smtpServer = "enter your SMTP SERVER HERE"
smtpPort = 25
name = Request("Your_Name:")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("Your_Email:")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
myMail.Configuration.Fields.Item("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 2
myMail.Configuration.Fields.Item("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = smtpServer
myMail.Configuration.Fields.Item("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = smtpPort
myMail.Configuration.Fields.Update
myMail.Send
%>
میخواستم فایل زیر رو که باید Smtpserver داشته باشیم که ارسال شه بدون تنظیمات smtp ارسال کنم. در ضمن اگه همین smtp رو هم راهنمایی کنید که چجوری باید تنظیمش کنم هم لطف بزرگی کردید. میشه کسی راهنمایی کنه . ممنون میشم اگه بگید باید کجارو ویرایش کنم. در ضمن بگم که asp هست که میخواهم فایل فلشم از طریق این ارسال بشه.:46:
<%
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
smtpServer = "enter your SMTP SERVER HERE"
smtpPort = 25
name = Request("Your_Name:")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("Your_Email:")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
myMail.Configuration.Fields.Item("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 2
myMail.Configuration.Fields.Item("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = smtpServer
myMail.Configuration.Fields.Item("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = smtpPort
myMail.Configuration.Fields.Update
myMail.Send
%>