Basp21を使用してメール送信ができない
Basp21を使用して、メール送信プログラム(Excel VBA)を作成しました。
５台のパソコン(同一仕様)の内１台のパソコンのみエラーが発生してメール送信ができません。
他の４台のPCと環境の相違は無いと思いますが、原因が解りません。
パソコンの初期化をすれば、正常に動作すると思いますが、
エラー発生の都度、初期化もできません。
どなたか、ご教示をよろしくお願いします。
PC環境
OS ：Win7 Pro 64Bit環境
Excel：2013 32Bit
セキュリティソフト：無効
コンポーネントの組み込み
Bsmtp.dll(587 Version) を C:\Windows\SysWOW64 のフォルダーにコピー
エラーメッセージ(1秒程度でリターン)
HELO BSMTP.DLL
helo BSMTP.DLL
確認項目
1)通常のメール送受信は問題無し(Outlook)
2)Bsmtpのセキュリティは、正常な他のPCと同じ
3)Administratorsで実行してもエラー発生(ユーザー権限の問題)
4)エラー発生時に、Bsmtp.dllの削除操作
Excelによって開かれているため削除不可のメッセージ(dllの読込み確認)
5)架空のサーバーを指定：Cant connect Server 11001のメッセージ
6)LANケーブルを抜く ：Cant connect Server 11004
7)Excelの再インストール(レジストリも削除)しても同じ(Excelのチェック)
8)Bsmtp.dllをコピーしなおしても同じ(Bsmtpのチェック)
プログラム
Private Declare Function SendMail Lib "BSMTP.dll" _
(szServer As String, szTo As String, szFrom As String, _
szSubject As String, szBody As String, szFile As String) As String
strSMTP="aaa.co.jp"
strPort="25"
strTimeOut="60"
strToAddr="a123@aaa.co.jp"
strFromAddr="b123@aaa.co.jp"
strSubj="メールテスト"
strBody="本文"
strAttach=""
strSV_Name = strSMTP & ":" & strPort & ":" & strTimeOut
strMailto = strToAddr
strMailFrom = strFromAddr
strRC = SendMail(strSV_Name, strMailto, strMailFrom, strSubj, _
strBody, strAttach)
If strRC <> "" Then
MsgBox "エラー発生" & strRC
End If
以上 よろしくお願いします
お礼
どうもありがとうございました。