Public Function SendMail() Dim Result As Boolean = False Try Dim mail As New MailMessage mail.Subject = Me.m_Subject mail.To.Add(Me.m_MailAddress) If Me.m_ccStatus = True Then mail.CC.Add(Me.m_CC) End If mail.From = New MailAddress(Me.m_Credents.UserName) mail.Body = Me.m_BodyText Dim attachF As Net.Mail.Attachment For Each i As String In Me.m_ListOfAttachments attachF = New Net.Mail.Attachment(i) mail.Attachments.Add(attachF) Next Dim smtp As New SmtpClient(Me.m_SmtpClient) smtp.EnableSsl = True smtp.Credentials = New System.Net.NetworkCredential(Me.m_Credents.UserName, Me.m_Credents.PassWord) smtp.Port = Me.m_PortNumber smtp.Send(mail) Result = True Catch ex As Exception Throw New Exception("Can't send e-mail") End Try
Dim mail As New MailMessage
Using mail As New MailMessage
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)