Email vanuit Access

[davevanderkist]

Hallo,

Ik heb een formulier waar diverse email adressen staan. Dit is nog geen link.
Nu wil ik het zo hebben dat de email adressen van alle gefilterde records direct in outlook komen te staan, niet in de adressenlijst maar in "verzenden aan" dus om een email te verzenden.
Het is me wel gelukt om het per email adres te doen, maar hoe doe ik het nou voor alle gefilterde adressen tegelijk?

Private Sub Knop28_Click()

On Error GoTo Err_knop28_Click

Dim strMailadres As String

'Mail samenstellen
strMailadres = Me.EmailDeelnemer

'Mail verzenden
DoCmd.ApplyFilter strMailadres
DoCmd.SendObject , , , strMailadres, , , strOnderwerp, strTekst, True

Exit_knop28_Click:
Exit Sub

Err_knop28_Click:
MsgBox Error
Resume Exit_knop28_Click

End Sub

 

[davevanderkist]

Niemand?

 

[Gostdog]

ik denk dat je dit met een "if then else" statement moet doen. wat jij wilt dat er gebeurt is dat jouw progje een voor een langs je items (=emailadressen) in je gefilterde tabel gaat en per keer een email verstuurd en deze cyclus net zolang herhaald tot het laatse item in je tabel.
hoe je dat doet moet je even bij help kijken of verder vragen.

gostdog :thumb:

 

[Bartuls]

Je moet alle emailadressen die je in het Send to veld wilt hebben in een string achter elkaar zetten, gescheiden door punt-komma's en die string in het Send to veld plaatsen.