Envoyer un mail avec pièce jointe depuis excel via outloolk express

Commenter

Contenu du snippet

J'ai passé 2 jours sur ce forum pour tenter de faire fonctionner la fonction SENDKEYS. Sans grand succès.

Un grand merci à CanisLupus qui a pris beaucoup de temps pour m'aider.

Finalement, j'ai trouvé ce petit code qui m'a surpris à fonctionner.

Je n'en suis pas le père, mais je le poste car IL FONCTIONNE !
une petite pause d'une seconde ente chaque sendkeys laisse le temps à outlook express de digérer...

;o)

Source / Exemple : 


Sub SendEmail()

  Dim Subj As String
  Dim EmailAddr As String
  Dim Recipient As String
  Dim Fichier As String
  Dim Msg As String
  Dim HLink As String
'-------------------------------------------------définir les données
      Subj = "Envoi de fichier "
      Recipient = "Machin"
      EmailAddr = "bibi@bidon.com"
      Fichier = "c:\essai.xls"
            
'--------------------------------------------------Composer le message
      Msg = "Bonjour " & Recipient & "%0A"
      Msg = Msg & "%0A" & "Voici le fichier que tu réclamais."
      Msg = Msg & "%0A" & "Mitch"
              
 '--------------------------------------------------Construire lien hypertexte
      HLink = "mailto:" & EmailAddr & "?"
      HLink = HLink & "subject=" & Subj & "&"
      HLink = HLink & "body=" & Msg

 '--------------------------------------------------Transmettre le message
      ActiveWorkbook.FollowHyperlink HLink
      Application.Wait (Now + TimeValue("0:00:01"))
      SendKeys "%i", True
      Application.Wait (Now + TimeValue("0:00:01"))
      SendKeys "p", True
      Application.Wait (Now + TimeValue("0:00:01"))
      SendKeys Fichier, True
      Application.Wait (Now + TimeValue("0:00:01"))
      SendKeys "{enter}", True
      Application.Wait (Now + TimeValue("0:00:01"))
      SendKeys "%s", True

End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.