ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ
スポンサーサイト（詳細）

質問
QNo.3964468 VBAで複数の添付ファイルを指定してメールを送信する方法を教えてください！
質問者：dosanko45 大変困っています。。。
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


〜以下省略〜〜

というようなプログラムなのですが、どうか宜しくお願いいたします！
困り度：
  • すぐに回答を！
質問投稿日時：
08/04/21 11:16
この質問に対する回答は締め切られました。

回答
ANo.1 ​http://www.hi-ho.ne.jp/babaq/linux/bsmtplib.html​
には、「タブで区切って複数指定できます」と書いてあります。
回答者：notnot
種類：回答
どんな人：一般人
自信：自信あり
回答日時：
08/04/21 23:05
この回答へのお礼ありがとうございました＾＾
おかげさまで解決いたしました！
 
スポンサーサイト（詳細）
このページのトップへ