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(mysmtpserver)
client.Send(ObjSendMail)
Return True
Catch ex As Exception
Return False
End Try
End Function
The ASP.NET Wiki was started by Scott Hanselman in February of 2008. The idea is that folks spend a lot of time trolling the blogs, googlinglive-searching for answers to common "How To" questions. There's piles of fantastic community-created and MSFT-created content out there, but if it's not found by a search engine and the right combination of keywords, it's often lost.
The ASP.NET Wiki articles moved to CodeProject in October 2013 and will live on, loved, protected and updated by the community.