Dim em As New Email("SMTP Host", "SMTP User", "SMTP Password")
        Dim res As Satal.Email.Email.sendEmailResult
        em.SMTPPort = 587
        em.UseEncryption = True
        em.Tos.Add("target email address") 'You can add many of these if you want
        em.subject = "This is a test subject"
        em.message = "This is a test message" & Environment.NewLine & "Yay new line"
        If em.addAttachment("C:\Users\Satal\Desktop\test.txt") Then
            res = em.sendEmail()
            Select Case res
                Case Email.sendEmailResult.attachmentNotAvailable
                    MsgBox("The attachment can't be found")
                Case Email.sendEmailResult.noMessage
                    MsgBox("Whats the point of sending an email with no message?")
                Case Email.sendEmailResult.noSMTPDetails
                    MsgBox("You need to supply the details for your SMTP server")
                Case Email.sendEmailResult.noSubject
                    MsgBox("You need to specify a subject")
                Case Email.sendEmailResult.noToEmails
                    MsgBox("You have to specify someone to send to")
                Case Email.sendEmailResult.successful
                    MsgBox("You've got spam")
                Case Email.sendEmailResult.unableToConnect
                    MsgBox("Unable to connect to SMTP server")
                Case Email.sendEmailResult.unknownError
                    MsgBox("Ow no, what went wrong?")
            End Select
        End If