SmtpMailクラスとアンマネージDLL (ID:118070)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ○Declareステートメントを使用した場合○ ＃宣言 Private Declare Function SendMail Lib "bsmtp" _ (ByVal szServer As String, ByVal szTo As String, ByVal szFrom As String, _ ByVal szSubject As String, ByVal szBody As String, ByVal szFile As String) As String 宣言文が「名前空間のステートメントが無効です」というエラーになっています。 ・DLL 関数を保持するクラスを作成した場合 ＃宣言 Imports System.Runtime.InteropServices Public Class BSMTP Declare Function SendMail Lib "BSMTP.dll" _ (ByVal szServer As String, ByVal szTo As String, ByVal szFrom As String, _ ByVal szSubject As String, ByVal szBody As String, ByVal szFile As String) As String End Class ＃使用時 strRet = BSMTP.SendMail(strSmtp, strTo, strFrom, strSubject, strBody, Nothing) 「実行時例外がスローされました : System.NullReferenceException - オブジェクト参照がオブジェクト インスタンスに設定されていません。」 というエラーになります。 ○DllImport属性を使用した場合○ ＃宣言 Imports System.Runtime.InteropServices <DllImport("bsmtp")> _ Private Shared Function SendMail(ByVal szServer As String, ByVal szTo As String, ByVal szFrom As String, _ ByVal szSubject As String, ByVal szBody As String, ByVal szFile As String) As String End Function 宣言文が「名前空間のステートメントが無効です」というエラーになっています。 ・DLL 関数を保持するクラスを作成した場合 ＃宣言 Public Class BSMTP <DllImport("bsmtp.dll", CharSet:=CharSet.Auto)> _ Public Shared Function SendMail(ByVal szServer As String, ByVal szTo As String, _ ByVal szFrom As String, ByVal szSubject As String, ByVal szBody As String, _ ByVal szFile As String) As String End Function End Class ＃使用時 strRet = BSMTP.SendMail(strSmtp, strTo, strFrom, strSubject, strBody, Nothing) 「実行時例外がスローされました : System.NullReferenceException - オブジェクト参照がオブジェクト インスタンスに設定されていません。」 というエラーになります。