0

基本的には、出金先のディーラーに毎日レポートを送る必要があります。ディーラー名、ID 番号、および電子メール アドレスを含むテーブルがあります。

レポートごとに、このテーブルをループして、対応するディーラーに ID 番号で電子メールを送信する必要があります。

ディーラー情報:

SELECT DealerDetail.dealer_id, DealerDetail.dealer_name, DealerDetail.email
FROM DealerDetail;

レポートで使用するクエリ:

SELECT LoanDetail.Book_Date, LoanDetail.DLR_Name, 
  LoanDetail.DLR_ID, LoanDetail.Cust_ID, LoanDetail.Amt_Fin, 
  LoanDetail.APR, LoanDetail.Buy_Rate, LoanDetail.Pmt_Amt, 
  LoanDetail.TERM, LoanDetail.Part, LoanDetail.[Flat Fee]
FROM LoanDetail
WHERE (((LoanDetail.Book_Date)=Date()-1));
4

2 に答える 2

2

Another way would be to loop through and create an outlook instance to send the email, shown in the code below

Private Function SendEmail(attachment, subject,strContactEmail,strEmailText,strCc)

Dim olLook As Object                     'Start MS Outlook
Dim olNewEmail As Object                 'New email in Outlook


Set olLook = CreateObject("Outlook.Application")
Set olNewEmail = olLook.createitem(0)


   With olNewEmail   'Attach template
      .To = strContactEmail
      .cc = strCc
      .body = strEmailText
      .subject = subject
  .attachments.Add (attachment)
  .display
   End With
 .send


End Function

Hope this helps!

于 2013-03-28T14:40:43.417 に答える
1

1 つの方法は、ディーラー テーブルをループし、SendObjectを使用してレポートを送信することです。

Dim rs AS DAO.Recordset

   Set rs = CurrentDB.OpenRecordset("SELECT email FROM DealerDetail")

   Do While Not rs.EOF
      DoCmd.SendObject acReport, "ReportName", _
           acFormatPDF, rs!Email, , , "Report", "Here is the report", True
      rs.MoveNext
   Loop
于 2013-03-28T14:14:13.387 に答える