Comment envoié un mail en VBS ?

Question

je voudrais envoié un mail en vbs ! 

j'ai essaié de créer un activeX "Set mail = CreateObject("CDO.Message") " mé ça ne marche pas sur mon pc...

aidé moi svp...

cs_et1 · Answer

Bonjour, As-tu assayé le code de 'SuperClic' ? : 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 Je sais bien que sa fonctionne avec 'CDO.Message', mais bon, chez moi, ça marche très bien.

MoRpHeUsTyLe · Answer

ton message marche bien juste qu'a 'cdo.message' !Erreur un composant activeX ne peut pas créer d'object 'CDO.Message' .Voila ben merci kan meme pour ton code mais ça marche pas :( !
si il y a d'otre script ?

cs_et1 · Answer

Je ne connais pas d'autre script.
Cherche sur VBFrance.com
A +, ET1

MoRpHeUsTyLe · Answer

dac cimer...

crenaud76 · Answer

Moi, j'utilise ce code la :

Sub SendEMail()
Dim objMail, i


Set objMail = CreateObject("CDO.Message")
With objMail
.To = "destinataire@serveur"
.From = "emetteur@Serveur"
.Subject = "EMail via VBS"
.TextBody = "Ca fonctionne !!!"
With .Configuration.fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="Nom de ton serveur SMTP"
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=Port_Serveur_SMTP  ' 25 en général
.update
End With
.Send 
End With
End Sub

Et ca fonctionne très bien ...

crenaud76 · Answer

OUPPPSSSS !!! La déclaration de la variable "i" est en trop bien sur ...

MoRpHeUsTyLe · Answer

merci mé cé pareil l'e-mail et envoi avek la fonction "cdo.message" !mais ça ne marche pas sur mon pc mé pa grav... je vous remerçi

crenaud76 · Answer

Les objets CDO sont fourni par la dll "cdosys.dll".
Pour vérifier, tu peux tester ceci :
Ouvre Excel. Ouvre le VB Editor de Excel (menu Outils|macros|VB Editor dans Excel 97)
Dans le VBE : 
Dans le menu Outils|Références, ajouter la dll cdosys.dll (sous system32 normalement)
Coller ensuite le code que je t'ai fourni dans une procédure dans un module et tente de l'executer.

Christophe.

animusaquila · Answer

tu a coi comme windows?? car moi jutilise aussi cdo.message et le message d'érreur aparer sur les ancien windows... genre NT ou 95. je c juste que sa marche sur windows XP.. moi jutilise ce code si:

Set objEmail = CreateObject("CDO.Message") 
objEmail.From = "" 
objEmail.To = "" 
objEmail.Subject = "" 
objEmail.Textbody = "" 
objEmail.AddAttachment ""

objEmail.Configuration.Fields.Item _ 
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objEmail.Configuration.Fields.Item _ 
      ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
objEmail.Configuration.Fields.Item _ 
      ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "identifiant" 
objEmail.Configuration.Fields.Item _ 
      ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mot de pass"
objEmail.Configuration.Fields.Item _ 
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ 
           "smtp.wanadoo.fr" 
objEmail.Configuration.Fields.Item _ 
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objEmail.Configuration.Fields.Update 
objEmail.Send

MoRpHeUsTyLe · Answer

je le trouve pa sur internet le cdosys.dll !kelke pourais me le passé par e-mail : kevin.mace6@wanadoo.fr

merci d'avance !

crenaud76 · Answer

Le mail est parti ...

MoRpHeUsTyLe · Answer

je lé pa enkor reçu, tu la bien envoié a cette adresse: kevin.mace6@wanadoo.fr 

ou il va arrivé dan kelke temp...

crenaud76 · Answer

Je confirme l'adresse email d'envoi ...

MoRpHeUsTyLe · Answer

ben je lé pas dsl ! :( kelk'un d'otre pourrais me le passé le "cdosys.dll" par mail a cette adresse : 

kevin.mace6@wanadoo.fr

us_30 · Answer

Pour Download le fichier, va voir : 

http://www.dlldump.com/dll-files/C_2.html

Us.

Comment envoié un mail en VBS ?

15 réponses

Discussions similaires