Vraag : Toegang VBA - verzend e-mail voor elk verslag in een lijst

Hi

I heeft een lijst van de Toegang met de verslagen E-mail, Lichaam, etc
How zou ik door alle verslagen van een lus voorzien die automatisch een e-mail voor each.

Thanks
 verzenden

Antwoord : Toegang VBA - verzend e-mail voor elk verslag in een lijst

Iets in die aard…

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Sub SendEmail
 
    Schemerige olApp als Voorwerp, olMsg als Voorwerp
    Schemerige rs als DAO.Recordset
    
    Reeks olApp = CreateObject („Outlook.Application“)
    Reeks rs = CurrentDb.OpenRecordset („NameOfTable“)
 
    Doe terwijl niet rs.EOF
        Als Nz (rs! EmailAddr, "") <> "" toen
            Reeks olMsg = olApp.CreateItem (0)
            Met olMsg
                . Aan = rs! EmailAddr
                . Onderwerp = rs! Onderwerp
                . Lichaam = rs! Lichaam
                . Verzend
            Eind met
        Eind als
        rs.MoveNext
    Lijn
 
    Reeks olMsg = niets
    Reeks olApp = niets
    rs. Sluit
    Plaats rs = niets
 
    „Gedaane“ MsgBox
 
Sub van het eind
Andere oplossingen  
 
programming4us programming4us