Click here to Skip to main content
Click here to Skip to main content

Send SMTP mail using VB.NET

, 1 Oct 2002
Rate this:
Please Sign up or sign in to vote.
A console application to send SMTP mail

Introduction

I needed a way to send a smtp mail message from a command prompt to notify me when one our servers failed over using Double-Take.

This article demonstates sending a smtp mail message from the command prompt

    
Imports System.Web.Mail
    
Sub Main()
        Dim strMSG As String
        Dim strArgs() As String = Command.Split(",")
        Dim blnSMTP As Boolean = False
        Dim blnCC As Boolean = False
        Dim blnAttachments As Boolean = False

        'get the product name, version and description from the assembly
        strMSG = vbCrLf + vbCrLf + _
          System.Diagnostics.FileVersionInfo.GetVersionInfo( _ 
      System.Reflection.Assembly.GetExecutingAssembly.Location).ProductName _
              + " v" + System.Diagnostics.FileVersionInfo.GetVersionInfo( _
      System.Reflection.Assembly.GetExecutingAssembly.Location _
            ).ProductVersion + vbCrLf + _
         System.Diagnostics.FileVersionInfo.GetVersionInfo( _
         System.Reflection.Assembly.GetExecutingAssembly.Location _
              ).Comments + vbCrLf + vbCrLf

        If UBound(strArgs) < 3 Then
            strMSG = strMSG + "Usage: EPSendMail from@email.com, " + _
                   "to@email.com, subject, message, [smtp Server],"  + _
                   "[cc1@email.com;cc2@email.com;...], [attachment1;" + _
                        "attachment2;...]" + vbCrLf
            Console.Write(strMSG)
            Exit Sub
        End If

        strMSG = strMSG + "Sending email message" + vbCrLf + _
            "  From        --> " + Trim(strArgs(0)) + vbCrLf + _
            "  To          --> " + Trim(strArgs(1)) + vbCrLf + _
            "  Subject     --> " + Trim(strArgs(2)) + vbCrLf + _
            "  Message     --> " + Trim(strArgs(3)) + vbCrLf
        If UBound(strArgs) >= 4 Then
            If Len(Trim(strArgs(4))) > 0 Then
                blnSMTP = True
                strMSG = strMSG + "  SMTP Server --> " + Trim(strArgs(4)) + _
                   vbCrLf
            End If
        End If
        If UBound(strArgs) >= 5 Then
            If Len(Trim(strArgs(5))) > 0 Then
                blnCC = True
                strMSG = strMSG + "  CC          --> " + Trim(strArgs(5)) + _
                   vbCrLf
            End If
        End If
        If UBound(strArgs) >= 6 Then
            If Len(Trim(strArgs(6))) > 0 Then
                blnAttachments = True
                strMSG = strMSG + "  Attachments --> " + Trim(strArgs(6)) + _
                   vbCrLf
            End If
        End If
        Console.Write(strMSG)

        'send the email
        Try
            Dim insMail As New MailMessage()
            With insMail
                .From = Trim(strArgs(0))
                .To = Trim(strArgs(1))
                .Subject = Trim(strArgs(2))
                .Body = Trim(strArgs(3))
                If blnCC Then .Cc = Trim(strArgs(5))
                If blnAttachments Then
                    Dim strFile As String
                    Dim strAttach() As String = Split(strArgs(6), ";")
                    For Each strFile In strAttach
                        .Attachments.Add(New MailAttachment(Trim(strFile)))
                    Next
                End If
            End With
            If blnSMTP Then SmtpMail.SmtpServer = Trim(strArgs(4))

            SmtpMail.Send(insMail)

            Console.WriteLine("Successfully sent email message" + vbCrLf)

        Catch err As Exception
            Console.WriteLine("EXCEPTION " + err.Message + vbCrLf)
        End Try

    End Sub

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Chris Dufour
Web Developer
Canada Canada
No Biography provided

Comments and Discussions

 
GeneralExceptions when running from renaming path on Vista? [modified] PinmemberJohn Boster12-Sep-08 16:57 
GeneralImports System.Web.Mail not found [modified] PinmemberSeveley14-Jun-08 6:21 
I tryed to add the line
 
Imports System.Web.Mail
 
but my visual studio underline it as Namespace or type 'Mail' for the Imports 'System.Web.Mail' cannot be found.
 
actualy when i type System. the autocomplete dont show the Web at all.
i'm missing some component of VB .Net ? where can i get it ?
 
any idea ?
 
Seveley
 
=== edit ===
 
I installed VS studio 2008 ( had 2002 before ) and now I have System.Net.Mail Smile | :) for all that have the same problem as me
 
modified on Sunday, June 15, 2008 9:54 PM

GeneralRe: Imports System.Web.Mail not found [modified] Pinmemberdcalvinisti8-Apr-12 13:04 
Generalproblem smtserver Pinmemberraquidd2218-Mar-08 15:55 
GeneralRe: problem smtserver Pinmemberraquidd2218-Mar-08 16:30 
GeneralGreat Articles PinmemberVuyiswamb21-Oct-07 20:07 
QuestionDo we really need an SMTP Server here ? PinmemberJustme4u27-Sep-07 5:04 
Generalsending mails Pinmemberdivyathannippara18-Mar-07 18:38 
GeneralCDO.Message Error PinmemberAndyHug19-Jun-06 22:03 
QuestionSMTP Server Authentication : How To? PinmemberMehdiAnis7-Mar-06 3:23 
AnswerRe: SMTP Server Authentication : How To? PinmemberChris Dufour7-Mar-06 4:03 
AnswerRe: SMTP Server Authentication : How To? PinmemberMehdiAnis7-Mar-06 9:44 
AnswerRe: SMTP Server Authentication : How To? PinmemberChris Dufour9-Mar-06 3:59 
GeneralProb with CDA.Message PinmemberBuxo7-Sep-05 23:38 
GeneralRe: Prob with CDA.Message PinsussZ789512313-Sep-05 7:50 
Generalhelp Pinmemberpradeesh83sharma5-Sep-05 3:49 
GeneralRe: help Pinmembergthekid26-Jul-07 11:57 
GeneralHTML format PinmemberKhraeef15-Jul-05 5:22 
GeneralRe: HTML format PinmemberAdamNThompson3-Mar-08 17:19 
GeneralRe: HTML format PinmemberChris_Inman15-Jun-11 13:04 
GeneralSMTP Blocked By McAfee Virus Scan 8 PinsussPaul Gunston21-Mar-05 6:01 
QuestionProblem with Import? PinsussAnonymous30-Sep-04 12:19 
AnswerRe: Problem with Import? PinsussAnonymous14-Jul-05 2:49 
GeneralUBound Pinmemberabuhun23-Feb-04 17:27 
GeneralRe: UBound PinsussAnonymous17-Dec-04 0:47 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web02 | 2.8.140814.1 | Last Updated 2 Oct 2002
Article Copyright 2002 by Chris Dufour
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid