VBScript Outlook .Send

Résolu
Fabrice518 Messages postés 433 Date d'inscription vendredi 26 novembre 2004 Statut Membre Dernière intervention 22 juin 2010 - 13 sept. 2006 à 09:36
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 13 sept. 2006 à 17:49
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

jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
13 sept. 2006 à 10:03
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
3
Fabrice518 Messages postés 433 Date d'inscription vendredi 26 novembre 2004 Statut Membre Dernière intervention 22 juin 2010
13 sept. 2006 à 17:45
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
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
13 sept. 2006 à 17:49
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
0
Rejoignez-nous