締切済み

VBAで複数の添付ファイルを指定してメールを送信する方法を教えてください！

2008/04/21 11:16

大変困っています。。。 AccessVBAで"bsmtp"というのを使用して複数の添付ファイルを貼付し送信したいです。現在、添付ファイルを1つであれば送信することができています。ただし、複数の添付ファイルを指定する方法がわかりません。参考になるかわかりませんが、メール送信用定義 Private Declare Function SendMail Lib "bsmtp" (szServer As String, szTo As String, szFrom As String, _ szSubject As String, szBody As String, szFile As String) As String ---------------------------------------------------------------- Public Function P_F_SendMail(ByVal strBody As String, ByVal strAddress_To As String, ByVal strAddress_From As String, _ ByVal strSMTPSvrName As String, Optional ByVal strSubject As String = "", _ Optional ByVal strAttch As String = "") As String P_F_SendMail = SendMail(strSMTPSvrName, strAddress_To, strAddress_From, strSubject, strBody, strAttch) End Function ～～～中略～～～ Do Until RS_File.EOF If Bol_Flg = False Then Bol_Flg = True Else FMAIL_BODY = FMAIL_BODY & vbNewLine FATTCH = FATTCH & vbTab End If FMAIL_BODY = FMAIL_BODY & "<< FILE NAME = " & RS_File.Fields("ファイル名") & ">>" FATTCH = FATTCH & PC_STR_SAVEPATH & RS_File.Fields("ファイル名") RS_File.MoveNext Loop ～以下省略～～というようなプログラムなのですが、どうか宜しくお願いいたします！