Questione : Accesso VBA - trasmettere il email per ogni annotazione in una tabella

Hi

I ha una tabella di accesso con il email delle annotazioni, il corpo, etc
How ciclo di I attraverso tutte le annotazioni che trasmettono automaticamente un email per each.

Thanks
 class= del

Risposta : Accesso VBA - trasmettere il email per ogni annotazione in una tabella

Qualcosa di simile…

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:

SendEmail secondario
 
    olApp fioco come oggetto, olMsg come oggetto
    Rs fiochi come DAO.Recordset
    
    Regolare il olApp = CreateObject (“Outlook.Application„)
    Regolare i rs = CurrentDb.OpenRecordset (“NameOfTable„)
 
    Fare mentre non rs.EOF
        Se Nz (rs! EmailAddr, "" del "" <> ) allora
            Regolare il olMsg = olApp.CreateItem (0)
            Con olMsg
                . A = rs! EmailAddr
                . Oggetto = rs! Oggetto
                . Corpo = rs! Corpo
                . Trasmettere
            Concluder con
        Concluder se
        rs.MoveNext
    Ciclo
 
    Regolare il olMsg = niente
    Regolare il olApp = niente
    rs. Fine
    Regolare i rs = niente
 
    MsgBox “fatto„
 
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us