Junior Soares
-
Total de itens
10 -
Registro em
-
Última visita
Tudo que Junior Soares postou
-
Barata meu velho, Muito obrigado pela ajuda! O script ta funcionando, exceto nos testes locais. Que é quando estou simulando uma venda e na hora que finalizo a mesma o e-mail de confirmação não chega, mas sei que quando publicar o site vai rodar. Vou continuar verificando pra ver o porquê de ele não enviar do meu pc. Abraço cara!
-
Valeu cara vou testar este ai e depois posto o resultado. Até o momento obrigado!
-
Então cara me dá uma dica! Que componente eu posso utilizar pra fazer meus testes localmente e na web? Eu preciso desse script pra colocar num e-comerce, pra quando um cliente confirmar sua compra seja enviado pra ele automaticamente um email confirmando a mesma. Valeu!
-
Estou usando o script abaixo, ele retorna "Mensagem enviada com sucesso", mas não chega nada no meu email. estou mandando pra macro.contato@gmail.com. <% if request("botao") = "enviar" then Dim objNewMail Set objNewMail = Server.CreateObject("CDONTS.NewMail") objNewMail.From = "juniorsoares@informevarzeanova.com.br" objNewMail.To = request("to") objNewMail.Subject = request("subject") objNewMail.Body = request("body") e=objNewMail.Send if e then Response.Write "Mensagem não enviada" else Response.Write "Mensagem enviada com sucesso" end if response.end end if %> <html> <body> <form method="POST" action="cdonts.asp"> <table border="0" width="43%"> <tr> <td width="13%"><strong>Para:</strong></td> <td width="87%"><input type="text" name="to" size="32"></td> </tr> <tr> <td width="13%"><strong>Assunto:</strong></td> <td width="87%"><input type="text" name="subject" size="32"></td> </tr> <tr> <td width="13%"><strong>Mensagem:</strong></td> <td width="87%"><textarea rows="7" name="body" cols="43"></textarea></td> </tr> <tr> <td width="13%"></td> <td width="87%"><input type="submit" value="enviar" name="botao"></td> </tr> </table> </form> </body> </html>
-
Eu já fiz isso há alguns minutos, e ainda não funciona! Só não entendi o final: ------ Agora você pode definir no seu código ASP.NET a propriedade SmtpMail.SmtpServer como sendo o localhost ou 127.0.01 para enviar email usando ASP.NET 2.0. Exemplo: Dim mSmtpClient As New SmtpClient("localhost") ou SmtpMail.SmtpServer = "127.0.0.1" ou SmtpMail.SmtpServer.Insert(0,"127.0.0.1") Lembrando que você deve usar o seguinte namespace no seu projeto: imports System.Net.
-
Estou testando na minha máquina. :)
-
Pessoal eu já cansei! Não consigo enviar e-mail com nenhum dos compontntes AspMail | Cdonts | JMail! O Cdonts até diz "Mensagem enviada com sucesso", mas não manda nada. O AspMail me retorna este erro: Mail To: macro.contato@gmail.com Mailing Failed... Error is: This evaluation component has expired.This component expires: 07/24/08 E o JMail me retorna este erro aqui: The message was undeliverable. All servers failed to receive the message .execute() { Trying server mail:smtp.informevarzeanova.com.br smtp.informevarzeanova.com.br failed with the message: "Connection timed out" No socket for server. ConnectToServer() 1 of 1 servers failed } Alguém pode me ajudar?
-
Eu posso colocar como Host por exemplo: www.gmail.com? Se não, você pode me dar um exemplo?! Valeu!
-
Cara valeu ai pela atenção! Deu o seguinte erro: Error encountered: Connection timed out.
-
Olá pessoal! Será que alguém ai pode me dar uma ajuda?! Estou desenvolvendo um e-comerce, e preciso que o site envie um email automaticamente para o cliente após a confirmação de uma compra! Nunca fiz isso antes e nunca usei componente nenhum, só agora baixei o AspMail mas não da certo. Estou usando este script que encontrei em um tópico do fórum iMasters: <% Dim Mail ' objeto mail Dim FromName ' nome do remetente Dim FromEmail ' endereço de Email do remetente Dim ToEmail ' endereço do destinatario Dim Subject, strBody ' corpo da mensagem Dim ThisPage ' o endereco do seu site Dim RefPage ' a referencia URL Dim Val_Input ' variável Booleana usada na validação Dim Host ' nome do servidor ' Retorna o nome do arquivo de script e a url da pagina ThisPage = Request.ServerVariables("SCRIPT_NAME") RefPage = Request.ServerVariables("HTTP_REFERER") Host = "www.gmail.com" ' nome do seu servidor strBody = Trim(Request.Form("Message")) Subject = "Teste" ToEmail = Trim(Request.Form("ToEmail")) FromName = Trim(Request.Form("FromName")) FromEmail = Trim(Request.Form("FromEmail")) strBody = "Mensagem teste." val_ent = True val_ent = val_ent And FromName <> "" val_ent = val_ent And val_email(FromEmail) val_ent = val_ent And val_email(ToEmail) If val_ent Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = Host Mail.From = FromEmail Mail.FromName = FromName Mail.AddAddress ToEmail Mail.Subject = Subject Mail.Body = strBody on error resume next Mail.Send mensagem_erro = "" if err <> 0 then mensagem_erro = "Ocorreu o erro: " & Err.description end if Set Mail = Nothing on error goto 0 response.write "<P><b>Sua mensagem foi enviada com sucesso!</P></b>" Else If "http://" & Request.ServerVariables("HTTP_HOST") & ThisPage = RefPage Then Response.Write "Verifique os campos por favor!" & "<BR>" & vbCrLf End If Forms_x ThisPage, FromName, FromEmail, ToEmail, strBody End If Function val_email(strEmail) Dim xVal xVal = True If Len(strEmail) < 5 Then xVal = False Else If Instr(1, strEmail, " ") <> 0 Then xVal = False Else If InStr(1, strEmail, "@", 1) < 2 Then xVal = False Else If InStrRev(strEmail, ".") < _ InStr(1, strEmail, "@", 1) + 2 Then xVal = False End If End If End If End If val_email = xVal End Function...