Bonjour!

j'espère que vous allez pouvoir régler mon petit soucis. J'essais d'automatiser l'envoi automatique d'un mail, avec une pièce jointe avec un shell et sendkeys sous Outlook express.

Mon code est :

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
32
33
34
35
36
37
38
39
 
Sub envoi_final()
 
Dim destinataire As String
Dim i As Integer
Dim date_today As Date
Dim fichier As String
 
i = 2
 
Workbooks.Open (copie_resultat & "donneesmanuelles.xls") 
 
While Workbooks("donneesmanuelles.xls").Worksheets("ListeDiffusion").Cells(i, 1) <> ""
 
destinataire = Workbooks("donneesmanuelles.xls").Worksheets"ListeDiffusion").Cells(i, 1)
 
date_today = Format(Now, "dd/mm/yyyy")
 
fichier = "jour.xls"
 
If date_today < Workbooks("donneesmanuelles.xls").Worksheets("ListeDiffusion").Cells(i, 2) Or date_today > Workbooks("donneesmanuelles.xls").Worksheets("ListeDiffusion").Cells(i, 3) Then
 
Shell ("C:\Program files\Outlook Express\msimn.exe /mailurl:mailto:" & destinataire & "?subject=Données du jour&body=test"), 3
 
SendKeys "%I" & "p" & fichier & "~" & "%s"
 
End If
 
i = i + 1
 
Wend
 
Application.DisplayAlerts = False
 
Workbooks("donneesmanuelles.xls").Close
 
Application.DisplayAlerts = True
 
End Sub
Ce code est adapté d'un autre code sur internet qui semblait marcher, mais lorsque que j'execute l'adresse mail devient un mix entre la variable destinataire et la variable fichier, et aucun fichier n'est joint.
Je ne sais pas trop comment marche la sendkeys, ca doit surement venir de la.
avez-vous des idées pour gerer tout ceci?

Je vous remercie d'avance pour votre réponse, et vous souhaite une bonne journée ensoleillée.

Mickaël.