Dim instance As WebMail
Dim returnValue As Boolean	'成功時はTrue。失敗時はFalse

returnValue = instance.Send()

'WebMailクラス Sendメソッド

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("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