Toy Box

「.NET」というぐらいなので、ネット関係のプログラムもやってみたいと思いました。

ということで、「メール」に挑戦してみることにしました。

ところで、メールは送信もややこしいですが、受信のほうは「NET FrameworkはPOP3サーバーから簡単にメールを受信する方法を用意してくれてなくて、すごくややこしくて初心者にはおすすめできない」
POP3メールサーバーからメールを受信する
　　　　　　　　 .NET Tips C#, VB.NET, Visual Studio
http://dobon.net/vb/dotnet/internet/receivepop3mail.html
・・・らしいです。

そのかわりＢＳＭＴＰ ＤＬＬが有名で、お勧め・・

というので、ダウンロード＆インストールしてみました。
ところが、サンプル（VB用）をこんな感じで「.NET風」にアレンジしてやってみましたが、エラーがでてうまくいきません （T_T)

Private Declare Function RcvMail Lib "bsmtp" _
      (ByVal szServer As String, _
       ByVal szUser As String, _
       ByVal szPass As String, _
       ByVal szCommand As String, _
       ByVal szDir As String) As Object

どうしようか、困ってしまいましたがふと思いついて・・
「プロジェクト」→「参照の追加」→「COM」に
「Basp21 1.0 Type Library」があったので、それを選択して参照設定に追加してみました。
そうして…

Dim MyBASP As New BASP21Lib.Basp21Class
〜省略〜
ar = MyBASP.RcvMail(szServer, szUser, szPass, szCommand, szDir)

・・とやると、うまくいきました。

次回からはこれでいろいろテストしてみることにします。