Discussion :

[mitsh666]

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

[Iceman421]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mitsh666]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[ced600]

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 ?