مشاهده نسخه کامل
: ارسال ایمیل با Asp
من میخواهم یک فرم ارسال ایمیل بسازم اگه کسی میتونه کمک کنه یا اماده اش رو برام بزاره
اقایون چرا من هر سوال می پرسم کسی جوابم رو نمیده به خدا ما اعضای جدید هم دل داریم
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
<%
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.