Frage : Zugang VBA - eMail für jede Aufzeichnung in einer Tabelle senden

Hi

I haben eine Zugangstabelle mit der Aufzeichnungen eMail, dem Körper, dem etc
How wurde i-Schleife durch alle Aufzeichnungen, die automatisch eine eMail für each.

Thanks
 senden

Antwort : Zugang VBA - eMail für jede Aufzeichnung in einer Tabelle senden

Etwas Ähnliches…

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:

VorSendEmail
 
    Schwaches olApp als Gegenstand, olMsg als Gegenstand
    Schwache rs als DAO.Recordset
    
    olApp = CreateObject („Outlook.Application“) einstellen
    Rs = CurrentDb.OpenRecordset („NameOfTable“) einstellen
 
    Tun während nicht rs.EOF
        Wenn Nz (rs! EmailAddr, "") <> "" dann
            olMsg = olApp.CreateItem (0) einstellen
            Mit olMsg
                . Zu = rs! EmailAddr
                . Thema = rs! Thema
                . Körper = rs! Körper
                . Senden
            Mit beenden
        Beenden wenn
        rs.MoveNext
    Schleife
 
    olMsg einstellen = nichts
    olApp einstellen = nichts
    rs. Abschluss
    Rs einstellen = nichts
 
    MsgBox „getan“
 
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us