Ir para conteúdo
Fórum Script Brasil
  • 0

E-mail


tsarri

Pergunta

e ae galera, outro problema eu montei um fale conosco e envia por email so que estou como problemas no corpo do e-mail, ele fala q não é valido o html

Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = "Tiago" 
Mailer.FromAddress = "kaplannet@terra.com.br" ' e-mail de quem vai receber a mensagem 
Mailer.RemoteHost = "smtp.sjp.terra.com.br"
Mailer.AddRecipient "João da Silva", "kaplannet@terra.com.br" 
Mailer.Subject = "Seu pedido foi recebido"
Mailer.HTML = True '***********ERRO NESTA LINHA*********
Corpo_Email = "Segue abaixo os dados atualizados da Franquia<BR><BR>"
Corpo_Email = Corpo_Email & "Nome do Franqueado: " & nome & "<BR>"
Mailer.BodyText = Corpo_Email  
If Mailer.SendMail Then 
Response.Write "Mensagem enviada com sucesso" 
Else 
Response.Write "Erro " & Mailer.Response 
End If


Set Mailer = Nothing 

alguém pode me explicar o que fazer??

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

ow vinicius realmente o componente não da suporte

mais eu montei assim o meu codigo e deu certo

' Cria o componente aspmail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' Nome do Remetente
Mailer.FromName = "Cadastro"
' E-mail do Rementente
Mailer.FromAddress= "cadastro@athivos.com.br"
' Servidor de envio de e-mail
Mailer.RemoteHost = "mail.terraempresas.com.br"
' Nome / Endereço de quem recebera o E-mail
Mailer.AddRecipient "Tiago Sarri", "tiagossj4@terra.com.br"
' Assunto do E-mail
Mailer.Subject = "Novo Cadastro!!!"
' Campo da mensagem

msg = "Dados do cliente enviados pelo site:" & VbCrLf
msg = msg & "Nome: " & nome & VbCrLf
msg = msg & "E-mail: " & email & VbCrLf
msg = msg & "outros: " & outros & VbCrLf
Mailer.BodyText = msg



if Mailer.SendMail then
Response.Write "E-mail enviado"
else
Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response
end if



valeu pessoal

Link para o comentário
Compartilhar em outros sites

  • 0
Guest Alexander C. Nunes

Observe a propriedade Mailer.ContentType...

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = nome

Mailer.FromAddress= email

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

Mailer.AddRecipient NomeContato, EmailContato

Mailer.ContentType = "text/html" 'PARA FORMATO HTML!

Mailer.Subject = "assunto"

Mailer.BodyText = "<b>Código html</b>"

If Mailer.SendMail Then

response.write "Email enviado com sucesso!"

Else

response.write "Erro: " & Mailer.Response

End If

Set Mailer = Nothing

Abraço!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...