How to send e-mail programmatically with System.Web.Mail and Visual Basic .NET

Article translations Article translations
Article ID: 314201 - View products that this article applies to.
This article was previously published under Q314201
Expand all | Collapse all

SUMMARY

This article demonstrates how to use System.Web.Mail to send an e-mail message in Visual Basic .NET.

MORE INFORMATION

  1. Start Microsoft Visual Studio .NET. On the File menu, click New and then click Project. Click Visual Basic Projects, click the Console Application template, and then click OK. By default, Module1.vb is created.
  2. Add a reference to System.Web.dll. To do this, follow these steps:
    1. On the Project menu, click Add Reference.
    2. On the .NET tab, locate System.Web.dll, and then click Select.
    3. Click OK in the Add References dialog box to accept your selections. If you receive a prompt to generate wrappers for the libraries you selected, click Yes.
  3. In the code window, replace the whole code with:
    Imports System.Web.Mail
    
    Module Module1
    
        Sub Main()
    
            Dim oMsg As MailMessage = New MailMessage()
    
            ' TODO: Replace with sender e-mail address.
            oMsg.From = "sender@somewhere.com"
            ' TODO: Replace with recipient e-mail address.
            oMsg.To = "recipient@somewhere.com"
            oMsg.Subject = "Send using Web Mail"
    
            ' SEND IN HTML FORMAT (comment this line to send plain text).
            oMsg.BodyFormat = MailFormat.Html
    
            'HTML Body (remove HTML tags for plain text).
            oMsg.Body = "<HTML><BODY><B>Hello World!</B></BODY></HTML>"
    
            ' ADD AN ATTACHMENT.
            ' TODO: Replace with path to attachment.
            Dim sFile As String = "C:\temp\Hello.txt"
            Dim oAttch As MailAttachment = New MailAttachment(sFile, MailEncoding.Base64)
    
            oMsg.Attachments.Add(oAttch)
    
            ' TODO: Replace with the name of your remote SMTP server.
            SmtpMail.SmtpServer = "MySMTPServer"
            SmtpMail.Send(oMsg)
    
            oMsg = Nothing
            oAttch = Nothing
        End Sub
    
    End Module
    					
  4. Modify code where you see "TODO".
  5. Press F5 to build and run the program.
  6. Verify that the e-mail message has been sent and received.

Properties

Article ID: 314201 - Last Review: July 19, 2005 - Revision: 2.2
APPLIES TO
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Keywords: 
kbhowto KB314201

Give Feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com