[AC-2007] envoyer des emails avec vba access

envoyer des emails avec vba access

Bonjour le forum

Je voudrais savoir si l'on peut envoyer des e-mails avec vba Access

Je veux créer un état type et envoyer à différente adresse mail

Si oui, on peut-on trouver des exemples

merci d'avance
David @+

Bonjour

C'est tout à fait possible, il faut un peu chercher, il y a de nombreux exemples dans la FAQ et les Sources Access du forum, tout est dans la barre bleue en haut de ce forum.

Philippe

1 pièce(s) jointe(s)

Bonjour Philippe JOCHMANS

j'ai trouvé un exemple qui ne fonction pas chez mois quelqu'un peut il venir a mon aide

Code:

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
30
31
32
33
34
35
36
37
38
 
Private Sub Commande0_Click()
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
    'Variable
    Dim Olook As Outlook.Application
    Dim Omail As MailItem
    Dim Select_Req, Listdest As String
    Dim Dest As DAO.Recordset
 
    Dim BDS As Database
 
    Set Olook = New Outlook.Application
    Set Omail = Olook.CreateItem(olMailItem)
 
    'Req en Langage sql
    Select_Req = "Select [EMAIL]as Post from T_EMAIL "
 
    Set BDS = CurrentDb()
 
    'Stockage de la sélection dans une Table
    Set Dest = BDS.OpenRecordset("R_EMAIL", dbOpenDynaset)
 
    'Boucle
While Not (Dest.EOF) ' Tant qu'on est pas à la fin du recordset
    Listdest = Listdest & Dest!Post & ";"
    Dest.MoveNext
    Wend
 
    Omail.To = "Mon.email@live.fr" 'Listdest '< ----l 'adresse du destinataire
    Omail.Subject = "NCA numéro " & Me.NUM_NCA
    Omail.Body = "Cet OF est prêt"
 
Omail.Display 'Ouvrir une page Outlook
 
'Omail.Send 'Envoi le mail
 
End Sub

mais quand je cliquer sur le bouton il me met le message erreur suivant

Re

Il faut cocher la référence OutLook Menu Outils/référence dans l'éditeur VB.

Philippe

Re
Merci pour ton soutien Philippe:ccool:
à bientôt sur le forum David