Envoi d'un mail avec PJ via macro
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:
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 |
