Koliko je meni poznato, neka me neko ispravi ako grešim, iz Accessa možeš poslati preko e-mail klijenta neki njegov objekat (query, table, report...), i to u podržanim formatima: ASP, DAP, HTML, IIS, SNP, TXT, XLS i PDF i XPS u 2007 i novijim verzijama.
Nije moguće iz "suvog" Accessa poslati neki eksterni attachment, bar ne bez nekih pomoćnih programa (SMTP server i sl.), a mislim i da CSV nije podržan.
Ako ti ova ograničenja ne smetaju, onda prvo napravi jedan modul sa funkcijom koja čita tabelu sa e-mail adresama, i postavlja ih jednu za drugom u listu za ispis u To polje e-mail klijenta:
Code:
Function Ispis() As String
Dim rst As New ADODB.Recordset
rst.Open "SELECT email FROM tblAdrese", CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rst.RecordCount > 0 Then Ispis = rst.GetString(adClipString, , , "; ")
rst.Close
Ispis = Left(Ispis, Len(Ispis) - 1)
End Function
A onda na formi napravi dugme za slanje, gde na OnClick otprilike stoji ovo:
Code:
Private Sub SendMail_Click()
On Error GoTo Err_SendMail_Click
DoCmd.SendObject _
acSendTable, _
"Cenovnici", _
acFormatTXT, _
Ispis(), _
, _
, _
"Naslov poruke", _
"Tekst u telu poruke.", _
True
Exit_Err_SendMail_Click:
Exit Sub
Err_SendMail_Click:
MsgBox "Poruka nije poslata!", vbInformation, "Obaveštenje"
Resume Exit_Err_SendMail_Click