Aspemail

Fernando Luiz · Junho 4, 2004

Pessoal,

Estou tentando enviar um email para mim mesmo atraves do preenchimento de um formulario, onde ao clicar em ENVIAR a mensagem com nome e email da pessoal seria enviado para mim. Caso bem basico de formulario.

O problema é que recebo um erro deste linha:

Tipo de erro:

Objeto Server, ASP 0177 (0x800401F3)

ProgID inválido. Para obter informações adicionais específicas sobre esta mensagem, visite o site Microsoft Online Support localizado em: http://www.microsoft.com/contentredirect.asp (site em inglês).

/sitegabi/fc_enviar.asp, line 68

Estah é a linha 68:

Set mail = Server.CreateObject("Persits.MailSender")

A proposito, serah que alguém poderia me explicar o que faz estah linha. O que é Persits e Mailsender ?

Agradeço desde já.

[]'s

Fernando Luiz

mariofdf · Junho 4, 2004

Esta linha é a que instancia o objeto de e-mail de sua escolha, poste seu codigo todo para poder melhor te ajudar, e já confira se seu server da suporte a ASPMAIL , que é o objeto que voce instanciou para o envio do e-mail...

Junho 5, 2004

Mario,

Sou novato e estou estudando este codigo que peguei pronto no proprio site.

A proposito, o que significa instanciar?

Obrigado pela força!

Fernando

--------------------

<%

' ----------------------------------------------------------------

' Página com os comandos para envio no sistema ASPEmail

' mas se você souber outros sistemas para envio fique a vontade.

' ----------------------------------------------------------------

' Declarando as variáveis e recebendo os dados do formulário

' ----------------------------------------------------------------

Dim nome, email, texto

nome = Request.form("fc_name")

email = Request.form("fc_email")

texto = Request.form("fc_text")

' ----------------------------------------------------------------

' Declarando as sessões que serviram para a página de resposta automática

' ----------------------------------------------------------------

Session ("nome1") = Request.form("fc_name")

Session ("email1") = Request.form("fc_email")

Session ("texto1") = Request.form("fc_text")

' ----------------------------------------------------------------

' Fazendo a verificação dos campos e se estão preenchidos corretamente

' ----------------------------------------------------------------

if nome = "" then

Response.Redirect "fale_conosco.asp?erro=1"

end if

if email = "" then

Response.Redirect "fale_conosco.asp?erro=2"

end if

if texto = "" then

Response.Redirect "fale_conosco.asp?erro=3"

end if

' ----------------------------------------------------------------

' Verifica se há o @ no email

' ----------------------------------------------------------------

Dim verifica_email

verifica_email = email

texto = Instr(1,verifica_email,"@")

if texto = false then

Response.Redirect "fale_conosco.asp?erro=2"

end if

' ----------------------------------------------------------------

' Código para envio de email por ASPEmail

' ----------------------------------------------------------------

' Criando objeto do ASPEmail

' ----------------------------------------------------------------

Set mail = Server.CreateObject("Persits.MailSender")

' ----------------------------------------------------------------

' Endereço do SMTP, host para envio de emails

' ----------------------------------------------------------------

Mail.Host = "smtp.rio.terra.com.br"

' ----------------------------------------------------------------

' Propriedades do ASPEmail

' From: Remetente |||| FromName: Nome do remetente |||| AddAddress: seu email

' AddReplyTo: endereço para resposta |||| Subject: Assunto do email

' IsHTML: Propriedade HTML |||| Body: Corpo da Mensagem(código em html, fica a tua escolha).

' ----------------------------------------------------------------

Mail.From = email

Mail.FromName = "Nome do remetente"

Mail.AddAddress "f_loureiro@terra.com.br"

Mail.AddReplyTo email

Mail.Subject = "Fale Conosco"

Mail.IsHTML = True

Mail.Body = "Corpo do documento. Coloque aqui a variável da mensagem exemplo:" & texto

' ----------------------------------------------------------------

' Enviando email

' ----------------------------------------------------------------

Mail.Send

' ----------------------------------------------------------------

' Se os erros forem iguais a 0, o internauta será reenviado para a página de

' auto-resposta (confirmação).

' ----------------------------------------------------------------

if err = 0 then

Response.Redirect "fc_confirmacao.asp"

else

response.write "Erro ao enviar email. <a href='mailto:f_loureiro@terra.com.br'>Clique aqui</a>"

end if

' ----------------------------------------------------------------

%>

mariofdf · Junho 5, 2004

onde voce hospedou este codigo, qual servidor?

Junho 5, 2004

Pessoal gostaria de saber de vocês onde coloco esse codigo se no html do ASPX ou no .CS pois com isso irei tentar conseguir concluir meu projeto da universidade.

<%

' ----------------------------------------------------------------

' Página com os comandos para envio no sistema ASPEmail

' mas se você souber outros sistemas para envio fique a vontade.

' ----------------------------------------------------------------

' Declarando as variáveis e recebendo os dados do formulário

' ----------------------------------------------------------------

Dim nome, email, texto

nome = Request.form("fc_name")

email = Request.form("fc_email")

texto = Request.form("fc_text")

' ----------------------------------------------------------------

' Declarando as sessões que serviram para a página de resposta automática

' ----------------------------------------------------------------

Session ("nome1") = Request.form("fc_name")

Session ("email1") = Request.form("fc_email")

Session ("texto1") = Request.form("fc_text")

' ----------------------------------------------------------------

' Fazendo a verificação dos campos e se estão preenchidos corretamente

' ----------------------------------------------------------------

if nome = "" then

Response.Redirect "fale_conosco.asp?erro=1"

end if

if email = "" then

Response.Redirect "fale_conosco.asp?erro=2"

end if

if texto = "" then

Response.Redirect "fale_conosco.asp?erro=3"

end if

' ----------------------------------------------------------------

' Verifica se há o @ no email

' ----------------------------------------------------------------

Dim verifica_email

verifica_email = email

texto = Instr(1,verifica_email,"@")

if texto = false then

Response.Redirect "fale_conosco.asp?erro=2"

end if

' ----------------------------------------------------------------

' Código para envio de email por ASPEmail

' ----------------------------------------------------------------

' Criando objeto do ASPEmail

' ----------------------------------------------------------------

Set mail = Server.CreateObject("Persits.MailSender")

' ----------------------------------------------------------------

' Endereço do SMTP, host para envio de emails

' ----------------------------------------------------------------

Mail.Host = "smtp.rio.terra.com.br"

' ----------------------------------------------------------------

' Propriedades do ASPEmail

' From: Remetente |||| FromName: Nome do remetente |||| AddAddress: seu email

' AddReplyTo: endereço para resposta |||| Subject: Assunto do email

' IsHTML: Propriedade HTML |||| Body: Corpo da Mensagem(código em html, fica a tua escolha).

' ----------------------------------------------------------------

Mail.From = email

Mail.FromName = "Nome do remetente"

Mail.AddAddress "f_loureiro@terra.com.br"

Mail.AddReplyTo email

Mail.Subject = "Fale Conosco"

Mail.IsHTML = True

Mail.Body = "Corpo do documento. Coloque aqui a variável da mensagem exemplo:" & texto

' ----------------------------------------------------------------

' Enviando email

' ----------------------------------------------------------------

Mail.Send

' ----------------------------------------------------------------

' Se os erros forem iguais a 0, o internauta será reenviado para a página de

' auto-resposta (confirmação).

' ----------------------------------------------------------------

if err = 0 then

Response.Redirect "fc_confirmacao.asp"

else

response.write "Erro ao enviar email. <a href='mailto:f_loureiro@terra.com.br'>Clique aqui</a>"

end if

' ----------------------------------------------------------------

%>

_____________________

Desde já agradesso.

Junho 6, 2004

Mario,

Estou testando em casa mesmo pelo IIS.

[]'s

Fernando

mariofdf · Junho 6, 2004

Voce tem o aspmail instalado no seu iis, e porque voce esta setando o rost do terra.

Fernando Luiz · Junho 6, 2004

Mario,

O problema é que sou leigo no assunto. Por exemplo, estava achando que tinha que colocar o smtp do meu provedor para que a requisiçao fosse mandada.

Como é que faço, já que tenho o iis instalado e estah rodando? Que endereço que coloco lá?

Tb não sei se tenho o aspmail no meu iis!!! Como vejo?

[]'s

FErnando

Junho 7, 2004

Pessoal,

vocês esqueceram de mim?

dark0 · Junho 7, 2004

bom..

pra ver se o componente esta instalado, acesse o tópico pendurado de funções, e copie o codigo, que mostra todos os componentes instalados no servidor.

rode na sua maquina.. se ele mostrar que esta instalado, beleza.. vai funcionar..

se não tiver instalado.. aí a conversa muda.. ae vamos instalar ele

ok?

t+

Junho 9, 2004

não sei qual funcao eu uso para saber se estah instalado. Vi um monte lá mas não sei qual é a correta!

bareta · Junho 9, 2004

e isso que ta bem destacado.... hehehe

ta ai fio....:

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(11)
Dim theComponentName(11)

' componentes
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"

' apelido do componente!
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"

Function IsObjInstalled(strClassString)
On Error Resume Next
  IsObjInstalled = False
  Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
  Err = 0
End Function
%>
<html>
<head>
<title>O q tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes 
      instalados:</b></font></td>
  </tr>
  <tr>
    <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <% 
  Dim i
        For i=0 to UBound(theComponent)
      If Not IsObjInstalled(theComponent(i)) Then
      
  Else
            Response.Write "<tr>" & vbCrLf
          Response.Write "<td width=""100%"">" & vbCrLf
          Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
          Response.Write "</td>" & vbCrLf
          Response.Write "</tr>" & vbCrLf
      End If
    Next 
    %>
  </table>
</font> 
</td>
  </tr>
</table>

</body>
</html>

coloca ele no seu local host..;..

Junho 9, 2004

Pessoal,

eu tenho aqui instalado os seguintes:

ADODB

FileSystemObject

CDONTS

Tah faltando o aspmail. Como faço para instalar?

[]'s

Fernando

dark0 · Junho 9, 2004

CDONTS é um componente de e-mail

não serve ele? ele tb envia e-mails.. assim como o aspmail tb envia..

eu nunca instalei o aspmail.. vou ver se acho ele pra download

t+

telo · Junho 9, 2004

Por que você não faz em Cdonts , já que seu servidor não suporta você pode mandar o código para o ftp. de alguém ou desses sites que tem de graça que suporta asp assim irá funcionar normalmente geralmente é isso que faço , nem testo na máquina testo direto pela internet ...

Fernando Luiz · Junho 9, 2004

Beleza, posso testar assim também. só que não sei como fazer isto! Sou um completo novato em ASP, principalmente em programação.

Brigado pela força q todos estao me dando.

[]'s

Fernando Luiz

f_loureiro2@terra.com.br

Entrar

Aspemail

Pergunta

Link para o comentário

Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Guest - Fernando Luiz -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Winderson

Link para o comentário

Compartilhar em outros sites

Guest - Fernando Luiz -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Fernando Luiz -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Fernando Luiz -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Fernando Luiz -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns