Bonjour,
Toujours dans la finition d'une macro, je cherche à envoyer un mail via outlook à partir d'une macro avec en PJ le fichier sur lequel je suis actuellement.
En fait je ne veux pas envoyer le mail mais seulement ouvrir le message et qu'il soit prérempli avec des infos de mon fichier.

J'ai trouvé un bout de code sur le forum qui fonctionne trés bien pour l'envoi de mail avec PJ seulement il envoi directement le mail moi je préférerais qu'il ouvre le message afin que l'utilisateur puisse le modifier si nécessaire.

Voici mon code actuel :

Merci par 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
 
Sub Envoi_Formulaire()
 
'Working in 97-2010
    Dim wb As Workbook
    Dim I As Long
    Dim dest
 
    Set wb = ActiveWorkbook
 
    If Val(Application.Version) >= 12 Then
        If wb.FileFormat = 51 And wb.HasVBProject = True Then
            MsgBox "There is VBA code in this xlsx file, there will" & vbNewLine & _
                   "be no VBA code in the file you send. Save the" & vbNewLine & _
                   "file first as xlsm and then try the macro again.", vbInformation
            Exit Sub
        End If
    End If
 
    dest = "bidule@test.fr"
 
    On Error Resume Next
    For I = 1 To 3
        wb.SendMail dest, _
                    "This is the Subject line"
        If Err.Number = 0 Then Exit For
    Next I
    On Error GoTo 0
 
End Sub