Hi,
even with Access 2003 you could send a mailing with attached report. Example: for each customer I first create a PDF file (for Access 2003 you had to download an add-in to be able to do this but with the constant acFormatSNP you can create a snapshot file), then create and send a mail message to all customers with the created file as attachment.
Example:
create PDF
Code:
strFile = [get or type here the location for the file and the filename] & Format(Now, "YYYYMMDD_hms") & ".pdf"
DoCmd.OutputTo acOutputReport, strR & "_PDF", acFormatPDF, strFile, False
Send mail:
Code:
Public Function CreateMailMessage(strTo As String, strSubject As String, strBody As String, strFile As String) As Boolean
On Error GoTo Err_CreateMailMessage
Dim appOutlook As New Outlook.Application
Dim msg As Outlook.MailItem
Dim intpos As Integer
Set msg = appOutlook.CreateItem(olMailItem)
intpos = InStr(1, strTo, "#")
If intpos > 1 Then strTo = Left(strTo, intpos - 1)
msg.To = strTo
msg.Subject = strSubject
msg.Body = strBody
msg.Attachments.Add (strFile)
msg.Display
CreateMailMessage = True
Exit_CreateMailMessage:
Exit Function
Err_CreateMailMessage:
Debug.Print Err.Number & ": " & Err.Description
CreateMailMessage = False
Resume Exit_CreateMailMessage
End Function
greetings
NG