Bom galera, estou me virando como posso para fazer um site aqui com alguma coisa em asp para torná-lo mais dinâmico, bom, é um código para enviar e-mails
não está funcionando corretamente ele dá o seguinte erro:
Ocorreu um erro.
O Erro é At least one Recipient, CC or BCC must be entered
o código está assim....
<%
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "meu@email.com.br"
sNameTo = "Movelpar"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")
set mailer = server.createobject("SMTPsvg.Mailer")
Pergunta
Husscoffee
Bom galera, estou me virando como posso para fazer um site aqui com alguma coisa em asp para torná-lo mais dinâmico, bom, é um código para enviar e-mails
não está funcionando corretamente ele dá o seguinte erro:
Ocorreu um erro.
O Erro é At least one Recipient, CC or BCC must be entered
o código está assim....
<%
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "meu@email.com.br"
sNameTo = "Movelpar"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = sNameFrom
Mailer.FromAddress = sEmailFrom
Mailer.RemoteHost = "smtp2.locaweb.com.br"
Mailer.AddRecipient sEmailTo, sNameTo
Mailer.Subject = sAssunto & " - E-mail"
strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
strMsgFooter = sText
Mailer.BodyText = strMsgHeader & strMsgFooter
if Mailer.SendMail then
Response.Redirect "obrigado.asp"
else
Response.Write ("Ocorreu um erro.<BR>")
Response.Write ("O Erro é " & Mailer.Response)
end if
%>
Desde já agradeço
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados