Problème envoi de mail

Bonjour,

Je pense que mon problème ne doit pas être compliqué et relève du déjà vu mais ceci étant dit après une bonne 1/2H de recherche sur les forums et les codes, je n'ai pas trouvé la soluce..
Alors voilà j'ai une fonction envoi_mail() qui se trouve dans un module et qui a pour but d'être appelée (par une macro par exemple) et d'envoyer un mail (sans blague on s'en serait pas douté...  ). La voici :

Public Function envoi_mail()

    Dim objEmail As Object
    Set objEmail = CreateObject("CDO.Message")
    objEmail.To = "user1@domaine.com"
    objEmail.From = "user2@domaine.com"
    objEmail.Subject = "Le beau sujet"
    objEmail.TextBody = "Le beau contenu"
    objEmail.Send
    Set objEmail = Nothing

End Function

Le truc c'est que ça me retourne une erreur sur la ligne objEmail.Send en me mettant :
Erreur d'exécution '-2147220960 (80040220)':
"La valeur de configuration "SendUsing" est non valide"
 

Sachant que j'ai rajouté les référence suivante à mon module :
- Microsoft CDO For Exchange 2000 Library
- Microsoft CDO 1.21 Library
- Microsoft CDO for NTS 1.2 Library

Est-ce qqn est en mesure de me dire d'où cela peut provenir ?

Merci

bonjour, tu serais en VBA sur excel je saurais surement te répondre mais là... CDO je connais même pas... tu veux envoyer un mail par outlook? Sinon cela me parait bizarre le objEMail.From, car si tu envoie par outlook celui ci te prendre le user (l'adresse mail) de la personne qui envoie le mail. Il faut aussi savoir que par outlook si tu déclanche un envoi "automatique" outlook te fait apparaitre une fenetre de confirmation, et c'est peut etre elle qui plante ton programme... Si tu as plus d'info à nous communiquer... Jordinette

non je ne veux pas passer par outlook mais envoyer directement via le code à une adresse donnée
en fait ça concerne une routine qui tourne tous les matins et je voudrai que quand il y a des erreurs, en plus de remplir un fichier de log, ça envoie un email à l'administrateur pour qu'il y regarde : ceci afin de lui éviter de vérifier le log tous les jours

Ah, alors moi je savais même pas qu'on pouvez envoyer un mail sans passer par outlook ou autre messagerie... surtout en VBA... désolé de ne pas pouvoir t'aider plus Jordinette

Salut,
Tu as juste besoin de la référence
-Microsoft CDO For Exchange 2000 Library

Exemple avec CDO

Dim mail As New cdo.Message

mail.To = "user1@domaine.com"
mail.From = "user2@domaine.com"
mail.Subject = "Le beau sujet"
mail.TextBody = "Le beau contenu"

mail.Send

Lol c'est vrai mais j'ai pensé que tu avais déjà testé avec ces lignes de paramètres.