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

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