Public Shared Sub sendEMail(ByVal FromEmailId As String, ByVal password As String, ByVal smtpServerAddress As String, ByVal toEmailId As String, ByVal subject As String, ByVal msgBody As String, ByVal fileName As String)
Dim attachment = New System.Net.Mail.Attachment(fileName)
Dim client As New SmtpClient()
client.EnableSsl = True
client.Host = smtpServerAddress
client.Credentials = New NetworkCredential(FromEmailId, password)
Dim mail = New MailMessage(FromEmailId, toEmailId)
mail.Subject = subject
mail.IsBodyHtml = False
mail.Attachments.Add(attachment)
mail.Body = msgBody
Try
client.Send(mail)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Usage:
frmMain.sendEMail(txt_email.Text, txt_pass.Text, cmb_smtp.Text, txt_email.Text, "Back up", "Back up", "F:\Backup.bak")
|
11/6/2012 12:34:39 AM: 
