من میخواهم یک فرم ارسال ایمیل بسازم اگه کسی میتونه کمک کنه یا اماده اش رو برام بزاره
Printable View
من میخواهم یک فرم ارسال ایمیل بسازم اگه کسی میتونه کمک کنه یا اماده اش رو برام بزاره
اقایون چرا من هر سوال می پرسم کسی جوابم رو نمیده به خدا ما اعضای جدید هم دل داریم
ببين اين كدهاي 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("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
objEmail.Configuration.Fields.Update
objEmail.TextBodyPart.Charset = "utf-8"
objEmail.HTMLBodyPart.Charset = "utf-8"
objEmail.Send
<%