J'ai créer quelques lignes permettant l'envois de mail à l'aide de la dll Cdont, qui est installé sur mon poste puisque je suis sous Windows 2000, mais mon soucis esr que mon mail ne parvient pas a mon destinataire, il reste visible dans le répertoire : "\Inetpub\mailroot\Queue" mais ne le quitte pas, voici mon code :
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 <% Dim Mailer Set Mailer = Server.CreateObject("CDONTS.NewMail") ' on crée l'objet CDONTS Mailer.To = "mail@company.fr" ' email du destinataire Mailer.Cc = "mail@company.fr, mail@company.fr" ' liste des destinataires en CarbonCopy, séparés par une virgule Mailer.BCc = "mail@company.fr, mail@company.fr" ' liste des destinataires en BlindCarbonCopy (Copie cachée invisible), séparés par une virgule Mailer.From = "mail@company.fr" ' email de l'expediteur Mailer.Subject = "Titre du message" ' titre du message Mailer.Body = "Le texte qui sera envoyé" ' corps du message ' importance : 0 = normal, 1 = urgent, 2 = très urgent Mailer.Importance = 2 ' le chemin du fichier qui sera attaché 'Mailer.AttachFile Server.MapPath("fichier.txt") ' Pour envoyer un mail au format HTML, ajouter ces 2 lignes : Mailer.BodyFormat = 0 Mailer.MailFormat = 0 ' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes ' on envoie le tout if not Mailer.Send then response.write ("mail envoye") else response.write ("Mail non envoyé. Erreur : ") & Err.Description end if Set Mailer = Nothing %>
Partager