Ir para conteúdo

POWERED BY:

Arquivado

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

Thiago Gomes - Developer

Enviar arquivo por email, com AspEmail

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Para usar o Aspemail devemos criar uma instância do objeto AspEmail

 

<%
...
Set Mail = Server.CreateObject("Persits.MailSender")
...
%>

 

A instrução acima cria uma variável objeto do tipo Aspemail que possui propriedades que podemos usar para enviar um e-mail através de um servidor SMTP. As principais propriedades usadas para o envio de um e-mail são:

 

Host – indica o nome do servidor SMTP usado. Geralmente o nome do servidor de mensagens começa com : smtp.nome_do_provedor.com.br . Para Ter certeza consulte as configurações do seu leitor de e-mails.

 

Exemplo: Mail.Host = "smtp.seu_dominio.com"

 

Podemos usar uma relação de servidores separados por ponto e vírgula (;) , se o primeiro falhar o componente irá tentar usar o segundo e assim por diante:

Exemplo:

 

Mail.Host ="smtp.seu_dominio.com;smtp2.seu_dominio.com;host.seu_dominio.com"

 

From – indica o e-mail do remetente.

 

Exemplo: Mail.From = "vendas@seu_dominio.com"

 

FromName – indica o nome do remetente . É opcional

 

Exemplo: Mail.FromName = "Empresa X"

 

AddAddress – indica o endereço de e-mail do destinatário. Voce pode informar o nome também.

 

Exemplo: Mail.AddAddress "jsmith@seu_dominio.com", "Joao Silva"

 

Subject – indica o título da mensagem

 

Exemplo: Mail.Subject = "Este é o titulo da mensagem"

 

Body – indica o corpo da mensagem que vamos enviar. Podemos usar texto ou o formato HTML , no segundo caso devemos definir a propriedade IsHTML como True.

 

Exemplo:

 

Mail.Body = "Querido Cliente:" & chr(13) & chr(10) & "Obrigado pelos bons negócios . Seu gerente de vendas"

 

Ou no formato HTML

 

Mail.Body = "<HTML><BODY BGCOLOR=#0000FF>Caro Cliente:....</BODY></HTML>"

Mail.IsHTML = True

 

Send – Método do componente que faz a conexão com o servidor SMTP e envia a mensagem. Podemos realizar um tratamento de erros.

 

Exemplo:

 

On Error Resume Next

Mail.Send

If Err <> 0 Then

Response.Write "Ocorreu o seguinte erro: " & Err.Description

End If

 

AddAttachment – Para enviar um arquivo anexo a mensagem usamos o método AddAttachment.

 

Exemplo: Mail.AddAttachment "c:\dir\arquivo.doc"

 

abaixo um code completo:

 

<H3>Enviando um e-mail com o componente AspEmail</H3>

<%

Dim Mail ' objeto Email

Dim strFromName ' nome do remetente

Dim strFromEmail ' endereço de Email do remetente

Dim strToEmail ' endereço do destinatario

Dim strSubject, strBody 'corpo da mensagem

Dim strThisPage ' o endereco do seu site

Dim strReferringPage ' a referencia URL

Dim bValidInput ' variável Booleana usada na validação

Dim strhost ' nome do servidor

' Retorna o nome do arquivo de script e a url da pagina

strThisPage = Request.ServerVariables("SCRIPT_NAME")

strReferringPage = Request.ServerVariables("HTTP_REFERER")

'define os valores iniciais dos parametros usados em nossa mensagem

strhost = "mail.nome.com.br" ‘altere o nome para o seu servidor de mensagens

strFromName = Trim(Request.Form("txtFromName"))

strFromEmail = Trim(Request.Form("txtFromEmail"))

strToEmail = Trim(Request.Form("txtToEmail"))

strSubject = "Site "

strBody = Trim(Request.Form("txtMessage"))

'monta o corpo da mensagem

strBody = ""

strBody = strBody & "Achei um site que tem tudo sobre Visual Basic , dê uma olha em :" & vbCrLf

strBody = strBody & vbCrLf

strBody = strBody & " http://www.teste.com/teste/urnas/3994 " & vbCrLf

' validacao dos dados

bValida_Entrada = True

bValida_Entrada = bValida_Entrada And strFromName <> ""

bValida_Entrada = bValida_Entrada And Valida_Email(strFromEmail)

bValida_Entrada = bValida_Entrada And Valida_Email(strToEmail)

'Se o e-mail é valido envia a mensagem

If bValida_Entrada Then

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

Mail.Host = strHost

Mail.From = strFromEmail

Mail.FromName = strFromName

Mail.AddAddress strToEmail

Mail.Subject = strSubject

Mail.Body = strBody

on error resume next

Mail.Send

mensagem_erro = ""

if err <> 0 then

mensagem_erro = "Ocorreu o seguinte erro durante o envio do e-mail: " & Err.description

end if

Set Mail = Nothing

on error goto 0

' exibe mensagem de agradecimento

%>

<P><b>Sua mensagem foi enviada. Obrigado por ter visitado nosso site , volte sempre !</P></b>

<%

Else

If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then

Response.Write "Ocorreu um erro . Verifique suas informações: " & "<BR>" & vbCrLf

End If

' exibe o formulario...

Exibe_Formulario strThisPage, strFromName, strFromEmail, strToEmail, strBody

End If

%>

<%

'verifica se o e-mail é valido

Function Valida_Email(strEmail)

Dim bIsValid

bIsValid = True

If Len(strEmail) < 5 Then

bIsValid = False

Else

If Instr(1, strEmail, " ") <> 0 Then

bIsValid = False

Else

If InStr(1, strEmail, "@", 1) < 2 Then

bIsValid = False

Else

If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then

bIsValid = False

End If

End If

End If

End If

Valida_Email = bIsValid

End Function

%>

<%

Sub Exibe_Formulario(strPageName, strFromName, strFromEmail, strToEmail, strBody)

%>

<html>

<body bgcolor=aqua>

<FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral>

<TABLE BORDER="0">

<TR>

<TD VALIGN="top" ALIGN="right"><STRONG>Seu Nome:</STRONG></TD>

<TD><INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" SIZE="30"></TD>

</TR>

<TR>

<TD VALIGN="top" ALIGN="right"><STRONG>E-mail do Remetente :</STRONG></TD>

<TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="<%= strFromEmail %>" SIZE="50"></TD>

</TR>

<TR>

<TD VALIGN="top" ALIGN="right"><STRONG>E-mail do destinatário:</STRONG></TD>

<TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="<%= strToEmail %>" SIZE="50"></TD>

</TR>

<TR>

<TD VALIGN="top" ALIGN="right"><STRONG>Mensagem:</STRONG></TD>

<TD><TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY><%= strBody %></TEXTAREA></TR>

<TR>

<TD></TD>

<TD><INPUT TYPE="reset" VALUE="Limpar Formulário" name=rstReferral>  <INPUT TYPE="submit" VALUE="Enviar E-mail" name=subReferral></TD>

</TR>

</TABLE>

</FORM>

</body>

</html>

<%

End Sub

%>

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