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

Ajuda Com Este Codigo


esm

Pergunta

Tenho um formulario de contato mais o meu servidor não da suporte preciso mudar para AspEmail Object , alguém poderia me orientar?

Onde devo mudar?

O que fazer?

<%
snome = Request.Form("nome")
smail = Request.Form("email")
telefone = Request.Form("telefone")
tipo = Request.Form("tipo")
ctel = Request.Form("ctel")
msg = Request.Form("msg")
Set Send = Server.CreateObject("SMTPsvg.Mailer") 
    Send.FromName = snome
    Send.FromAddress= smail
    Send.RemoteHost = smtp
    Send.AddRecipient nome, email
    Send.Subject = "Contato de " & snome & " :: Formulario de contato." 
    Send.BodyText = "Olá " & ynome & ":" & VBCrLf & VBCrLf & "Você acabou de receber uma mensagem de " & snome & VBCrLf & VBCrLf & "Genero: " & tipo & VBCrLf & VBCrLf& "Memsagem:" & VBCrLf & msg & VBCrLf & VBCrLf & "Contatos por telefone: " & ctel & VBCrLf & "Telefone: " & telefone & VBCrLf & "nome: " & snome & VBCrLf & "email: " & smail & VBCrLf & VBCrLf &"Formulario de contato ESM JAPAN ( www.br-digital.com )"
    Send.SendMail
Set Reply = Server.CreateObject("SMTPsvg.Mailer") 
    Reply.FromName = nome
    Reply.FromAddress= email
    Reply.RemoteHost = smtp
    Reply.AddRecipient snome, smail
    Reply.Subject = "Obrigado por contactar" & snome
    Reply.BOdyText = "Olá " & snome & " seu email foi enviado com sucesso para o site " & nome & ". Em bréve estaremos entrando em contato" & VBCrLf & VBCrLf & VBCrLf & "PowereBy ESM JAPAN (www.esm-japan.co.jp)"
    Reply.SendMail
%>

Agradeço desde já

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

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,1k
    • Posts
      651,8k
×
×
  • Criar Novo...