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

Formulario Por Email

Guest Milat

Perguntado por Guest Milat,

 Share

Pergunta

Guest Milat

Guest Milat

Postado
Postado

gente está dando erro e não sei qual...

vocês podem ver por favor...

<%'

var_nome = Request.QueryString("nome")

var_mail = Request.QueryString("email")

var_assunto = Request.QueryString("assunto")

var_mensagem = Request.QueryString("message")

var_from = "enviaemail@b-services.com.br"

var_to = "info@b-services.com.br"

msgHTML = msgHTML & "<html>"

msgHTML = msgHTML & "<head>"

msgHTML = msgHTML & "<title>::B-Services::</title>"

msgHTML = msgHTML & "<link href=http://localhost/b-services/estilos.css rel=stylesheet type=text/css>"

msgHTML = msgHTML & "</head>"

msgHTML = msgHTML & "<body bottommargin=0 leftmargin=0 rightmargin=0 topmargin=0 bgcolor=#D9E2FF>"

msgHTML = msgHTML & "<table align=center cellpadding=0 cellspacing=0 border=0>"

msgHTML = msgHTML & "<tr>"

msgHTML = msgHTML & "<td>"

msgHTML = msgHTML & "<img src=http://localhost/b-services/images/topo_bservices.jpg border=0>"

msgHTML = msgHTML & "</td>"

msgHTML = msgHTML & "</tr>"

msgHTML = msgHTML & "<tr>"

msgHTML = msgHTML & "<td>"

msgHTML = msgHTML & "<br>"

msgHTML = msgHTML & "<img src=http://localhost/b-services/images/topo_bservicesb.jpg border=0>"

msgHTML = msgHTML & "</td>"

msgHTML = msgHTML & "</tr>"

msgHTML = msgHTML & "<tr>"

msgHTML = msgHTML & "<td>"

msgHTML = msgHTML & "<font face=verdana,arial,tahoma size=1 color=#3366AA>"

msgHTML = msgHTML & "  <strong>Nome:</strong> " & var_nome & "<br><br>"

msgHTML = msgHTML & "  <strong>E-mail:</strong> " & var_mail & "<br><br>"

msgHTML = msgHTML & "  <strong>Assunto:</strong> " & var_assunto & "<br><br>"

msgHTML = msgHTML & "  <strong>Mensagem:</strong> " & var_mensagem & "<br><br>"

msgHTML = msgHTML & "</font>"

msgHTML = msgHTML & "</td>"

msgHTML = msgHTML & "</tr>"

msgHTML = msgHTML & "<tr>"

msgHTML = msgHTML & "<td height=16>"

msgHTML = msgHTML & " "

msgHTML = msgHTML & "</td>"

msgHTML = msgHTML & "</tr>"

msgHTML = msgHTML & "<tr>"

msgHTML = msgHTML & "<td height=21 align=center background=http://localhost/b-services/images/barra_menuvertical.jpg border=0>"

msgHTML = msgHTML & "B-Servicesz"

msgHTML = msgHTML & "</td>"

msgHTML = msgHTML & "</tr>"

msgHTML = msgHTML & "</table>"

msgHTML = msgHTML & "</body>"

msgHTML = msgHTML & "</html>"

sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = Server.CreateObject("CDO.Configuration")

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.b-services.com.br "

cdoConfig.Fields.Item(sch & "sendusername") = "enviaemail@b-services.com.br"

cdoConfig.Fields.Item(sch & "sendpassword") = "envia123"

cdoConfig.fields.update

Set cdoMessage = Server.CreateObject("CDO.Message")

Set cdoMessage.Configuration = cdoConfig

cdoMessage.From = var_from

cdoMessage.To = var_mail

'para anexar algo no email:'

'cdoMessage.addAttachment Server.MapPath("images/header_LM.jpg")'

cdoMessage.Subject = "B-Services - " & var_nome & " enviou um e-mail para você"

cdoMessage.HTMLBody = msgHTML

cdoMessage.Send

Set cdoMessage = Nothing

Set cdoConfig = Nothing

%>

Link para o comentário
Compartilhar em outros sites

1 resposta 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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

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