1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Envoyer un mail avec pièce jointe depuis excel via outloolk express

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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 893 fois - Téléchargée 32 fois

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
Ajouter un commentaire Commentaires
Signaler
Messages postés
2
Date d'inscription
mardi 19 mai 2009
Statut
Membre
Dernière intervention
20 mai 2009
bonjour lorsque j'applique votre macro, excel me marque "Sub attendu" que dois-je faire??
merci pour votre aide
Signaler
Messages postés
5
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
27 avril 2005
c pa suffisant mois je voulé le code source complé qui permet d'ajouter une piece jointe
dans un mail
Signaler
Messages postés
2
Date d'inscription
lundi 13 novembre 2000
Statut
Membre
Dernière intervention
11 avril 2005
Salut,

Excellent, ce code marche presque parfaitement.

Seulement, comment rendre Outlook Express invisible pendant qu'il envoie le mail?

Merci!
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.