Bonjour à tous,

J'ai crée ce code qui permet d'envoyer un mail via Outlook en sélectionnant un N nombre de ligne et colonne pour affichage en corps de mail.

Je veux bien que avant d'envoyer il m'affiche un nouveau mail avec les élément sélectionnées ( destinataires, Cc et corps du mail) au lieu d'envoyer le mail directement.

Quand j’enlève .Send et je mets .Display ça fonctionne pas ! il m'envoi toujours le mail directement !

Merci d'avance .

Voici mon code :
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
Sub EnvoiPage()
 
If MsgBox("Confirmer vous l'envoi, svp ?", vbOKCancel, "Confirmation") = vbOK Then
Dim MaFeuille As Worksheet
Dim NnLigne As Integer
Set MaFeuille = ThisWorkbook.Sheets("Perf Fournisseurs")
Application.ScreenUpdating = False
NbLigne = 65
'MaFeuille.Range("A1" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A1:M" & NbLigne).Select
 
With Selection.Parent.MailEnvelope.Item
.To = MaFeuille.Range("U25").Value
.cc = MaFeuille.Range("U26").Value
.Subject = MaFeuille.Range("U27")
.display
'Envoi le mail
'.Send
 
End With
 
MsgBox "Votre mail a bien été envoyé."
Application.ScreenUpdating = True
ActiveWorkbook.Save
 
 
 
Else
Exit Sub
End If
End Sub