Knowledge Base

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

Article ID: 314201

Article Last Modified on 7/19/2005

APPLIES TO

Microsoft Visual Basic .NET 2003 Standard Edition
Microsoft Visual Basic .NET 2002 Standard Edition

This article was previously published under Q314201

SUMMARY

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

MORE INFORMATION

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.
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.

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

Modify code where you see "TODO".
Press F5 to build and run the program.
Verify that the e-mail message has been sent and received.

Keywords: kbhowto KB314201

Microsoft KB Archive/314201

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

SUMMARY

MORE INFORMATION