alertes & envoi de mail avec SQL Server

**mister_toto** · 04/05/2006, 09h45

Bonjour,
ma question est la suivante:
j'ai développé un site web qui extrait un certain nombre de statistiques à partir de ma base de donnée SQL Server.
je voudrai faire des controles automatiques avec des alertes toutes les 2 heures.
chaque fois qu'il y a une alerte, je souhaite recevoir (automatiquement) un email.
Quel est le meilleurs moyen pour faire cela ???
Merci d'avance !!!

**HULK** · 04/05/2006, 09h57

faut créer un job programmé toutes les 2 heures pour envoyer un mail, moi je prends l'option active x script, et en visual basic je mets ce 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
 
Dim iMsg 
Dim iConf 
Dim Flds 
Dim strHTML 
Const cdoSendUsingPort = 2 
set iMsg = CreateObject("CDO.Message") 
set iConf = CreateObject("CDO.Configuration") 
Set Flds = iConf.Fields 
With Flds 
    .Item("<a href="http://schemas.microsoft.com/cdo/configuration/sendusing" target="_blank">http://schemas.microsoft.com/cdo/con...tion/sendusing</a>") = cdoSendUsingPort 
    .Item("<a href="http://schemas.microsoft.com/cdo/configuration/smtpserver" target="_blank">http://schemas.microsoft.com/cdo/con...ion/smtpserver</a>") = "Nom server SMTP"  
    .Item("<a href="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" target="_blank">http://schemas.microsoft.com/cdo/con...nectiontimeout</a>") = 10 
    .Update 
    .Item("<a href="http://schemas.microsoft.com/cdo/configuration/sendusername" target="_blank">http://schemas.microsoft.com/cdo/con...n/sendusername</a>") = "identifiant"
    .Item("<a href="http://schemas.microsoft.com/cdo/configuration/sendpassword" target="_blank">http://schemas.microsoft.com/cdo/con...n/sendpassword</a>") = "mot de passe"    
End With 
With iMsg 
    Set .Configuration = iConf 
    .To = "ton adresse mail"   
    .From = "adresse mail d'envoi" 
    .Subject = "sujet" 
    .TextBody = "message" 
    .Send 
End With 
Set iMsg = Nothing 
Set iConf = Nothing 
Set Flds = Nothing