4 replies to this topic

[m.designer]

Ola eu tenho um sistema de Cartão virtual aqui mais da erro na hora de enviar o cartão, porque meu servidor não tem o componente que ele usa, eu queria mudar o codigo para usar o Componente que meu servidor tem, meu servidor tem esse componente "Persits - ASPEmail" se alguem puder me ajudar ficarei agradeçido, ai vai o código ...

<!--#include file="config.asp"--> 
<%
im = request.form("image")
ida = request.form("id")
title = request.form("title")
toname = request.form("toname")
tomail = request.form("tomail")
fromname = request.form("fromname")
frommail = request.form("frommail")
message = request.form("message")
bgcol = request.form("bgcol")
txtcol = request.form("txtcol")
sound = request.form("sound")
set Conna= Server.CreateObject("ADODB.Connection")
  set rsa = server.CreateObject("ADODB.RecordSet")
  Conna.Open Conn_String
sqla ="select * from sent"
SQLB = "select * from config"
set rsb = conna.execute (sqlb)

RSa.open sqla,Conna,1,3
RSa.AddNew
randomize
rsa("pid") = int(rnd*99999)+1
RSa("card")=im
RSa("fromname")=fromname
RSa("frommail")=frommail
RSa("toname")=toname
RSa("tomail")=tomail
RSa("title")= title
RSa("bgcol")= bgcol
RSa("txtcol")= txtcol
RSa("message")= message
RSa("sentdate")= date()
RSa("sound") = sound
RSa.update
'response.write "sent"
ticket = rsa("pid")
mysite = rsb("url")
myname = rsb("myname")
days = rsb("days")


Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName   = fromname
Mailer.FromAddress= frommail
Mailer.RemoteHost = rsb("mailserver")
Mailer.AddRecipient tomail, tomail
Mailer.Subject    = "Você recebeu um cartão"
Mailer.BodyText = toname &"," & vbCrLf   &  fromname & " " &  "Você acaba de receber um cartão virtual "& vbCrLf  &_
  "you can pick up you card on our site" & " "& mysite & vbCrLf  & "by entering your ticket number witch is: "  & ticket & vbCrLf  & " or simply click on the bleow url to automaticly view your card " & vbCrLf  & mysite& "/get.asp?ticket="& ticket & vbCrLf  & vbCrLf  & "Regards" & vbCrLf  & myname & vbCrLf  & "* Card must be recived within " & days & " days or it will be deleted"
Mailer.SendMail
set Mailer = nothing
	
	
	
	
	

	if Err.Number<>0 then

  Response.write "Error: " & Err.description

	else%>

<center>
  <p>&nbsp;</p><table width="98" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td><img src="top.gif" width="750" height="111"></td>
    </tr>
    <tr> 
      <td bgcolor="#333399"><table width="100%" border="0" cellspacing="1" cellpadding="1">
          <tr> 
            <td valign="top" background="bg.jpg" bgcolor="#FFFFFF"> <center>
              </center>
              <center>
                <p>&nbsp;</p>
                <p>&nbsp;</p>
                <p><font size ="2" face="Verdana, Arial, Helvetica, sans-serif">Seu 
                  cart&atilde;o foi enviado para:<br>
                  <%=toname%> (<%=tomail%>)<br>
                  </font><font size ="4"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href = "index.asp"> 
                  Voltar</a></font></font> </p>
              </center>
              <%
end if
rsa.close

%>
              <p>&nbsp;</p>
              <center>
              </center></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td bgcolor="#333399"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Superasp.com.br 
          - Copyright&copy; 2001 - Todos os direitos reservados</font></div></td>
    </tr>
  </table>
  </center>

[Agente Linhares]

busca nele!

http://forum.wmonlin...ighlite=aspmail

[m.designer]

Obrigado mais eu olhei e não achei nada porque não consigo mudar o codigo porque nao entendo de asp, não tem como me mandar o codigo de envio pronto para que funcione no meu script ....

Obrigado, agradeço a atenção!

[m.designer]

Ola tentei modifciar o codigo e cheguei nisso, ele da erro pq fala q o o yahoo precisa do logon, agora nao estou conseguindo mais fazer nada, podeira me ajudar a enviar o e-mail corretamente, pode ser por qualquer servidor, é só falar oq por que eu me cadastro ...

olha o codigo

Set Mail = Server.CreateObject("Persits.MailSender") 
Mail.Host = "smtp.mail.yahoo.com.br" 
Mail.FromName = fromname
Mail.From= frommail
Mail.AddAddress Request("tomail")
Mail.Subject = "Você recebeu um cartão"
Mail.Body = toname &"," & vbCrLf   &  fromname & " " &  "Você acaba de receber um cartão virtual "& vbCrLf  &_
  "you can pick up you card on our site" & " "& mysite & vbCrLf  & "by entering your ticket number witch is: "  & ticket & vbCrLf  & " or simply click on the bleow url to automaticly view your card " & vbCrLf  & mysite& "/get.asp?ticket="& ticket & vbCrLf  & vbCrLf  & "Regards" & vbCrLf  & myname & vbCrLf  & "* Card must be recived within " & days & " days or it will be deleted"
Mail.Send
	
	If Err <> 0 Then ' error occurred
      strErr = Err.Description
   else
      bSuccess = True
   End If
%>

[Agente Linhares]

Obrigado mais eu olhei e não achei nada porque não consigo mudar o codigo porque nao entendo de asp, não tem como me mandar o codigo de envio pronto para que funcione no meu script ....

Obrigado, agradeço a atenção!

claro, prontinho? rodando?

me passa certinho como vc quer, no e-mail brdesign@brdesign.net

que te passo um orçamento s/ compromisso.

aqui tem + sobre o que pode estar acontecendo p/ caso vc esteja determinado a se esforçar um pouquinho pra resolver o problema. agente te auxilia na boa.

http://forum.wmonlin...howtopic=132858