VBScript Outlook .Send

Résolu
Signaler
Messages postés
433
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
22 juin 2010
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
Bonjour à tous,
j'ai récupéré un code VBS permettant d'envoyer un mail avec Outlook,
mais j'ai une erreur, j'ai deja recherché sur beaucoûp d'autres sites, mais je n'ai rien trouvé de plus...
Voici l'erreur puis le code:
 
"Cette objet ne gere pas la propriete ou methode 'Mail.Recipient'"
ID erreur 438

Set Out = CreateObject("Outlook.Application")
Set Mail = Out.CreateItem(0)
Mail.recipient.add("fabrice518@maboite[mailto:fmelis@ariane-reseaux.com .com]")
Mail.Sujbect = "TEST"
Mail.Send

Merci pour vos réponses ou suggestions !
Fabrice

3 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Je ne sais pas si cela peut t'aider mais au lieu de

Mail.recipient.add("fabrice518@maboite[mailto:fmelis@ariane-reseaux.com .com]")

Cela devrait être

Mail.recipientS.add("fabrice518@maboite
[mailto:fmelis@ariane-reseaux.com .com]")

Ensuite si cela ne fonctionne toujours pas essie

Mail.To = "[mailto:fabrice518@maboite.com fabrice518@maboite.com]"

@+,   Ju£i?n
Messages postés
433
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
22 juin 2010

Merci,

Mon mail s'envoie a merveille, voici le code sans fauteS de frappes :

Set Out = CreateObject("Outlook.Application")
Set Mail = Out.CreateItem(0)
Mail.recipients.add("[mailto:fmelis@ariane-reseaux.com fmelis@ariane-reseaux.com]")
Mail.Subject = "RetourInventairePC"
'Mail.body = ""
'Mail.Attachments.Add("C:\chemindufichierajoindre")
Mail.Send
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Re,


Content d'avoir pu t'être utile. En contrpartie, peux tu appuye sur réponse acceptée sur le Post qui a pu t'aider à resoudre ton problème.






@+,   Ju£i?n