Sending e-mail by using SMTP and ASP.NET - ASP.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

Sending e-mail by using SMTP and ASP.NET
Author: samnet
E-mail: Click to e-mail author
Submitted: 8/12/2006
Version: ASP.NET 1.1
Compatibility: ASP.NET 1.1
Category: ASP.NET
Views: 21377
Sending e-mail by using SMTP and ASP.NET.
Declarations:
Imports System.Web.Mail Imports System.Web.Mail.MailMessage Public Class WebForm1 Inherits System.Web.UI.Page Dim sTo As String, sFrom As String, sSubject As String, sBody As String Dim sAttach As String, sCc As String, sBcc As String, sBodyEncoding As String Dim sBodyFormat As String, sMailServer As String, sPriority As String Dim sUrlContentBase As String, sUrlContentLocation As String Dim iLoop1 As Integer
Code:
Sub Page_Load() 'Dim Encoding As New System.Web.Mail.MailMessage 'If Not IsPostBack Then lblMsg1.Text = "" 'txtTo.Text = "john@contoso.com" 'txtFrom.Text = "marsha@contoso.com" 'txtCc.Text = "fred@contoso.com" 'txtBcc.Text = "wilma@contoso.com" 'txtSubject.Text = "Hello" 'txtBody.Text = "This is a test message." 'txtAttach.Text = "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg," _ ' & "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Winter.jpg" ''txtBodyEncoding.Text = Encoding.ASCII.EncodingName 'txtBodyFormat.Text = "HTML" 'txtPriority.Text = "Normal" 'txtUrlContentBase.Text = "http://www.contoso.com/images" 'txtUrlContentLocation.Text = "http://www.contoso.com/images" ' Name of relay mail server in your domain. txtMailServer.Text = "smarthost" ' 'End If End Sub Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) Dim sTo As String, sFrom As String, sSubject As String, sBody As String Dim sAttach As String, sCc As String, sBcc As String, sBodyEncoding As String Dim sBodyFormat As String, sMailServer As String, sPriority As String Dim sUrlContentBase As String, sUrlContentLocation As String Dim iLoop1 As Integer sTo = Trim(txtTo.Text) sFrom = Trim(txtFrom.Text) sSubject = Trim(txtSubject.Text) sBody = Trim(txtBody.Text) 'sAttach = Trim(txtAttach.Text) 'sCc = Trim(txtCc.Text) 'sBcc = Trim(txtBcc.Text) 'sBodyFormat = Trim(txtBodyFormat.Text) 'sBodyEncoding = Trim(txtBodyEncoding.Text) 'sPriority = Trim(txtPriority.Text) 'sUrlContentBase = Trim(txtUrlContentBase.Text) 'sUrlContentLocation = Trim(txtUrlContentLocation.Text) sMailServer = Trim(txtMailServer.Text) Dim MyMail As MailMessage = New MailMessage MyMail.From = sFrom MyMail.To = sTo MyMail.Subject = sSubject MyMail.Body = sBody 'MyMail.Cc = sCc 'MyMail.Bcc = sBcc 'MyMail.UrlContentBase = sUrlContentBase 'MyMail.UrlContentLocation = sUrlContentLocation 'Select Case txtBodyEncoding.Text ' Case Encoding.UTF7.EncodingName : MyMail.BodyEncoding = Encoding.UTF7 ' Case Encoding.UTF8.EncodingName : MyMail.BodyEncoding = Encoding.UTF8 ' Case Else : MyMail.BodyEncoding = Encoding.ASCII 'End Select '------------------------ 'Select Case UCase(sBodyFormat) ' Case "HTML" : MyMail.BodyFormat = MailFormat.Html ' Case Else : MyMail.BodyFormat = MailFormat.Text 'End Select 'Select Case UCase(sPriority) ' Case "HIGH" : MyMail.Priority = MailPriority.High ' Case "LOW" : MyMail.Priority = MailPriority.Low ' Case Else : MyMail.Priority = MailPriority.Normal 'End Select ' Build an IList of mail attachments. 'If sAttach <> "" Then ' Dim delim As Char = "," ' Dim sSubstr As String ' For Each sSubstr In sAttach.Split(delim) ' Dim myAttachment As MailAttachment = New MailAttachment(sSubstr) ' MyMail.Attachments.Add(myAttachment) ' Next 'End If SmtpMail.SmtpServer = sMailServer SmtpMail.Send(MyMail) lblMsg1.Text = "VB Message sent to " & MyMail.To End Sub Sub btnClear_Click(ByVal sender As Object, ByVal e As EventArgs) lblMsg1.Text = "" txtTo.Text = "" txtFrom.Text = "" txtSubject.Text = "" txtBody.Text = "" txtAttach.Text = "" txtBcc.Text = "" txtCc.Text = "" txtBodyEncoding.Text = "" txtBodyFormat.Text = "" txtPriority.Text = "" txtUrlContentBase.Text = "" txtUrlContentLocation.Text = "" txtMailServer.Text = "" btnSubmit.Text = "Submit" End Sub Private Sub txtAttach_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAttach.TextChanged End Sub End Class