Envoi e-mail à travers exchange 2003

Bonjour à tous,

Je suis en pleine conception d'un formulaire sur outlook 2003. Le code est réalisé en vbscript. Ce formulaire va être employé par toute ma société. Nous avons un serveur exchange 2003.

Lors de l'envoi de mon formulaire(ou sa fermeture), j'aimerai qu'un e-mail par défaut soit automatiquement envoyé à une adresse e-mail externe à ma société.

Je planche depuis beaucoup de temps dessus, mais je n'arrive pas à envoyé cet e-mail sans avoir à introduire un mot de passe.
Avant, on pouvait. Mais depuis le serveur exchange 2000 il y a eu un accroissement de sécurité qui empêche d'envoyé des mails inexistant (exemple : buibui@vrroom.dkg).

Mon idée :
passer à travers outlook pour envoyé le mail. mais comment fais-ton?


merci d'avance....

angel

Salut mitsh666,

As tu déjà essayé d'envoyer la réponse en utilisant un serveur distant en smtp?

Si non voici un code qui permettra de le faire. Personellement je l'utilise pour envoyer les rapport de backup de ma société et cela fonctionne correctement. ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set objEmail = CreateObject("CDO.Message")   objEmail.From = "admin@domaine.com" objEmail.To = "admin2@domaine.com" objEmail.Subject = "Outlook" objEmail.Textbody = "Envoi du rapport" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "adresse_smtp_distante" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send

---

http://www.linvbscript.be

Bonjour,

J'ai oublier de mettre ma solution ici, mais j'ai réussis avec le code vbs suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

function SendMailConfirmation(SubjectMailIs, BodyMailIs, ToMailIs) Dim objApp 'As Outlook.Application   Set objApp = CreateObject("Outlook.Application") Set objMail = objApp.CreateItem(0) With objMail .Subject = SubjectMailIs .Body = BodyMailIs .To = ToMailIs .Send End With end function

---

Seule une boîte de dialogue apparaît si on veut permettre l'envoie de ce mail

merci encore...

Hum je n'ai pas compris la fin, as tu trouvé la solution à ton problème ? Ou est ce le code qui te t'oblige à mettre un mot de passe ?