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
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ