Envoyer un mail avec pièce jointe depuis excel via outloolk express
3/5 (3 avis)
Snippet vu 16 035 fois - Téléchargée 34 fois
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)
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
20 mai 2009 à 10:14
merci pour votre aide
15 avril 2005 à 11:15
dans un mail
11 avril 2005 à 15:29
Excellent, ce code marche presque parfaitement.
Seulement, comment rendre Outlook Express invisible pendant qu'il envoie le mail?
Merci!
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.