Aprenda o comando ASP Guaíba, Rio Grande do Sul

Confira a demonstração de como enviar e-mails em ASP. Envie os formulários criados a partir dos conceitos básicos de programação. "Os scripts em ASP só funcionam quando estão publicados em um servidor", destaca o autor.

Business Online Comunicação de Dados
(51) 3320-4400
tv Mal Bormann, 159, Teresópolis
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
DP Brasil-Processamento de Dados Ltda
(51) 3343-0036
av Benjamin Constant, 1130 cj 203, São João
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
Digitus Processamento de Dados Ltda
(51) 3246-7981
av Firmino Octávio Bimbi, 255 c 40a, Cavalhada
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
Excell Processamento de Dados
(51) 3343-8753
av Pres Franklin Roosevelt, 929 sl 407, Navegantes
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
ADP Systems
(51) 3327-1400
r Mostardeiro, 800 AN11, Independencia
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
Confidor Processamento de Dados Ltda
(51) 3346-2600
tv Azevedo, 178, Floresta
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
Coplanar Processamento de Dados Ltda
(51) 3319-8060
r Tocantins, 937 c 13, Agronomia
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
Data Light Assessoria em Processamentos de Dados
(51) 3346-4648
r Félix Cunha, 768 cj 308, Floresta
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
Ag&m Soluções
(51) 3332-1027
av Protásio Alves, 74 s 6, Rio Branco
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
Conciso Processamento de Dados
(51) 3361-2244
r Sta Catarina, 361, Santa Maria Goretti
Porto Alegre, Rio Grande do Sul

Dados Divulgados por
Dados Divulgados por

Aprenda o comando ASP

SendMail em ASP

Edson Pereira Santos1

¹ Belo Horizonte – MG – Brasil

edson@yahoo.com.br

edson@tryadecode.com

Abstract. In this article I demonstrate how to make a page for sending e- mails in asp, both to deduce that you have the form of transmission of data at another site and has a basic knowledge of programming.

Resumo. Neste artigo eu demonstrarei como fazer uma pagina de envio de e-mails em asp, para tanto deduzirei que você já fez o formulário de envio de dados em outra pagina e que tem um conhecimento básico de programação.

1. Recuperando as informações enviadas pelo formulário

Abra o notepad (Blocos de Notas), como esta pagina somente será utilizada para enviar o e-mail, nós não precisaremos colocar a tags HTML nela. Para inserir um conteúdo asp em uma pagina você deve colocá-lo dentro de “<%” e “%>”, pois assim o browser reconhecerá automaticamente que se trata de um código asp.

Então para começa, digite <%, tecle enter, digite %> e tecle enter novamente.

Deverá ficar assim:

<%

(código fonte irá ficar aqui.)

%>

Sendo que o código fonte deverá ser escrito entre os símbolos:

Neste exemplo eu supus que o formulário que enviou os dados tinha apenas 3 variáveis(nome, email e mensagem), portanto para formulários com mais variáveis(campos), basta você acrescentar mais campos no código.

O primeiro código a ser digitado é o para recuperar as variáveis que o formulário enviou e o código asp que faz isso é o RequestForm.

Portanto para as três variáveis irá ficar assim:

<%

nome = RequestForm(“nome”) ‘aqui nós criamos uma variável chamada

‘nome que receberá o nome enviado

‘através do formulário. Note que o nome a ser

‘recuperado esta entre aspas, isto é obrigatório.

email = RequestForm(“email”)

mensagem = RequestForm(“mensagem”)

%>

2. Formatando o corpo do e-mail

Agora que já recuperamos as variáveis vamos formatar o e-mail que será enviado. Para tanto vamos criar uma variável a qual iremos concatenar todo o corpo do e-mail, já com a formatação, para posteriormente a enviarmos.

Nossa variável terá o nome de corpoEmail e primeiramente vamos formatar o corpo do e-mail, para tanto utilizaremos de comandos HTML, que como não é o nosso foco aqui e portanto eu apenas irei os inserir.

<%

nome = RequestForm(“nome”) ‘aqui nós criamos uma variável chamada

‘nome que receberá o nome enviado

‘através do formulário. Note que o nome a ser

‘recuperado esta entre aspas, isto é obrigatório.

email = RequestForm(“email”)

mensagem = RequestForm(“mensagem”)

corpoEmail = corpoEmail & "” ‘este código tem que ficar em uma só linha

corpoEmail = corpoEmail & “Nome: ” & nome & “

corpoEmail = corpoEmail & “Email: ” & email & ”

corpoEmail = corpoEmail & “Mensagem” & mensagem & “

corpoEmail = corpoEmail & ""

%>

Explicando o código:

corpoEmail = corpoEmail & ”Nome: ” & nome & “

Primeiramente é importante saber que o comando para concatenar duas Strings em aspe o e comercial (&), portanto no código eu mandei a variável corpo receber ela mesma(para não perder o conteúdo que estava nela) mais um string contendo o nome do campos(ex: “Nome: ”- serve para as pessoas conseguirem diferenciar os campos no e-mail.) e a variável com o campo em si (ex: nome – esta é a variável onde nós recuperamos o nome que foi enviado via formulário).

Já o comandos abaixo são comandos de formatação de texto em HTML , portanto não entraremos em detalhes sobre eles aqui, mas vale saber que para aumentar o tamanho do texto do email, basta aumenta o numero do campo size e para mudar a cor da letra basta alterar o campo color.

""

""

Ps. O corpo do e-mail deve ficar entre as tags deste comando, assim como eu coloquei no código.

3. Configurando o envio do e-mail

Agora com o corpo do e-mail formatado nós vamos começar a digitar os comandos de envio do mesmo. Para isto criaremos um objeto MailServer:

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

Eu o dei o nome de Mail, mas você pode colocar qualquer nome de sua preferência. Agora vamos utilizar as funções deste objeto para configura o envio do e-mail:

Mail.Host = "Server.com" ‘aqui você deve colocar o endereço

‘do seu servidor de emails.

Mail.From = “a@a.com.br “ ‘aqui você deve colocar o seu e-mail(remetente),

‘o seu e-mail no servidor.

Mail.FromName = "E-mail enviado pelo Site" ‘Campo opcional, nele você pode

‘colocar o nome ‘do e-mail e o mesmo irá aparecer no lugar do

‘e-mail no programa de e-mail do destinatário.

destinatario="a@a.com.br" ‘aqui você deve colocar o destinatário do e-mail,

‘ou seja, a pessoa que irá o receber, normalmente

‘você mesmo (seu próprio e-mail).

Mail.AddAddress destinatario ‘aqui eu estou inserindo o destinatário

‘na função AssAddress, não altere.

Mail.IsHTML = True ‘ coloque true ou false aqui, para enviar ou não o e-mail

‘ em formato HTML

Mail.Subject = "Email de Teste enviado pelo site" ‘aqui você deve colocar

‘ o assunto do e-mail.

Mail.Body = corpoEmail ‘na função Boby nó colocamos a variável com

‘o corpo do e-mail.

Obs.: Repare que todos os dados passados para as funções, com exceção das variáveis, estão entre aspas duplas, isto é obrigatório.

4. Enviando o e-mail e tratando erros

Para finalizar agora seria só digitarmos o comando send (Mail.Send) e enviar o e-mail, mas o código não fiaria bom, pois não saberíamos se o e-mail realmente teria ido. Portanto para deixarmos o nosso código mais robusto eu vou inserir mais algumas linhas para tratar eventuais erros de envio do e-mail, onde será exibida uma mensagem avisando se o e-mail foi o não enviado, lembro quês essas linhas são opcionais.

<%

nome = RequestForm(“nome”) ‘aqui nós criamos uma variável chamada

‘nome que receberá o nome enviado

‘através do formulário. Note que o nome a ser

‘recuperado esta entre aspas, isto é obrigatório.

email = RequestForm(“email”)

mensagem = RequestForm(“mensagem”)

corpoEmail = corpoEmail & "" ‘este código tem que ficar em uma só linha

corpoEmail = corpoEmail & “Nome: ” & nome & “

corpoEmail = corpoEmail & “Email: ” & email & ”

corpoEmail = corpoEmail & “Mensagem” & mensagem & “

corpoEmail = corpoEmail & ""

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

Mail.Host = "Server.com" ‘aqui você deve colocar o endereço do seu servidor

‘de emails.

Mail.From = “a@a.com.br “ ‘aqui você deve colocar o seu e-mail(remetente),

‘ o seu e-mail no servidor

Mail.FromName = "E-mail enviado pelo Site" ‘Campo opcional, nele você

‘pode colocar o nome do e-mail e o mesmo irá

‘aparecer no lugar do e-mail no programa de e-mail do destinatário.

destinatario="a@a.com.br" ‘aqui você deve colocar o destinatário do e-mail,

‘ ou seja, a pessoa que irá o receber, normalmente

‘ você mesmo (seu próprio e-mail).

Mail.AddAddress destinatario ‘aqui eu estou inserindo o destinatário

‘na função AssAddress, não altere.

Mail.IsHTML = True ‘ coloque true ou false aqui, para enviar ou não o e-mail

‘ em formato HTML

Mail.Subject = "Email de Teste enviado pelo site" ‘aqui você deve colocar

‘ o assunto do e-mail.

Mail.Body = corpoEmail ‘na função Boby nó colocamos a variável com

‘o corpo do e-mail.

‘envio do e-mail

erro = ""

sucesso = False

On Error Resume Next 'Verifica erros

Mail.Send 'Envia mensagem

If Err <> 0 Then

erro = Err.Description

else

sucesso = True

End If

Set Mail = nothing

%>

<% If erro <> "" Then%> ‘mensagem caso falha

Ocorreu um erro: <% = erro %>

<% End If %>

<% If sucesso Then%> ‘mensagem caso sucesso

Mensagem enviada para <% = destinatario %> com sucesso.

<% End If %>

Obs.: Você deve ter notado que no código eu coloquei algumas observações, mas você não precisa retirá-las se não quiser, pois elas estão no formato de comentários e portanto não iram interferir na execução da pagina.

Nota: Para criar comentários em asp, você deve utilizar aspas simples ( ‘ ).

Agora é só salvar o arquivo com a extensão “asp” e direcionar o campo action do formulário de e-mail para a pagina que você acabou de criar. Lembre-se que scripts em asp só funcionam quando estão publicados em um servidor.

Edson Pereira Santos

Programador de Sitemas

Clique aqui para ler este artigo na Artigonal.Com