Bonjour,
J'utilise le code suivant pour envoyer des mails automatiquement.
Or, je n'arrive pas à afficher plusieurs mail à la fois. Voici le code utilisé :
En réalité, il m'affiche seulement le dernier mail et pas le premier...
Pouvez-vous m'aider ?
Merci d'avance
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
39
40
41
42 'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro, ' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library" Sub Envoyer_Mail_Outlook() Dim ObjOutlook As New Outlook.Application Dim oBjMail Dim Nom_Fichier As String Set ObjOutlook = New Outlook.Application Set oBjMail = ObjOutlook.CreateItem(olMailItem) '--------------------------------------------------------- 'Exemple pour envoyer un classeur en pièce jointe 'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm") 'If Nom_Fichier = "Faux" Then Exit Sub '--------------------------------------------------------- 'Ou bien entrer le path et nom du fichier autrement Nom_Fichier = "C:\Chemin\NomFichier.ext" If Nom_Fichier = "" Then Exit Sub '--------------------------------------------------------- With oBjMail .To = "test2@xxx.com" ' le destinataire .Subject = "Test" ' l'objet du mail .Body = "Hello " 'le corps du mail ..son contenu .Attachments.Add "C:\Users\Home\Desktop\06.pptx" ' ou Nomfichier .Attachments.Add "C:\Users\Home\Desktop\06.pptx" .Display ' Ici on peut supprimer pour l'envoyer sans vérification End With With oBjMail .To = "test@xxx.com" ' le destinataire .Subject = "Test" ' l'objet du mail .Body = "Hello " 'le corps du mail ..son contenu .Attachments.Add "C:\Users\Home\Desktop\06.pptx" ' ou Nomfichier .Attachments.Add "C:\Users\Home\Desktop\06.pptx" .Display ' Ici on peut supprimer pour l'envoyer sans vérification End With ObjOutlook.Quit Set oBjMail = Nothing Set ObjOutlook = Nothing End Sub
Partager