Discussion :

[Yams75]

Bonjour,

Je souhaiterai faire une macro sur Outlook pour envoyer des classeurs Excel automatiquement. J'ai plusieurs questions :
Tout d'abord, je dois envoyer plusieurs fichiers pour certains destinataires et cela chaque semaine, de ce fait, j'aimerai regrouper dans la même macro tous les envois que j'ai à faire.

Par exemple, je dois envoyer le Fichier1, le Fichier2 au Destinataire2, au Destinataire3 et au Destinataire5. Ensuite, dans un autre mail, je dois envoyer le Fichier3 au Destinataire6 et Destinataire7, ...etc.

J'avais réussi à utiliser un code à un moment qui fonctionnait pour envoyer un seul fichier mais je n'arrivais pas à envoyer plusieurs fichiers à la fois. De plus, je ne retrouve plus ce code.

J'ai également essayé ce code mais cela ne fonctionne pas :

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
'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 = "LeClient@gmail.com" ' le destinataire
        .Subject = "Ici c'est l'objet"          ' l'objet du mail
        .Body = "Ici le texte du mail "  'le corps du mail ..son contenu
        .Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
        .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
        .Send
    End With
    ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub

Merci pour votre aide.

Cordialement,

[Oliv-]

Bonjour,
En quoi le code que tu cites ne fonctionne pas ?

si tu veux envoyer plusieurs PJ il faut autant de ligne

.Attachments.Add "C:\Data\essai1.txt"
.Attachments.Add "C:\Data\essai2.txt"
.Attachments.Add "C:\Data\essai3.xls"

Que de Fichiers à Ajouter

[Yams75]

Bonjour,

Quand je clique sur exécuter, rien ne se passe.

Cordialement,

[Oliv-]

Salut,
Quel code utilises tu ? à partir de quelle application ?
il faut que OUTLOOK soit ouvert et configuré bien sûr