Message « Ted k’

5
Jul/080

Enviando E-Mail com ASP.NET

Uma maneira simples e prática de enviar e-mail com ASP.NET usando o VB, o código está comentado, e bem detalhado para facilitar o entendimento, bom proveito!

Contato.aspx


<%@ Page Language="VB" AutoEventWireup="False" %>
<%@ Import NameSpace="System.Web.Mail" %>
<script src="Contato.vb" runat="server"></script>
<form runat="server">
Preencha o formul&aacute;rio abaixo e aguarde<br>por nossas super promo&ccedil;&otilde;es!
<br><br>
<asp:Label Id="LbMsg" Text="" runat="server" />
<br><br>
<strong>Nome: </strong><br>
<asp:TextBox Id="CmpNome" Columns="25" runat="server" />
<br>
<strong>Assunto: </strong><br>
<asp:TextBox Id="CmpAssunto" Columns="25" runat="server" />
<br>
<strong>Mensagem: </strong><br>
<asp:TextBox Id="CmpMensagem" TextMode="MultiLine" Columns="25" runat="server" />
<br>
<asp:Button Id="BtEnviar" OnClick="BtEnviarMailing" Text="Enviar" runat="server" />
</form>

Contato.vb


Sub BtEnviarMailing(Source As Object, E As EventArgs)
	Dim VarMsg, VarCmpNome, VarCmpAssunto, VarCmpMensagem As String
	Dim TedkEmail As New MailMessage

		' Recebendo valores do Formulário
		VarCmpNome = CmpNome.Text
		VarCmpAssunto = CmpAssunto.Text
		VarCmpMensagem = CmpMensagem.Text

	'Alimentando a variável da mensagem
	VarMsg += "<strong>Nome: </strong>"+VarCmpNome+"<br><strong>Assunto: </strong>"+VarCmpAssunto+"<br><strong>Mensagem: </strong>"+VarCmpMensagem+"<strong>"

	' Configurando e-mails de envio "DE" e "PARA" e o Assunto da Mensagem
	TedkEmail.To = "email@email.com"
	TedkEmail.From = "email@email.com"
	TedkEmail.Subject = "Assunto: "+VarCmpAssunto+""
	TedkEmail.Body = VarMsg
	TedkEmail.BodyFormat = MailFormat.Html 'Formato de Envio, no caso HTML

	' Configure o SMTP de Envio
	SmtpMail.SmtpServer = "smtp.servidor.com.br"
	SmtpMail.Send(TedkEmail)

		' Limpando os campos do Formulário
		CmpNome.Text = ""
		CmpEmail.Text = ""
		CmpEndereco.Text = ""
		CmpDia.Text = ""
		CmpMes.Text = ""

	' Mensagem que será postada na pagina inicial
	LbMsg.Text = "Mensagem Enviada com Sucesso!"
End Sub

Tagged as: ASP, aspx, button, envio de e-mail, EventArgs, mail, mailmessage, Message, ruant, Source

Não há Comentários

17
Mar/0816

CDO.Message : Enviado E-Mail

Enviado E-Mail com CDO.Message

Arquivo: Default.html

><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Enviar E-Mail</title>
</head>
<body>
<table width="279" border="0" cellspacing="2" cellpadding="0">
<form method="post" name="Formulario" action="Enviar.asp">
<tr>
<td width="87">Nome:</td>
<td width="186"><input type="text" name="Nome"></td>
</tr>
<tr>
<td>E-Mail:</td>
<td><input type="text" name="EMail"></td>
</tr>
<tr>
<td valign="top">Mensagem:</td>
<td valign="top"><textarea name="Mensagem" rows="4"></textarea></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><input type="submit" name="button" value="Enviar Mensagem"></td>
</tr>
</form>
</table>
</body>
</html>

Arquivo: Enviar.asp

<%
Dim Sch : Sch = "www.schemas.microsoft.com/cdo/configuration/"
Dim TedkConfig, TedkMessage, Erro, Sucesso, Msg_HTML
Set TedkConfig = Server.CreateObject("CDO.Configuration")

' Dodos principais de envio, coloque os dados de seu dominio aqui!
With (TedkConfig)
.Fields.Item(Sch & "sendusing") = 2
.Fields.Item(Sch & "smtpauthenticate") = 1
.Fields.Item(Sch & "smtpserver") = "smtp.dominio.com.br"
.Fields.Item(Sch & "sendusername") = "contato=dominio.com.br"
.Fields.Item(Sch & "sendpassword") = "contatosenha" 'Não hã necessidade de senha, só para autenticação 2.
.Fields.Update
End With

Set TedkMessage = Server.CreateObject("CDO.Message")
Set TedkMessage.Configuration = TedkConfig

With (TedkMessage)
.From = """"&Request.Form("Nome")&""" <"&Request.Form("EMail")&">" ' Quem envio a mensagem, com nome e e-mail
.To = "contato@dominio.com.br" ' Quem Vai receber a mensagem
.BCC = "administrador@dominio.com.br" ' Caso queira uma cópia oculta
.Subject = "Mensagem enviada de Exemplo" ' Assunto da Mensagem
.ReplyTo = Request.Form("EMail") ' Retorna mensagem de erro para o e-mail do rementente
End With

' Enviado o Corpo da Mensagem
Msg_HTML = "<table width='279′ border='0′ cellspacing='2′ cellpadding='0′><tr>"
Msg_HTML = Msg_HTML & "<td width='87′>Nome:</td><td width='186′>"&Request.Form("Nome")&"</td>"
Msg_HTML = Msg_HTML & "</tr><tr><td>E-Mail:</td><td>"&Request.Form("EMail")&"</td></tr><tr><td valign='top'>Mensagem:</td>"
Msg_HTML = Msg_HTML & "<td valign='top'>"&Request.Form("Mensagem")&"</td></tr></table>"

TedkMessage.HTMLBody = Msg_HTML

' Caso a mensagem seja diferente de vazio envia como Texto
If Msg_HTML <> "" Then
TedkMessage.AutoGenerateTextBody = False
TedkMessage.TextBody = Msg_HTML
End If

Erro = ""
Sucesso = False
On Error Resume Next ' Forçando a não aparecer a linha do erro

TedkMessage.Send

' Finalizando os Recordset's
Set TedkMessage = Nothing
Set TedkConfig = Nothing

' Verificando algum erro existente e colocando na página
If Err <> 0 Then : Erro = Err.Description : Else : Sucesso = True : End If

' Mensagem de Resposta
Response.Write("<script>alert('Mensagem Enviada com Sucesso');location='Default.html'</script>")
%>

Qualquer dúvida é só comentar:

Díca: Acesse também http://www.webly.com.br/

Tagged as: ASP, CDO, CDO.Message, CDONTS, enviado e-mail com asp, enviado email com asp, Message, webly

16 Comentários

Página 1 de 11

Ted k’ É assim que tem que ser! Programando em ASP, ASP.NET, PHP, CSS, dentre outras…

Enviando E-Mail com ASP.NET

CDO.Message : Enviado E-Mail

Categorias

Os Melhores da WEB

Delicious