WebMailクラス Sendメソッド
メール送信します。
使用法
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