求人情報

しばらくお待ちください。

コンタクトレンズ通販

2008/10/22

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"

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

関連記事:


0 件のコメント:

記事のラベル

  • Apache
  • BASP21
  • Blogger関連
  • CMS
  • CSS
  • Google
  • JavaScript
  • log4php
  • MYSQL
  • nmap
  • PHP
  • PowerEdgeT105
  • Rationall Clear Case
  • SMTP
  • SSL
  • VB.NET
  • WEB
  • Web API
  • xCore関連
  • XML-RPC送信ツール
  • ZenCart
  • アクセス解析
  • コーディング
  • サンプル
  • ストリーミング
  • その他
  • ツール関連
  • ディザスタリカバリ
  • ブログパーツ
  • 求人情報等
  • 書籍紹介
  • 小遣い稼ぎ
  • 日経SYSTEMS
  • 本日の作業
  • 無停電停止装置

関連IT用語 by e-Words

マイブログ リスト