' Add EASendMail namespace
Imports EASendMail 

Module Module1 
    Sub Main() 
        Dim oMail As New SmtpMail("TryIt") 
        Dim oSmtp As New SmtpClient() 

        ' Set sender email address, please change it to yours
        oMail.From = "test@emailarchitect.net" 

        ' Set recipient email address, please change it to yours
        oMail.To = "support@emailarchitect.net" 

        ' Set email subject
        oMail.Subject = "test HTML email with attachment" 

        ' Set HTML body
        oMail.HtmlBody = "<font size=5>This is</font> <font color=red><b>a test</b></font>" 

        ' Your SMTP server address
        Dim oServer As New SmtpServer("smtp.emailarchitect.net") 

        ' User and password for ESMTP authentication, if your server doesn't require
        ' User authentication, please remove the following codes.
        oServer.User = "test@emailarchitect.net" 
        oServer.Password = "testpassword" 

        ' If your smtp server requires SSL/TLS connection, please add this line
        ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

        Try 

            ' Add attachment from local disk
            oMail.AddAttachment( "d:\test.pdf" ) 

            ' Add attachment from remote website
            oMail.AddAttachment( "http://www.emailarchitect.net/webapp/img/logo.jpg" ) 

            Console.WriteLine("start to send email with attachment ...") 
            oSmtp.SendMail(oServer, oMail) 
            Console.WriteLine("email was sent successfully!") 

        Catch ep As Exception 

            Console.WriteLine("failed to send email with the following error:") 
            Console.WriteLine(ep.Message) 
        End Try 

    End Sub 
End Module