Envoi d'une pièce jointe avec Outlook à partir d'un bouton Excel 2007

ajca

XLDnaute Nouveau
Bonjour,
Mon nouveau PC est équipé de Windows 8 et ne possède plus Outlook Express qui me servait à envoyer des résultats sportifs en pièce jointe. Avec Outlook 2007 cela ne fonctionne plus, la ligne : Shell "C:\......... est certainement à modifier mais je n'y arrive pas. Pouvez-vous m'aider ? Merci
AJCA


Avec Outlook Express dans Windows XP la ligne est :
Shell "C:\Program Files\Outlook Express\msimn.exe ".............

Ci-dessous le code utilisé modifié pour Outlook.
'Envoi de la feuille de match "Bocage email Libre.xls" par courriel
Dim Dest, Sujt, Msg As String
Dim RepName
RepName = "C:\Users\centrale\Desktop\VETERANS\LIBRE\BOCAGE\Bocage email Libre.xls"
Dest = "ajca@toto.fr"
Sujt = "envoi résultats libre vétérans"
Msg = "Bonjour et bonne réception"
Shell "C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & RepName & "~" & "%s"
 

Discussions similaires

Statistiques des forums

Discussions
312 305
Messages
2 087 090
Membres
103 464
dernier inscrit
Inconnu2