SendMail With Attachments

Imports System.Net.Mail

Public Shared Function SendMail(ByVal MailFrom As String, ByVal MailTo As String, ByVal MailSubject As String, ByVal MailBody As String, Optional ByVal MailCC As String = "", Optional ByVal MailBCC As String = "", Optional ByVal MyMailPriority As MailPriority = MailPriority.Normal, Optional ByVal IsBodyHtml As Boolean = False, Optional ByVal Attachment1 As String = "-999", Optional ByVal Attachment2 As String = "-999", Optional ByVal Attachment3 As String = "-999", Optional ByVal MailFromName As String = "-999") As Boolean
Try
Dim ObjSendMail As New MailMessage(MailFrom, MailTo, MailSubject, MailBody)
If MailFromName <> "-999" Then
ObjSendMail.From = New MailAddress(MailFrom, MailFromName)
End If
If Attachment1 <> "-999" Then
Try
ObjSendMail.Attachments.Add(New Attachment(Attachment1))
Catch ex As Exception
End Try
End If
If Attachment2 <> "-999" Then
Try
ObjSendMail.Attachments.Add(New Attachment(Attachment2))
Catch ex As Exception
End Try
End If
If Attachment3 <> "-999" Then
Try
ObjSendMail.Attachments.Add(New Attachment(Attachment3))
Catch ex As Exception
End Try
End If
If IsBodyHtml = True Then
ObjSendMail.IsBodyHtml = True
Else
ObjSendMail.IsBodyHtml = False
End If
If MailCC > "" Then
ObjSendMail.CC.Add(MailCC)
End If
If MailBCC > "" Then
ObjSendMail.Bcc.Add(MailBCC)
End If
ObjSendMail.Priority = MyMailPriority
Dim client As New SmtpClient( MYSMTPMAILSERVER )
client.Send(ObjSendMail)
Return True
Catch ex As Exception
Return False
End Try
End Function

No comments:

Post a Comment