Dit forum staat op alleen-lezen. Je kan hier informatie zoeken en oude berichten terugvinden, maar geen nieuwe berichten plaatsen.
Naar overzicht van alle forums
Hallo,
Ik wil een rapport verzenden vanuit Access d.m.v. een email
dit door een druk op een knop.
En die email adressen (dit zijn er bijna 30) staan in een tabel.
Heeft iemand een voorbeeld hoe ik dit in VBA moet maken.
Mijn tabel heet Eadres en heeft twee velden, ID en Eadres en
mijn rapport heet dagoverzicht.
Gr. Alfred
Hallo Alfred,
Jouw vraag kun je als volgt oplossen:
1. Haal alle e-mailadressen op, hierbij:
- moeten alle e-mailadressen gescheiden worden door een puntkomma
- moet de allerlaatste puntkomma verwijderd worden (dit is de puntkomma
na de laatste naam)
2. Verzend het rapport naar de desbetreffende personen.
Dit doe je als volgt:
Dim rs as DAO.Recordset
Dim myStr as string
'Email adressen ophalen, gescheiden door een puntkomma
'en de laatste puntkomma verwijderen
Set rs = Currentdb.OpenRecordset(“Select Eadres from Eadres”)
Do while not rs.EOF
myStr = myStr & rs!Eadres & “; ”
rs.MoveNext
Loop
myStr = left(myStr, Len(myStr) - 2)
'rapport verzenden
DoCmd.SendObject acSendReport, “Dagoverzicht”, acFormatRTF, myStr, , , , , True
Met vriendelijke groet,
Ingrid
Alfred schreef:
>
> Hallo,
> Ik wil een rapport verzenden vanuit Access d.m.v. een email
> dit door een druk op een knop.
> En die email adressen (dit zijn er bijna 30) staan in een
> tabel.
> Heeft iemand een voorbeeld hoe ik dit in VBA moet maken.
> Mijn tabel heet Eadres en heeft twee velden, ID en Eadres en
> mijn rapport heet dagoverzicht.
>
> Gr. Alfred
Doorzoek het forum
Zoeken met Startpagina
Startpagina Thema's