Discussion :

[gangstarrr]

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

[pgz]

Bonjour.

Avec SendMail, je pense que ce n'est pas possible.
Avec SenForReview tu as un paramètre ShowMessage. Mais tu entames alors un cycle de révision et si cela ne conveint pas il faut l'arrêter avec EndReview.

Sinon, il faut faire de l'automation de ton gestionnaire de messageire.

Cordialement,

PGZ

[gangstarrr]

Merci pour ta réponse. Cependant, je débute un peu dans les macro et je ne vois pas trop comment faire. Je n'attend pas qu'on me ponde le résultat bien sure mais un peu plus de précisions si possible.
Je vais creuser ta méthode sur google pour voir si je m'en sors.
Thanks

[gangstarrr]

Ca y est j'ai trouvé une solution. Merci pour la proposition d'utiliser SendForReview mais en cherchant un peu je me suis apercu que ca ne convenait pas exactement à mes besoins.
J'ai donc utilisé .display.
Si des personnes sont intéressé par la solution je peux poster mon code.

Merci