Erreur de syntaxe SendKeys

[frkm]

Tuto : Envoi d'un mail + pièce jointe depuis Excel en passant par Outlook Express

Bonjour,

Je travail actuellement sur une macro qui doit envoyer un mail avec pièce jointe.

J'ai trouvé cette méthode :

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & "" SendKeys "%I" & "p" & TheFile & "~" & "%s"

ActiveWorkbook.FollowHyperlink Address:=URLto

J'ai un message d'erreur qui me signale un problème de syntaxe.

Je ne comprend pas trop pourquoi.

A noter que le code ci-dessus fonctionne sans problème sans la partie pièce jointe :

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg

ActiveWorkbook.FollowHyperlink Address:=URLto

Ce serait donc la partie suivante qui pose problème :

& "" SendKeys "%I" & "p" & TheFile & "~" & "%s"

Ma source : Excel et le WEB

J'attend vos conseils.
Merci.

 

[frkm]

Re : Erreur de syntaxe SendKeys

Le problème de syntaxe est réglé.
Il fallait juste passer à la ligne à partir de SendKeys.

Mais le problème est que maintenant ma pièce jointe ne l'est pas justement.

Voila...

Des idées ?

 

[James007]

Re : Erreur de syntaxe SendKeys

Bonjour,

Avec l'éxécution de l'instruction Sendkeys, il faut parfois que l'instruction soit remontée d'une ligne pour ne pas zapper une partie du code ...

A tester dans ta configuration personnelle ...

A +

 

[frkm]

Re : Erreur de syntaxe SendKeys

Je commence à comprendre ce qui se passe.

En fait, le SendKeys ne se produit pas dans outlook comme je l'aimerai mais dans excel (on voit le menu dessin se dérouler succinctement).

Comment faire ?

 

[frkm]

Envoyer un mail depuis Excel vers Outlook Express avec pièce jointe

Ca y est j'ai réglé mon problème.

Alors je laisse mon code pour ceux que ça intéresse.

Bonne continuation à tous !

Sub EnvoiMail()

Dim objMessage As CDO.Message

Dim Msg, MailAd, Subj As String

MailAd = "adresse@mail.net"
Subj = "Le sujet du message"
Msg = "Le corps du message"

Set objMessage = CreateObject("CDO.Message")
    

' création de la pièce jointe (en .txt)
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\monfichier.txt")
With MonFic
        .writeLine "écriture 1ere ligne"
        .writeLine "écriture 2eme ligne"
        .writeLine "etc."
End With
MonFic.Close

' envoi du message via Outlook Express
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & ""

' ouvre Outlook Express
ActiveWorkbook.FollowHyperlink Address:=URLto

' fait patienter la macro pour ne pas faire les SendKeys dans Excel mais dans Outlook Express
Application.Wait (Now + TimeValue("0:00:01"))

' permet de taper virtuellement les touches pour insérer la pièce jointe
Application.SendKeys "%I" & "p", True
Application.SendKeys "C:\monfichier.txt", True
Application.SendKeys "~" & "%s", True
    
End Sub

 

[MJ13]

Re : Erreur de syntaxe SendKeys

Bonjour à tous

Merci Frkm, c'est sympa d'avoir mis ton code.

Bonne journée.