VBA Envoi de mail avec Shell, avec piece jointe
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:
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.