Erro é At least one Recipient, CC or BCC must ...

[Marrom 0]

Galera

 

Peguei o código de ASPMAIL na seção de códigos do imasters ...

 

Porém o mesmo está dando o seguinte erro: At least one Recipient, CC or BCC must be entered o que pode ser ?

 

código:

 

<%

if request.Form("email") = "" or isNull(request.Form("email")) then

response.write "<font color=red face=verdana size=1><b>Informe o e-mail!</b></font>"

response.End()

else

 

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo

 

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "suporte@mmarrom.com.br"

sNameTo = "MMarrom"

sText = Request.Form("mensagem")

 

'Cria o objeto

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

 

'Host para envio de emails

Mailer.RemoteHost = "smtp2.locaweb.com.br"

Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = "E-mail"

 

'Monta a texto para o envio

strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = sText

'& vbCrLf & "Telefone:" & vbCrLf & sTel & vbCrLf & "Empresa:" & vbCrLf & sEmpresa

Mailer.BodyText = strMsgHeader & strMsgFooter

 

' Se for enviado mostrar mensagem

if Mailer.SendMail then

response.write "<script language=javascript>alert('Email enviado com sucesso!');window.location='http://www.mmarrom.com.br/_scripts/contato.asp';</script>"

else

' Se não for enviado mostra o erro que ocoreu

Response.Write ("Ocorreu um erro.<BR>")

Response.Write ("O Erro é " & Mailer.Response)

end if

%>

 

<% end if %>

 

Obrigado pela ajuda

 

Sds

[Marrom 0]

ajuda !!!!!