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

Enviando Email De Formulario

PRISCILA STOCHINI

Perguntado por PRISCILA STOCHINI,

 Share

Pergunta

49 respostass a esta questão

Posts Recomendados

  • 0
Marcos-rj

Marcos-rj

Postado
Postado
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

'recupera os valores

Vempresa = Request.Form("empresa")

Vdepart = Request.Form("depart")

'Monta Mensagem

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"

HTML = HTML & "<html>"

HTML = HTML & "<head>"

HTML = HTML & "<meta http-equiv=""Content-Type"""

HTML = HTML & "content=""text/html; charset=iso-8859-1"">"

HTML = HTML & "<title>Contatos </title>"

HTML = HTML & "</head>"

HTML = HTML & "<body bgcolor=""#FFFFFF"">"

HTML = HTML & "<font size=""1"" face=""verdana"">"

HTML = HTML & "<B>CONTATOS XXXXXX</B><BR><HR><BR>"

HTML = HTML & "<B>EMPRESA : </B>" & Vempresa & "<BR>"

HTML = HTML & "<B>DEPARTAMENTO : </B>" & Vdepart & "<BR>"

HTML = HTML & "</body>"

HTML = HTML & "</html>"

'Chamamos o componente e enviamos o email

Set myMail = CreateObject("CDONTS.NewMail")

myMail.From = "Seu_email@seuHost.com.br"

myMail.To = "bailarinapri@multiplos.com"

myMail.Subject = "EMAIL DE TESTE DOS FORMULARIOS"

myMail.BodyFormat = 0

myMail.MailFormat = 0

myMail.Body = HTML

myMail.Send

Set myMail = Nothing

URL = "cadastrando.asp"

response.redirect(URL)

%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Visitante

Guest Visitante

Postado
Postado

Gente to ficando stressada.... agora tá indo tudo..só não envia o email...Marcos rj por favor...faça aquele teste mas com o email suporte_parceiros@multiplus.com

Link para o comentário
Compartilhar em outros sites
  • 0
PRISCILA STOCHINI

PRISCILA STOCHINI

Postado
  • Autor
Postado

Tá ai...será por causa algo no servidor?????


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'recupera os valores
Vempresa = Request.Form("empresa")
Vdepart = Request.Form("depart")

'Monta Mensagem
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type""" 
HTML = HTML & "content=""text/html; charset=iso-8859-1"">" 
HTML = HTML & "<title>Contatos </title>" 
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<font size=""1"" face=""verdana"">"
HTML = HTML & "<B>CONTATOS XXXXXX</B><BR><HR><BR>"
HTML = HTML & "<B>EMPRESA : </B>" & Vempresa & "<BR>"
HTML = HTML & "<B>DEPARTAMENTO : </B>" & Vdepart & "<BR>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

'Chamamos o componente e enviamos o email
Set myMail = CreateObject("CDONTS.NewMail") 
myMail.From = "Vdepart" 
myMail.To = "bailarinapri@gmail.com"
myMail.Subject = "EMAIL DE TESTE DOS FORMULARIOS & Vempresa "
myMail.BodyFormat = 0 
myMail.MailFormat = 0 
myMail.Body = HTML 
myMail.Send 

Set myMail = Nothing 

URL = "cadastrando.asp"
response.redirect(URL) 

%>

Link para o comentário
Compartilhar em outros sites
  • 0
PRISCILA STOCHINI

PRISCILA STOCHINI

Postado
  • Autor
Postado

POde ser isso..????

Ixe tenho que ver...

Bom a pessoa responsavel por publicação não tem ideia...e o gerente responsavel não sabe...ira verificar amanha...

Bom...então ficarei esperando....apesar de que depois de tudo isso...resolveram enviar para bco..

Dá raiva..né..

Bom..mas mesmo assim...mtiiiiiisssiiiimo obrigada...e eu ainda vou terminar pro email ...então me esperem por aqui amanha.....

Vlw...mesmo pra quem me ajudou...

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

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