Cuestión : El acceso VBA - enviar el email para cada expediente en una tabla

Hi

I tiene una tabla del acceso con el email de los expedientes, el cuerpo, el etc
How lazo de I a través de todos los expedientes que envían automáticamente un email para each.

Thanks
 class= del

Respuesta : El acceso VBA - enviar el email para cada expediente en una tabla

Algo similar…

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 secundario
 
    olApp dévil como objeto, olMsg como objeto
    Rs déviles como DAO.Recordset
    
    Fijar el olApp = CreateObject (“Outlook.Application”)
    Fijar los rs = CurrentDb.OpenRecordset (“NameOfTable”)
 
    Hacer mientras que no rs.EOF
        ¡Si Nz (rs! EmailAddr, "" del "" <> ) entonces
            Fijar el olMsg = olApp.CreateItem (0)
            Con el olMsg
                . ¡A = rs! EmailAddr
                . ¡Tema = rs! Tema
                . ¡Cuerpo = rs! Cuerpo
                . Enviar
            Terminar con
        Terminar si
        rs.MoveNext
    Lazo
 
    Fijar el olMsg = nada
    Fijar el olApp = nada
    rs. Cierre
    Fijar los rs = nada
 
    MsgBox “hecho”
 
Submarino del extremo
Otras soluciones  
 
programming4us programming4us