sent email

[phuc2583]

how to send email to one or two person
this is my code:
please help me to check my code:
<%
SenderName=Request.Form("name")
SenderEmail=Request.Form("email")
SenderPhone=Request.Form("phone")
Sendernote=Request.Form("note")
MailTo = "[e-mail]"
mail ="[e-mail]"
note= "Name - " & SenderName
s= "THONG TIN LIEN LAC" & VbCrLf & VbCrLf
s= s& "1. Information:" & VbCrLf
s= s& "Name: " & SenderName & VbCrLf
s= s& "Email: " & SenderEmail & VbCrLf
s= s& "Phone: " & SenderPhone & VbCrLf
s= s& "2. infor:" & VbCrLf
s= s& Sendernote & VbCrLf & 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.To = mail
oMail.Subject= ChuDe
oMail.TextBody = NoiDung
oMail.Send
Set oMail = Nothing
Set oMailConfig = Nothing
%>
when i submit that i don't see email in my box

[CroCrew]

Hello phuc2583,

Here is an example on how to send to more then one recipient via CDO. You can apply the changes to your code.

Hope this helps~

<%
    Set myMail = CreateObject("CDO.Message")
    myMail.Subject = "Sending email with CDO"
    myMail.From = "[e-mail]"
    myMail.To = "[e-mail];[e-mail]"
    myMail.TextBody = "This is a message."
    myMail.Send
    set myMail=nothing
%>
 

[phuc2583]

Thanks so much to your help me.
I have accomplished it
Regards
Hoang Phuc