Basp21を使用して、メール送信プログラム(Excel VBA)を作成しました。 ５台のパソコン(同一仕様)の内１台のパソコンのみエラーが発生してメール送信ができません。 他の４台のPCと環境の相違は無いと思いますが、原因が解りません。 パソコンの初期化をすれば、正常に動作すると思いますが、 エラー発生の都度、初期化もできません。 どなたか、ご教示をよろしくお願いします。 PC環境 OS ：Win7 Pro 64Bit環境 Excel：2013 32Bit コンポーネントの組み込み Bsmtp.dll(587 Version) を C:\Windows\SysWOW64 のフォルダーにコピー エラーメッセージ 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 以上 よろしくお願いします
↧