ارسال ایمیل با Asp

[OmId68]

من میخواهم یک فرم ارسال ایمیل بسازم اگه کسی میتونه کمک کنه یا اماده اش رو برام بزاره

[OmId68]

اقایون چرا من هر سوال می پرسم کسی جوابم رو نمیده به خدا ما اعضای جدید هم دل داریم

[mehdi_ag]

ببين اين كدهاي ASP كارت رو راه مي ندازه؟

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

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

%>
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
<%