Sending emails with attachments

This article is based on Visual Basic.NET. Find other Visual Basic.NET articles.

Private Function SendEmail(ByVal MailtoSyntax As String) As Boolean

       Dim myProcess As New Process
       myProcess.StartInfo.FileName = MailtoSyntax
       myProcess.StartInfo.UseShellExecute = True
       myProcess.StartInfo.RedirectStandardOutput = False
       myProcess.Start()
       myProcess.Dispose()

End Function

---Example how to send an email with attachment using default email client:

---just build the mailto syntax

Dim mailto As New System.Text.StringBuilder

mailto.Append("mailto:teste@gmail.com")

mailto.Append("&cc=testcc@testcc.com,testcc1@testcc.com")

mailto.Append("&bcc=testcc@testbcc.com,testcc1@testbcc.com")

mailto.Append("&subject=test subject")

mailto.Append("&body=Look to attachment")

mailto.Append("&Attach=" & Strings.Chr(34) & Strings.Chr(34) & "c:\teste.html" & Strings.Chr(34) & Strings.Chr(34))

SendEmail(mailto.ToString)

'Note:

- File attached must exists
- Some file extensions ( .zip .rar .exe) are not allowed by default (e.g. Outlook 2003)
  You must change Email client security (e.g Outlook) to support specific extension