BASP21の戻りのフォーマットは

BASP21でのメール送信後のSMTPの応答ステータスを取得したかったのでサンプルコードを少し書いてみる。
一応、こんな感じの文字列を返してきた。
ということでこんな感じか

'SMTPライブラリのオブジェクト取得
bobj = CreateObject("basp21")
Dim msg As String = bobj.SendMail(メールサーバ, _
送信先, _
送信元, _
"nantoka", _
"", _
"")

戻り値はこんな感じのフォーマットだったんで、
"553 sorry, that domain isn't in my list of allowed rcpthosts (#5.7.1) to XXXXX"

ステータスを取るにはこんな感じで
デリミタはデフォルトの半角スペースだったので、Splitのデリミタは指定不要。
Dim a As Array = Split(msg)

Imediate Windowで見ると
?a(0)
"553" {String}
String: "553"

こんな感じで実装するか。

関連記事: