L'auteur
Mike Gagnon Canada Membre Simple # 0000000025 enregistré le 14/10/2004
Gagnon Mike Pointe Cla H9R 3K8 de la société Carver Technologies Inc. Fiche personnelle
Note des membres
pas de note
|
Contributions > 12 - Envoyer des Emails
Comment envoyer un e-mail sans installer un Service SMTP
# 0000000013
ajouté le 14/10/2004 20:48:08 et modifié le 14/10/2004
consulté 9813 fois
Niveau
initié
|
Description |
Le code requiert l'installation de CDO (Collaboration Data Objects). Vous pouvez obtenir de l'information sur le sujet ici: http://support.microsoft.com/default.aspx?scid=kb;EN-US;171440
|
Code source : |
loEmail = CreateObject("CDO.Message")
loEmail.From = "moi@nullepart.com"
loEmail.To = "toi@nullepart.com"
loEmail.Subject = "Serveur non fonctionnel"
loEmail.Textbody = "Serveur principal est temporairement éteint."
loEmail.Configuration.Fields.Item;
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
loEmail.Configuration.Fields.Item;
("http://schemas.microsoft.com/cdo/configuration/smtpserver");
= "smarthost"
loEmail.Configuration.Fields.Item;
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
loEmail.Configuration.Fields.Update
loEmail.Send
|
Commentaires |
|
Mike,
Si un client n'a pas installé IIS , Pourra t'il avec ton code envoyer des emails ?
bernhart