pra enviar e-mail

[obomba 1]

<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto, BCC

 

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "chatubao@terra.com.br"

sNameTo = "Max'Ferro"

BCC = "maxferro@terra.com.br"

sText = Request.Form("mensagem")

sAssunto = Request.Form("assunto")

 

'Cria o objeto

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

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

Mailer.BCC = BCC

'Host para envio de emails

Mailer.RemoteHost = "smtp.maxferro.com.br"

Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = sAssunto & " ( Contado do site Max'Ferro )"

 

'Monta a texto para o envio

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

strMsgFooter = sText

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

Response.Redirect "obrigado.asp"

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

%>

 

 

Assim, não entendo nadica dessa parda, mas eu acho que deveria enviar o e-mail para o "chatubao@terra.com.br"

 

com cópia para o BCC = "maxferro@terra.com.br"

 

MAs ele só está enviando e-mail para o BCC estou errado, ou fiz algo errado ????

[ska_ska 0]

altera:

Mailer.AddRecipient sEmailTo, sNameTo

por:

Mailer.AddRecipient sNameTo, sEmailTo

a sintaxe do addRecipient eh

.AddRecipient [nomedodestino], [emaildodestino]

 

falow....

[obomba 1]

faleu fio.... depois te pagou uma breja... precisar de qualquer coisa de Photoshop me procure !!!Abraço