PDA

نسخه کامل مشاهده نسخه کامل : ارسال ایمیل با Asp


OmId68
22-12-2006, 01:32
من میخواهم یک فرم ارسال ایمیل بسازم اگه کسی میتونه کمک کنه یا اماده اش رو برام بزاره
OmId68
23-12-2006, 22:54
اقایون چرا من هر سوال می پرسم کسی جوابم رو نمیده به خدا ما اعضای جدید هم دل داریم
mehdi_ag
06-03-2007, 10:59
ببين اين كدهاي ASP كارت رو راه مي ندازه؟

البته به جاي متن هايي كه BOLD نوشته شده بايد اطلاعات مربوطه رو وارد كني يا اينكه توسط يه فرم ديگه كه Submit‌ميشه اطلاعات رو به اين صفحه منتقل كني و اينجا بخونيشون.

(اميدوارم كار بده :blush: )




%>
Set objEmail = CreateObject("CDO.Message")
objEmail.BodyPart.Charset = "utf-8"
objEmail.From = "Somone@Somedomain.com"
objEmail.To = "Otherone@Somedomain.com"
objEmail.Subject = "Some Subject"
strText = "Some Text"
objEMail.HTMLBody = strText
objEmail.Configuration.Fields.Item("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = 2
objEmail.Configuration.Fields.Item("[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]") = "127.0.0.1"
objEmail.Configuration.Fields.Update
objEmail.TextBodyPart.Charset = "utf-8"
objEmail.HTMLBodyPart.Charset = "utf-8"
objEmail.Send
<%