Dim instance As WebMail = New WebMail()

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

Dim instance As WebMail = New WebMail(host, username, password)

'WebMailクラス WebMailコンストラクタ

Public Class AddIn

	Private wm As WebMail

	Public Sub New()
		wm = New WebMail("smtp.sample.jp", "sampleuser", "passxxx")
	End Sub

End Class