Rapport de message :*
 

Envoi de fichier par mail avec Windows Mail

Titre du sujet : Envoi de fichier par mail avec Windows Mail
par Mth le 26/10/2009 17:59:21

Bonjour à tous,

Je sèche sur une macro consistant à envoyer un fichier par mail; pas douée en VBA mais l'instruction que j'utilisais jusqu'à présent (sur excel 2003 avec Outlook ou Groupwise comme messagerie) fonctionnait et était :
ActiveWorkbook.SendMail Recipients:="nom@mail.fr", Subject:="blabla "
Cette instruction ne fonctionne plus avec des ordinateurs installés avec Vista, excel 2003, et Windows Mail, le message d'erreur renvoyé est :

"Erreur d'exécution 1004"
La méthode "SendMail" de l'objet "Workbook" a échoué

J'ai tenté plein de choses en essayant de m'inspirer de ce que j'ai trouvé sur le net, pour l'instant j'en suis là :
chemin = ActiveWorkbook.Path & "\"
fic = ActiveWorkbook.Name
fichier = chemin & fic

 Dim Dest As String
 Dim Sujt As String
 Dim Msg As String
 
 Dest = "moi@monmail.fr"
 Sujt = "Test envoi avec Excel"
 Msg = "Bonjour blabla"
 
   Shell ("c:\Program files\Windows Mail\WinMail.exe /mailurl:mailto:") & Dest _
  & "? subject=" & Sujt & "&Body=" & Msg
 SendKeys "%I" & "p" & fichier & "~" & "%s" & "WinMail"
ce qui a l'inconvénient de lancer physiquement Windows mail dont je n'ai pas forcément besoin, (mais bon, pourquoi pas après tout), mais qui ne fonctionne pas jusqu'au bout, j'envoie mes "Sendkeys" dans le décor ...

Quelqu'un aurait-il une piste quelle qu'elle soit?

A tout hasard je joins mon fichier test, en vous remerciant d'avance pour votre aide éventuelle,

mth