Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor FV

Qual o erro neste código de email?

Por , em ASP Clássico

Recommended Posts

Igor FV    0

Igor FV
Postado

Gostaria de saber o que tem de errado neste código de enviar e-mail pelo componente CDO.<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%'---esse eh o arquivo externo q tem as configurações do cdo q faleisch = "http://schemas.microsoft.com/cdo/configuration/"'---cria objeto, normalSet cdoConfig = Server.CreateObject("CDO.Configuration")'----você tem q configurá-lo antes de enviar... igual os outros... a diferença q ele está usando a url armazenada na variavel sch pra fazer parte dos itens.. maso q você precisa se basear eh no q está entre as aspas.. o resto eh tramparente pra você....'--- metodo de envio, se naum me engano, lembro q tinha vários.. achoq esse estipula q vai mandar via porta smtp.. mas consulta pra ter certezacdoConfig.Fields.Item(sch & "sendusing") = 2 '---- se vai ser um envio autenticado (qdo mexi, se desativasse, ele dava erro de permissãocdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 '---o server smtpcdoConfig.Fields.Item(sch & "smtpserver") = "smtp.mouraferramentas.com.br"'---um usuario com permissão de envio (um q você cria no webmail, ou esse, q deve ser defaultcdoConfig.Fields.Item(sch & "sendusername") = "moura=mouraferramentas.com.br"'--- a senhacdoConfig.Fields.Item(sch & "sendpassword") = "moura"'---armazenacdoConfig.fields.update' Criando o objeto de msg do CDOSet cdoMessage = Server.CreateObject("CDO.Message")' Associando as configurações ao obj MensagemSet cdoMessage.Configuration = cdoConfig'Definido variaveis da msgcdoMessage.From = "moura@mouraferramentas.com.br"cdoMessage.To = "igor.valle@click21.com.br"cdoMessage.Subject = assunto' Utilize esta opção caso deseje definir o e-mail de resposta' cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com"texto = "::. MENSAGEM DO WEBSITE .::" texto = texto nome = "NOME: "&nomeddd = "DDD: "&dddddd = dddtelefone = "TELEFONE: "&telefonecidade = "CIDADE: "&cidadeestado = "ESTADO: "&estadomensagem = "MENSAGEM: " &mensagemmsg.Body = texto &VBCRLF&VBCRLF&nome& VBCRLF&VBCRLF&ddd& VBCRLF&VBCRLF& telefone & VBCRLF&VBCRLF& cidade & VBCRLF&VBCRLF& estado & VBCRLF&VBCRLF& mensagemmsg.SendcdoMessage.TextBody = "Escreva aqui o texto do seu e-mail"cdoMessage.SendSet cdoMessage = NothingSet cdoConfig = Nothing%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

'Definido variaveis da msg

cdoMessage.From = "moura@mouraferramentas.com.br"

cdoMessage.To = "igor.valle@click21.com.br"

cdoMessage.Subject = assunto

 

' Utilize esta opção caso deseje definir o e-mail de resposta

' cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com"

texto = "::. MENSAGEM DO WEBSITE .::"

texto = texto

nome = "NOME: "&nome

ddd = "DDD: "&ddd

ddd = ddd

telefone = "TELEFONE: "&telefone

cidade = "CIDADE: "&cidade

estado = "ESTADO: "&estado

mensagem = "MENSAGEM: " &mensagem

msg.Body = texto &VBCRLF&VBCRLF&nome& VBCRLF&VBCRLF&ddd& VBCRLF&VBCRLF& telefone & VBCRLF&VBCRLF& cidade & VBCRLF&VBCRLF& estado & VBCRLF&VBCRLF& mensagem

msg.Send

 

cdoMessage.TextBody = "Escreva aqui o texto do seu e-mail"

 

 

cdoMessage.Send

velho... essa parte em cima, substitui pela abaixo... e posta aki o erro pra gente, facilita qvc nem imagina..ehehhe

 

ASP [/tr][tr]

'Definido variaveis da msg

cdoMessage.From = "moura@mouraferramentas.com.br"

cdoMessage.To = "igor.valle@click21.com.br"

cdoMessage.Subject = "assunto"

cdoMessage.TextBody = "texto"

 

on error resume next

 

cdoMessage.Send

 

if err.number<>0 then response.write ("<br>erro no."& err.number &" - "& err.description) else response.write "nenhum erro"

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito