Dim instance As WebMail
Dim host As String		'SMTPホスト名
Dim username As String	'接続ユーザー名
Dim password As String	'接続パスワード

instance.SmtpClient(host, username, password)

'WebMailクラス SmtpClientメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private Const CRLF = Microsoft.VisualBasic.ControlChars.CrLf

    Public Sub AddIn_Start()
		Dim bdy As String = "テスト商事 御中" & CRLF _
				& "西都路地 様" & CRLF _
				& CRLF _
				& "テストメールの送信です" & CRLF

        Dim wm As WebMail = New WebMail()
		wm.SmtpClient("smtp.sample.jp", "sampleuser", "passxxx")
		wm.MailMessage("info@sample.jp", "info@tosample.jp", "テストメールです", bdy)
		If wm.Send() = True Then
			MessageBox.Show("メール送信成功しました")
		Else
			MessageBox.Show("メール送信失敗しました")
		End If
    End Sub

End Class