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