3/5 (3 avis)
Snippet vu 16 035 fois - Téléchargée 34 fois
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.