Agência OFF, desenvolvimento de soluções web para as Agências Digitais
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ário abaixo e aguarde<br>por nossas super promoçõ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
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Tags: ASP • aspx • button • envio de e-mail • EventArgs • mail • mailmessage • Message • ruant • Source

