Ir para conteúdo

POWERED BY:

Arquivado

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

brunoo

Componentes CDOSYS e CDONTS

Por , em ASP Clássico

Recommended Posts

hargon    64

hargon
Postado

O e-mail de destino ou o remetente é uma das contas de e-mail do domínio? Tem servidor que isso também interfere.

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunoo    0

brunoo
Postado

Eu ja utilizei as diferents configuracoes, destinatario e remetente, pois ja vi um topico sobre isso, mas o erro e o mesmo... to perdidinho da vida

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunoo    0

brunoo
Postado

Obrigado pessoal pela ajuda... finalmente consequi resolver o problema http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

O resultado esta em negrito nas linhas abaixo http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Const cdoSendUsingPickup = 1

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunoo    0

brunoo
Postado

Agora estou tentando modificar para os campos, mas ocorreu esse erro:

 

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'enviarEmail'

indique.asp, line 40 

<%function enviarEmail(remetente,emailremetente,destinatario,emaildestinatario,assunto,texto)
Const cdoSendUsingPickup=1
set iMsg=CreateObject("CDO.Message")
set iConf=CreateObject("CDO.Configuration")
set Flds=iConf.Fields
with Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtpsuser.igempresas.ig.com.br"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="alessandro@juseundi.com.br"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=""
.Update
end With
With iMsg
Set .Configuration=iConf
.To=destinatario&"<"&emaildestinatario&">"
.From=remetente&"<"&emailremetente&">"
.Subject=assunto
.HtmlBody=texto
.Send
End With
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing
end function
set con=server.createobject("adodb.connection")
set obj=server.createobject("adodb.recordset")
ntc=request.querystring("id")
if request.querystring("mode")="doit"then
sbo=trim(request.form("texto"))
sbo=replace(sbo,"[destinatario]",trim(request.form("destinatario")))
sbo=replace(sbo,"[remetente]",trim(request.form("remetente")))
if enviarEmail(trim(request.form("assunto")),trim(request.form("emailremetente")),trim(request.form("emaildestinatario")),sbo)=true then
response.write"<body leftmargin=""0""topmargin=""0""marginwidth=""0""marginheight=""0""><div class=""fonte""align=""center""><br><br><br><br><b>A entrevista foi enviada com sucesso!</b><br><br><a href=""java script:history.go(-1)"">Enviar para outra pessoa</a></div>"
else
response.write"<body leftmargin=""0""topmargin=""0""marginwidth=""0""marginheight=""0""><div class=""fonte""align=""center""><br><br><br><br><b>Ocorreu um erro ao enviar a entrevista!</b><br><br><a href='java script:history.go(-1)'>Tente novamente em alguns minutos.</b></div>"
end if
else
con.open"provider=microsoft.jet.oledb.4.0;persist security info=false;data source="&server.mappath("../banco/banco.mdb")
obj.open"select id,titulo from entrevista where id="&ntc,con,0,1 
tme="Olá [destinatario],"&vbcrlf&vbcrlf
tme=tme&"[remetente] estava navegando pelo site Jus eundi e considerou a seguinte entrevista interessante """""". Clique no link abaixo para ler a entrevista ou cole o endereço na barra do navegador e pressione Enter."&vbcrlf&vbcrlf
tme=tme&"http://www.juseundi.com.br/entrevista/entrevista.asp?id="&ntc&vbcrlf&vbcrlf
tme=tme&"Aproveite!"&vbcrlf&vbcrlf
tme=tme&"Atenciosamente,"&vbcrlf
tme=tme&"Equipe Jus eundi"&vbcrlf
tme=tme&"www.juseundi.com.br"&vbcrlf
con.close%><script type="text/javascript">ponto1=0;ponto2=0;ponto3=0;ponto4=0;function che(fnm){rro="";d=document.forms[fnm];if(d.destinatario.value=="Nome"){rro+="			 O campo Nome do destinatário não foi preenchido\n";}if(d.emaildestinatario.value=="E-mail"){rro+="			 O campo E-mail do destinatário não foi preenchido\n";}if(d.remetente.value=="Nome"){rro+="			 O campo Nome do rementente não foi preenchido\n";}if(d.emailremetente.value=="E-mail"){rro+="			 O campo E-mail não do rementente foi preenchido\n";}if(rro!=""){msg="_____________________________________________________\n\n";msg +="A entrevista não pode ser enviada porque algum erro foi encontrado.\n";msg+="Preencha o(s) campo(s) solicitado(s) e tente novamente:\n";msg+="_____________________________________________________\n\n";alert(msg+rro);return false;}if(/^([\w\.\-])+\@(([\w\-])+\.)+([\w ]{2,4})$/.test(document.frm.emaildestinatario.value)==false){alert("O E-mail do destinatário é inválido!");return false;}if(/^([\w\.\-])+\@(([\w\-])+\.)+([\w ]{2,4})$/.test(document.frm.emailremetente.value)==false){alert("O E-mail do rementente é inválido!");return false;}return true;}</script><%con.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../banco/membro.mdb")
obj.open"select nome768,email450 from membros where login708='"&session("login708")&"'",con%><body leftmargin="0"topmargin="0"marginwidth="0"marginheight="0"><form action="indique.asp?mode=doit"name="frm"method="post"onsubmit="return che(this.name)"class="fonte"><br><b>Destinatário</b><br><input type="text"name="destinatario"class="campo"value="Nome"onfocus="if(ponto4==0){this.value='';ponto4=1}"onblur="if(!this.value){this.value='Nome';ponto4=0}"title="Digite o Nome do destinatário aqui"><div class="ms"><input type="text"name="emaildestinatario"class="campo"value="E-mail"onfocus="if(ponto1==0){this.value='';ponto1=1}"onblur="if(!this.value){this.value='E-mail';ponto1=0}"title="Digite o E-mail do destinatário aqui"></div><b>Remetente</b><br><%if not obj.eof then%><input type="text"name="remetente"class="campo"value="<%=obj("nome768")%>"title="Digite o seu Nome aqui"><div class="ms"><input type="text"name="emailremetente"class="campo"value="<%=obj("email450")%>"title="Digite o seu E-mail aqui"></div><%else%><input type="text"name="remetente"class="campo"value="Nome"onfocus="if(ponto2==0){this.value='';ponto2=1}"onblur="if(!this.value){this.value='Nome';ponto2=0}"title="Digite o seu Nome aqui"><div class="ms2"><input type="text"name="emailremetente"class="campo"value="E-mail"onfocus="if(ponto3==0){this.value='';ponto3=1}"onblur="if(!this.value){this.value='E-mail';ponto3=0}"title="Digite o seu E-mail aqui"></div><%end if%><div style="display:none"><input type="text"name="assunto"value="Entrevista - Jus eundi"><textarea name="texto"><%=tme%></textarea></div><div align="center"><input type="submit"value="Enviar"class="but"></div></form><%con.close
set obj=nothing
set con=nothing
end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Só comentando o primeiro erro, é que o problema não foi acrescentar Pickup na variável, foi o valor informado. Normalmente é utilizado 2. Pelo visto no seu servidor é 1.

 

Sobre o novo erro, é post acima, você não pode fazer isso:

enviarEmail(trim(request.form("assunto")),trim(request.form("emailremetente")),trim(request.form("emaildestinatario")),sbo)

 

Veja que quando você cria a função ela possui 6 valores sendo passado como parâmetro, quando você chama ela deve passar o mesmo número.

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