Проблема кодирования кнопок электронной почты в Visual Basic.

---

Кто-нибудь знает, что есть какая-то сторонняя бесплатная программа, которая может заменить EASendMailObj.Mail? Или любой метод использования EASendMailObjLib.Почта стала бесплатной? Потому что сейчас..Я использую это для отправки электронной почты,система говорит, что Smtp.LicenseCode = "TryIt" уже истек.Ниже приведен мой код:

Dim Smtp As New EASendMailObjLib.Mail
                    Smtp.LicenseCode = "TryIt"

                    Smtp.FromAddr = eid  '"ab@mail.com"
                    Smtp.AddRecipientEx(email, 0)

                    Smtp.Subject = "abcde"
                    Smtp.BodyText = "abcde"

                    '' Add attachment from local disk
                    If Smtp.AddAttachment(pdfFile) <> 0 Then
                        MsgBox("Failed to add attachment with error:" & Smtp.GetLastErrDescription())
                    End If

                    Smtp.ServerAddr = server '"smtp.gmail.com"
                    Smtp.ServerPort = port ' 465

                    '' detect SSL/TLS automatically
                    Smtp.SSL_init()

                    Smtp.UserName = eid '"ab@mail.com"
                    Smtp.Password = pass '"123"

                    If Smtp.SendMail() = 0 Then
                        '' MsgBox("email was sent successfully!")
                        Label1.Text = "1"
                    Else
                        MsgBox("failed to send email with the following error:" & Smtp.GetLastErrDescription())
                    End If
                Else
                End If
            Next
            If Label1.Text = "1" Then
                MsgBox("email was sent successfully!")
            End If
            Label1.Text = ""
        End If

Я решаю эту проблему уже около 1 недели,но и не могу ее решить.Надеюсь,вы, ребята, сможете мне помочь, действительно головная боль для этой части.
Заранее благодарю вас.

[Edit]добавлено форматирование блока кода[/Edit]

---