Discussion :

[pr54230]

Bonjour,

Je me suis inspiré des forums pour réussir à envoyer une feuille d'un classeur excel à 3 destinataires via outlook. ça marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Envoi()
Dim Dest(3) As String, Sujet As String
Sheets("Synthese").Select 'Saisir le nom exact la feuille du classeur
ActiveSheet.Copy 'crée une copie de la feuille active
Dest(0) = "xxxxxx@aaaa.fr" 'Saisir l'adresse mail 1
Dest(1) = "yyyyyyy@aaaa.fr.fr" 'Saisir l'adresse mail 2
Dest(2) = "ZZZZZ@aaaa.fr" 'Saisir l'adresse mail 2
Sujet = "Envoi de la feuille de synthèse "
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
MsgBox ("Synthèse envoyée")
End Sub

Mais, je souhaiterais en plus de ces 3 destinataires, envoyer en même temps en copie (CC) à 3 autres destinataires.

Auriez-vous une solution ?

Merci par avance.

[Daniel.C]

Bonjour,

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
Sub MailSimple()
    Set olApp = CreateObject("Outlook.application")
    Set m = olApp.CreateItem(olMailItem)
    Sheets("Synthese").Select 'Saisir le nom exact la feuille du classeur
    ActiveSheet.Copy 'crée une copie de la feuille active
    With m
        .Subject = "Envoi de la feuille de synthèse "
        .Body = "Body"
        .Recipients.Add "xxxxxx@aaaa.fr"
        .Recipients.Add "yyyyyyy@aaaa.fr"
        .Recipients.Add "ZZZZZ@aaaa.fr"
        .CC = "ttt1@aa.com,ttt2@aa.com,ttt3@aa.com"
        .Send
        ActiveWorkbook.Close 'ferme la copie de la feuille active
        MsgBox ("Synthèse envoyée")
    End With
End Sub

[pr54230]

Merci pour les codes. j'ai une erreur sur Send = > erreur de compilation : Sub ou Function non définie.
Auriez vous l'astuce pour réparer
Cordialement
Pascal

[Daniel.C]

Quelle est ta version d'Outlook ?
Essaie en remplaçant :

Code :

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

.CC = "ttt1@aa.com,ttt2@aa.com,ttt3@aa.com"

par

Code :

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

.CC = "ttt1@aa.com;ttt2@aa.com;ttt3@aa.com"

[pr54230]

A présent le mail est bien émis avec les destinataires et ceux en copie, mais il part sans la feuille de Synthèse. Le mail est donc émis sans pièce jointe.
une solution existe?
Merci par avance
Cdt
Pascal

[Daniel.C]

Un petit oubli... Par contre, il faut enregistrer le classeur à envoyer avant de le joindre au message. Dans le code ci-dessous, le classeur s'appellera "temps.xls" dans le dossier "c:\temp". S'il y a déjà un classeur de ce nom, il est supprimé.

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
Sub MailSimple()
    Set olApp = CreateObject("Outlook.application")
    Set m = olApp.CreateItem(olMailItem)
    Sheets("Synthese").Select 'Saisir le nom exact la feuille du classeur
    ActiveSheet.Copy 'crée une copie de la feuille active
    With m
        .Subject = "Envoi de la feuille de synthèse "
        .Body = "Body"
        .Recipients.Add "xxxxxx@aaaa.fr"
        .Recipients.Add "yyyyyyy@aaaa.fr"
        .Recipients.Add "ZZZZZ@aaaa.fr"
        .CC = "ttt1@aa.com;ttt2@aa.com;ttt3@aa.com"
        On Error Resume Next
        Kill "c:\temp\temp.xls"
        On Error GoTo 0
        ActiveWorkbook.SaveAs "c:\temp\temp.xls"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
        ActiveWorkbook.Close 'ferme la copie de la feuille active
        MsgBox ("Synthèse envoyée")
    End With
End Sub

[pr54230]

Un grand merci.
C'est parfait.
Cordialement
Pascal