I have noticed a few people here in the .Net forums trying to get their systems to automatically email someone. I have written a class that does this very simply. All you need to do is set the properties and call the function whenever you want your program to email someone.
To use this class add a new class file called Emailer.vb. Open the file and overwrite it with the green code found here.
If you are using this function in a VB.NET standalone project then the dll will not be referenced yet. To reference it do the following.
Go to Project -> Add Reference -> Find System.Web.dll -> Select and OK.
If you check in your references folder in the solution window you should now see an entry for System.Web
[color green]
Imports System.Web
Public Class Emailer
Private mTo As String
Private mFrom As String
Private mSubject As String
Private mBodyFormat As Mail.MailFormat
Private mSmtpServer As String
#Region " Class Properties "
Public Property MailTo() As String
Get
Return mTo
End Get
Set(ByVal Value As String)
mTo = Value
End Set
End Property
Public Property From() As String
Get
Return mFrom
End Get
Set(ByVal Value As String)
mFrom = Value
End Set
End Property
Public Property Subject() As String
Get
Return mSubject
End Get
Set(ByVal Value As String)
mSubject = Value
End Set
End Property
Public Property BodyFormat() As Mail.MailFormat
Get
Return mBodyFormat
End Get
Set(ByVal Value As Mail.MailFormat)
mBodyFormat = Value
End Set
End Property
Public Property SmtpServer() As String
Get
Return mSmtpServer
End Get
Set(ByVal Value As String)
mSmtpServer = Value
End Set
End Property
#End Region
#Region " Class Functions "
Public Function EmailCust(ByVal Email As String, ByVal msgBody As String) As Boolean
Dim myMessage As New Mail.MailMessage()
Dim myMailServer As Mail.SmtpMail
Dim output As Boolean = True
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.