Question : L'accès VBA - envoyer l'email pour chaque disque dans une table

Hi

I ont une table d'accès avec l'email de disques, le corps, etc
How boucle d'I par tous les disques envoyant automatiquement un email pour each.

Thanks
class= de

Réponse : L'accès VBA - envoyer l'email pour chaque disque dans une table

N'importe quoi de pareil…

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 secondaire
 
    Faible olApp comme objet, olMsg comme objet
    Faibles rs comme DAO.Recordset
    
    Placer l'olApp = le CreateObject (« Outlook.Application »)
    Placer les rs = le CurrentDb.OpenRecordset (« NameOfTable »)
 
    Faire tandis que pas rs.EOF
        Si Nz (rs ! EmailAddr, "" de "" <> ) alors
            Placer l'olMsg = l'olApp.CreateItem (0)
            Avec l'olMsg
                . À = rs ! EmailAddr
                . Sujet = rs ! Sujet
                . Corps = rs ! Corps
                . Envoyer
            Finir avec
        Finir si
        rs.MoveNext
    Boucle
 
    Placer l'olMsg = rien
    Placer l'olApp = rien
    rs. Fin
    Placer les rs = rien
 
    MsgBox « fait »
 
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us