Discussion :

[David1259]

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 @+

[Invité]

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

[David1259]

Bonjour Philippe JOCHMANS

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Re

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

Philippe

[David1259]

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