NGSoft-fr.com > MenusLAB.com : LAB - créateur de menus ! |
NGSoft-fr.com I Accueil I Téléchargements I Trucs et astuces I F.A.Q. I Centre d'aide
Forum I Suport/Contact I Livre d'or I Diffusions I Dons I Plan |
Rejoindre les 10996 utilisateurs priviliègés gratuitement |
Envoyer un email !Ce code permet d'envoyer directement un email (sans passer par outlook comme le fait l'assistant VBS de LAB) Il faut creer un bouton VBS et insérer ca : Expediteur=InputBox("Veuillez entrer ici l' addresse de l' expediteur. çà peut-être une adresse bidon ou déjà utilisée, mais elle ne doit pas comporter d' espaces:") Destinataire=InputBox("Veuillez entrer ici l' addresse du destinataire :") Objet=InputBox("Objet du message :") Corps=InputBox("Le message :") PieceJointe=InputBox("Pièce jointe (appuyer sur OK si aucune)") NombreCopies=InputBox("Combien de fois vulez-vous envoyer ce message?") If nombrecopies<>0 Then For Envoi=1 To NombreCopies MailEnvoi Expediteur,Destinataire,Objet,Corps,PieceJointe Next End If 'sub pour envoyer des mails Sub MailEnvoi(Exped,Dest,Objet,body,pj) Set objEmail = CreateObject("CDO.Message") objEmail.From = Exped objEmail.To = Dest objEmail.Subject = Objet objEmail.Textbody = body If pj<>"" Then objEmail.AddAttachment pj objEmail.Send End Sub Commentaires sur l'article : Retour au menu |