basp21を利用した送信

basp21を利用した送信

エクセル2002使用です。
VBAを利用してbasp21.dll（Proではない）を使ってメール送信ををしたいのですが、
フリーソフト版のbasp21.dllで、(POP before SMTP）は利用できるのでしょうか？


sub　test()

dim bobj as Object
dim　kekka　as string, strkk　as string, strjikan　as string
dim mailServer as string, mailFrom as string, mailTo as string, MailSubject as string, mailBody as string, mailFiles as string

Set bobj = CreateObject("basp21")

mailServer = "mail.***.com"　　　　’←(POP before SMTP）にしたいのです。
mailFrom = "***@***.com"
mailTo = "***@***.com"
MailSubject = "タイトル"
mailBody = "本文"
mailFiles = "d:\autocsv\wddc\" & strkk & strjikan & ".doc"

kekka = bobj.SendMail(mailServer, mailTo, mailFrom, MailSubject, mailBody, mailFiles)

end sub


よろしくお願いします。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2006/05/31 12:38

POP before SMTP basp21 で Googleと

本家のBBSですが
http://www.bea.hi-ho.ne.jp/cgi-bin/user/byoko/bn …
（一旦受信して接続する）
との事です。

またはBASP21に同梱されている
http://www.hi-ho.ne.jp/babaq/bsendm.html
を使うとか。

この回答へのお礼

nicotinism 様、早速のご回答ありがとうございました。
いろいろな参考の場所を教えていただいて、
不明だった点がたくさんわかりました。
ありがとうございました。
今後ともよろしくお願いします。

お礼日時：2006/05/31 17:47