envoie fichier avec OE erreur macro!

[gfmout]

Bonsoir le forum et les surdoués de la macro!!

J'ai trouvé une macro qui permet d'envoyer automatiquement un fichier excel par OE.

Le problème c'est que le fichier ne s'attache pas et se retrouve dans la ligne destinataire.
Où est l'erreur?
Si vous aves l'oeil et la connaissance, merci de regarder ça.

Sub SendEmail()


Dim Dest As String, Objet As String
Dim Corps As String, Rep As String


Dest = 'contact@fournisseur.com'
'Définir le chemin et le fichier à expédier.
Rep = 'D:\\Mes documents\\essaiemail.xls'



Objet = 'OBJET'

Corps = 'XXXXXXXXXXXXXXXX' & vbCrLf & vbCrLf
Corps = Corps & 'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' & vbCrLf
Corps = Corps & 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB' & vbCrLf & vbCrLf


Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Dest & _
'?subject=' & Objet & _
'&Body=' & Corps, vbMaximizedFocus


'Active la ligne de code qui correspond à ton exigence.


'Envoyer le fichier sans fichier attaché
'SendKeys '%s'


'Pour afficher le courriel + fichier attaché
SendKeys '%I' & 'p' & Rep & '~'


'Envoyer le courriel SANS fichier attaché de façon automatique
'SendKeys '%I' & 'p' & Rep & '~' & '%s'

'Envoyer le courriel + fichier attaché de façon automatique
'SendKeys '%I' & 'p' & Rep & '~'


End Sub

 

[Charly2]

Bonsoir gfmout, bonsoir à toutes et à tous 🙂

J'ai essayé de voir pour ton souci de pièce jointe et je n'ai pas réussi à reproduire ce que tu obtiens. Chez moi, la fichier est joint sans modifier le code (enfin si, j'ai rajouté les antislash !) 😱

Je suis allé sous Outlook Express (V6) et j'ai testé la séquence de touches envoyée : 'Alt+Shift+i', puis 'p', puis collage du nom du fichier + chemin et enfin appui sur Entrée, et c'est bien celle que l'on doit taper au clavier pour joindre un fichier !

Désolé, mais je ne comprends pas pourquoi ton fichier ne s'attache pas. (?)

A+