Accueil > > > COMPOSANT ASPMAIL PILOTÉ VIA SQL SERVER
COMPOSANT ASPMAIL PILOTÉ VIA SQL SERVER
Information sur la source
Description
ASPMAIL est un composant permettant l'envoi de mails... Il peut être piloté via une page ASP ou peut être de même manipulé via les procédures stockées. Afin de pouvoir manipuler le composant ASPMAIL, il faut utiliser les procédures stockées OLE Automation afin de créer et utiliser l'objet Mailer. Voici les marches à suivre ainsi que les commandes à utiliser : 1. CREATION D'UNE INSTANCE DE L'OBJET OLE SMTPsvg.Mailer : sp_OACreate 2. AFFECTATION DES VALEURS AUX PROPRIETES DE L'OBJET SMTPsvg.Mailer : sp_OASetProperty 3. APPEL A DIFFERENTES METHODES POUR L'ENVOI DE MAIL : sp_OAMethod 4. GESTION DES ERREURS S'IL Y EN A EU : sp_OAGetErrorInfo 5. DESTRUCTION DE L'OBET OLE : sp_OADestroy Dans mon exemple, je prends en considération une table NEWSLETTER avec en clé unique le champs EMAIL qui contient l'adresse email de chaque utilisateur... Il s'agira de parcourir toutes les occurences de la table et envoyer un mail à chaque utilisateur...
Source
- CREATE PROCEDURE PO_ENVOI_NEWSLETTER
- AS
- /* Variable qui contiendra l'email de chaque utilisateur dans chaque ligne du curseur */
- DECLARE @EMAIL as varchar(255)
-
- BEGIN
- /* Les variables concernant le traitement du mail */
- @pObj int,
- @AspMail int,
- @property int,
-
- /* On déclare un curseur afin de récupérer toutes les adresses email */
- DECLARE CURSMAIL CURSOR GLOBAL FOR SELECT * FROM NEWSLETTER
-
- /* On ouvre le curseur */
- OPEN CURSMAIL
-
- /* On récupère une ligne spécifique du curseur */
- FETCH NEXT FROM CURSMAIL INTO @EMAIL
-
- /* Tant que la dernière instruction FETCH sur le curseur a reussie */
- WHILE(@@FETCH_STATUS = 0)
- BEGIN
- /* Envoi du mail */
- exec @AspMail=sp_OACreate "SMTPsvg.Mailer", @pObj OUT
- exec @AspMail=sp_OASetProperty @pObj, "RemoteHost","adresse de l'host"
- exec @AspMail=sp_OASetProperty @pObj, "FromName","Nom de l'emetteur"
- exec @AspMail=sp_OASetProperty @pObj, "FromAddress","Email de l'emetteur"
- exec @AspMail=sp_OASetProperty @pObj, "SubJect", "Commande de mails via SQL-SERVER"
- exec @AspMail=sp_OASetProperty @pObj, "ContentType","text/html"
- exec @AspMail=sp_OASetProperty @pObj, "BodyText","Corps de votre message"
- exec @AspMail=sp_OAMethod @pObj, "AddRecipient", @property OUT, @EMAIL, @EMAIL
- exec @AspMail=sp_OAMethod @pObj, "SendMail", @property OUT
- FETCH NEXT FROM CURSMAIL INTO @EMAIL
- END
- CLOSE CURSMAIL
- DEALLOCATE CURSMAIL
- END
-
-
- ************************
- Côté ASP :
- ************************
-
- Set Conn = Server.CreateObject("ADODB.Connection")
- Conn.Open "Nom de votre DSN"
-
- str = "EXEC PO_ENVOI_NEWSLETTER"
- set rst = Conn.Execute(str)
CREATE PROCEDURE PO_ENVOI_NEWSLETTER
AS
/* Variable qui contiendra l'email de chaque utilisateur dans chaque ligne du curseur */
DECLARE @EMAIL as varchar(255)
BEGIN
/* Les variables concernant le traitement du mail */
@pObj int,
@AspMail int,
@property int,
/* On déclare un curseur afin de récupérer toutes les adresses email */
DECLARE CURSMAIL CURSOR GLOBAL FOR SELECT * FROM NEWSLETTER
/* On ouvre le curseur */
OPEN CURSMAIL
/* On récupère une ligne spécifique du curseur */
FETCH NEXT FROM CURSMAIL INTO @EMAIL
/* Tant que la dernière instruction FETCH sur le curseur a reussie */
WHILE(@@FETCH_STATUS = 0)
BEGIN
/* Envoi du mail */
exec @AspMail=sp_OACreate "SMTPsvg.Mailer", @pObj OUT
exec @AspMail=sp_OASetProperty @pObj, "RemoteHost","adresse de l'host"
exec @AspMail=sp_OASetProperty @pObj, "FromName","Nom de l'emetteur"
exec @AspMail=sp_OASetProperty @pObj, "FromAddress","Email de l'emetteur"
exec @AspMail=sp_OASetProperty @pObj, "SubJect", "Commande de mails via SQL-SERVER"
exec @AspMail=sp_OASetProperty @pObj, "ContentType","text/html"
exec @AspMail=sp_OASetProperty @pObj, "BodyText","Corps de votre message"
exec @AspMail=sp_OAMethod @pObj, "AddRecipient", @property OUT, @EMAIL, @EMAIL
exec @AspMail=sp_OAMethod @pObj, "SendMail", @property OUT
FETCH NEXT FROM CURSMAIL INTO @EMAIL
END
CLOSE CURSMAIL
DEALLOCATE CURSMAIL
END
************************
Côté ASP :
************************
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Nom de votre DSN"
str = "EXEC PO_ENVOI_NEWSLETTER"
set rst = Conn.Execute(str)
Conclusion
En espérant vous aider, dans tous les cas bon courage et bonne programmation...
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson
Forum
UTILISATEURUTILISATEUR par zaydounhlel
Cliquez pour lire la suite par zaydounhlel RE : VIRUSRE : VIRUS par ghuysmans99
Cliquez pour lire la suite par ghuysmans99
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|