VB.NetSystem Objects

VB.Net - eMail

Here’s a piece of code I used in framework 1.1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Imports System.Web.Mail

' this code was originally taken from the MSDN

Public Class si_mail

    Public Shared Sub SendMail( _
            ByVal MessageTo As String, _
            ByVal MessageFrom As String, _
            ByVal MessageSubject As String, _
            ByVal MessageBody As String)

        Try

            Dim Message As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage

            Message.To = MessageTo
            Message.From = MessageFrom
            Message.Subject = MessageSubject
            Message.Body = MessageBody

            Try

                SmtpMail.SmtpServer = ConfigurationSettings.AppSettings("SmtpServer")

                SmtpMail.Send(Message)

            Catch ehttp As System.Web.HttpException
                Console.WriteLine("0", ehttp.Message)
                Console.WriteLine("Here is the full error message")
                Console.Write("0", ehttp.ToString())
            End Try

        Catch e As System.Exception
            ' Display text of unknown error.
            Console.WriteLine("Unknown Exception occurred 0", e.Message)
            Console.WriteLine("Here is the Full Error Message")
            Console.WriteLine("0", e.ToString())
        End Try

    End Sub

In Framework 2.0 they obsoleted the System.Web.Mail and replaced it with System.Net.Mail.

Here is an example of asp.net 2.0 mail sending

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    Dim msg As System.Net.Mail.MailMessage _
       = New System.Net.Mail.MailMessage("<a href="xxx.com", ">testing@ss.com", "wachdorfm@sacsewer.com")

    msg.Subject = "ASP.Net eMail Test"

    msg.Body = "This is a test to confirm that eMail is functioning out of asp.Net properly." _
	    & " - " & HttpContext.Current.Server.MapPath("_Test_eMail.aspx")

    Dim mailSender As System.Net.Mail.SmtpClient _
  = New System.Net.Mail.SmtpClient()

    mailSender.Host = "xxxbound.saccounty.net"

    mailSender.Send(msg)

End Sub