gopyqdhc
Dim Sender Dim EmailSender Dim ToBody Dim Subject Dim Content Dim Phone Dim EmailTo Dim ml Sender=Trim(Request.Form("fullname")) EmailSender=Trim(Request.Form("email")) ToBody="quydinhhanhchinh@tphcm.gov.vn" Subject=Trim(Request.Form("subject")) //EmailTo=Trim(Request.Form(emailto)) Content=Replace(Request.Form("content"),vbNweLine,"") Phone=Request.Form("phone") If Request("SEND")<>"" Then Set ml=CreateObject("CDONTS.NewMail") ml.Form=sender&<"&EmailSender&">" ml.To=EmailTo ml.MailFormat=0 ml.BodyFormat=0 ml.Subject=Trim(Request.Form("subject")) ml.Body=Content ml.Importance=1 ml.Send Set ml=nothing Next End If
