_A simple class for Emailing UPDATED

				
//**************************************
// Name: _A simple class for Emailing UPDATED
// Description:A .net class for emailing programmatically with attachments. Add to your project, then Dim object as SendMail to use it.
// By: Duane Warsham
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1879&lngWId=10//for details.//**************************************

'* add the System.Web.Dll reference to your .Net 
'* project if doing a Windows Application. An 
'* ASP.Net app should include this reference.
'* Simply declare an object of type SendMail in code, ie in another class like a form class,
'Dim myEmail as New SendMail
'* set the to, from, attachment string path, body and subject properties, then call
'* MailMessage to send the email
Imports System.Web.Mail
Public Class SendMail
 Private _Subject As String
 Private _Body As String
 Private _Attachment as String
 Private _SendTo as String
 Private _From as String
 Public Property Subject() As String
 Get
 Return _Subject
 End Get
 Set(ByVal Value As String)
 _Subject = Value
 End Set
 End Property
 Public Property Body() As String
 Get
 Return _Body
 End Get
 Set(ByVal Value As String)
 _Body = Value
 End Set
 End Property
 Public Property Attachment() As String
 Get
 Return _Attachment
 End Get
 Set(ByVal Value As String)
 _Attachment = Value
 End Set
 End Property
 Public Property SendTo() As String
 Get
 Return _SendTo
 End Get
 Set(ByVal Value As String)
 _SendTo= Value
 End Set
 End Property
 Public Property From() As String
 Get
 Return _From
 End Get
 Set(ByVal Value As String)
 _From= Value
 End Set
 End Property
 Public Sub MailMessage()
 Dim objMail As New MailMessage
 Dim Attach as New MailAttachment(_Attachment)
 SmtpMail.SmtpServer = "" 'this needs to be the Smtp mail server, a proxy will not work, get this from your administrator, or Exchange server name in outlook
 'these Private variables can be set from the class you are using them in
 objMail.From = _From
 objMail.To = _SendTo
 objMail.Subject = _Subject 'Subject text
 objMail.Body = _Body 'Body Text
 objMail.Attachments.Add(Attach)
 objMail.BodyFormat = MailFormat.Html 'can be text also
 SmtpMail.Send(objMail)
 End Sub
End Class