Thanks so much to your help
I have completed a sent email to anybody.
but it sent to spam.that i sent it by yahoo.com
and then i change to gmail.com
so is good
can you help me to send email to yahoo.com
<%
'hd=request.Form("hd")
'if hd="1" then
Senderfirstname=Request.Form("firstname")
SenderlastName=Request.Form("lastname")
SenderEmail=Request.Form("email")
SenderPhone=Request.Form("phone")
Sendercbxsubject=Request.Form("cbxsubject")
Sendertxtsubject=Request.Form("txtsubject")
Sendernote=Request.Form("note")
MailTo = "
[email protected]" 'Goi cho dia chi email nay
ChuDe = "Thong tin lien lac - "
NoiDung = "THONG TIN LIEN LAC" & VbCrLf & VbCrLf
NoiDung = NoiDung & "1. Thong tin nguoi lien lac:" & VbCrLf
NoiDung = NoiDung & "First: " & Senderfirstname & VbCrLf
NoiDung = NoiDung & "Last Name: " & SenderlastName & VbCrLf
NoiDung = NoiDung & "Email: " & SenderEmail & VbCrLf
NoiDung = NoiDung & "Phone: " & SenderPhone & VbCrLf
NoiDung = NoiDung & "Subject: " & Sendercbxsubject & VbCrLf
NoiDung = NoiDung & "Subject Name: " & Sendertxtsubject & VbCrLf
NoiDung = NoiDung & "2. Noi dung lien lac:" & VbCrLf
NoiDung = NoiDung & "Comment: " & Sendernote & VbCrLf
DIM oMail, Flds, oMailConfig
Set oMail = Server.CreateObject("CDO.Message")
Set oMailConfig = CreateObject("CDO.Configuration")
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMailConfig.Fields.Update
Set oMail.Configuration = oMailConfig
oMail.From = SenderEmail
oMail.To = MailTo
oMail.Subject= ChuDe
oMail.TextBody = NoiDung
oMail.Send
Set oMail = Nothing
Set oMailConfig = Nothing
' id="thanks"
' else
' id="fail"
' end if
%>