récupération de données d'une base données et envois de mail

Version imprimable

Bonjour,

J'ai une base de donnée contrats.mdb avec des contrats. Je voudrais faire un script .vbs qui renvois les informations des contrats (libellé + société) dans la table liste, et qui ensuite envois un mail a un utilisateur.
Le but est d'éviter à l'utilisateur de lancer access et d'exécuter la requête.

je suis bloqué pour récupéré les informations libellé + société et les mettre dans le mail.

Code:

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
32
33
34
35
36
Set conn = CreateObject("ADODB.Connection")
' Connect to the database
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\contrats.mdb"
conn.Open strConnect
Set RS=CreateObject("ADODB.Recordset")
SQL="select liste.société, liste.libellé from liste where DateDiff('D', [date_fin], Date())" 
Dim Nom
Dim rapport
set rapport = fso.CreateTextFile(filetext + ".txt")
Set fso = CreateObject
Filetext=Inputbox
Nom=prestataire
If D < 110 then
Dim MAIL, CON
 
    Set MAIL = CreateObject("CDO.Message")
    Set CON = CreateObject("CDO.Configuration")
        'use the address of your outbound smtp server, i.e. mail.yahoo.com or smtp.google.com, etc.
    CON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.7.1"
    CON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    CON.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'CON.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "toto"
    'CON.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "windows2003"
    CON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    CON.Fields.Update
    Set MAIL.Configuration = CON
    MAIL.From = "tata@totosarl.com"
    MAIL.To = "titi@totosarl.com"
    'MAIL.CC = ""
    MAIL.Subject = "Contrat arrive à échéance dans trois mois"
    'MAIL.AddAttachment "d:\test.txt"  (je pensais mettre le résultat dans un .txt qui serait en pièce jointe)
    MAIL.TextBody = Nom
    MAIL.HTMLBody = "<p>Liste des contrats qui expire dans 3 mois</p>"
    MAIL.Send
'    Set MAIL = Nothing
'    Set CON = Nothing

Ca fait depuis ce matin que j'essaye des trucs, mais aucun ne fonctionne.

merci d'avance de votre aide.

23/03/2009, 16h05
pc75

Bonjour,

Je ne vois pas où tu exécutes ta requête SQL ?

Il faut que tu utilises un recordset, puis tu boucles dessus (do while not rs.eof...)

Citation:

Envoyé par pc75

Bonjour,

Je ne vois pas où tu exécutes ta requête SQL ?

Il faut que tu utilises un recordset, puis tu boucles dessus (do while not rs.eof...)
Code:

1 2 3 4 5 6 7 8 Set conn = CreateObject("ADODB.Connection") ' Connect to the database strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\contrats.mdb" conn.Open strConnect Set RS=CreateObject("ADODB.Recordset") '******************************************************** SQL="select liste.société, liste.libellé from liste where DateDiff('D', [date_fin], Date())" '********************************************************
l'envois du mail se fait bien

23/03/2009, 19h55
SfJ5Rpw8

Avec cette ligne :

Code:

SQL="select liste.société, liste.libellé from liste where DateDiff('D', [date_fin], Date())"

tu stocke juste ta requête SQL dans une variable ( SQL) rien de plus...
24/03/2009, 09h44
Alex65351

Citation:

Envoyé par bbil

Avec cette ligne :

Code:

SQL="select liste.société, liste.libellé from liste where DateDiff('D', [date_fin], Date())"

tu stocke juste ta requête SQL dans une variable ( SQL) rien de plus...

ah oui, en fait je voudrais mettre les résultats de cette requête dans un .rtf

ou le nom des prestataire dans le bodyhtml

Ca y est ca fonctionne enfin :yaisse2::yaisse2::yaisse2::yaisse2:

Merci de votre aide.

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
Set conn = CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\CONTRATS.mdb"
conn.Open strConnect
Set RS=CreateObject("ADODB.Recordset")
SQL="select * from liste WHERE liste.date_fin<=now()+110 And liste.date_fin>=(now()+103) order by liste.date_fin"
'pour envoyer un mail au personnes concernées pour les contrats qui se terminent dans 110 jours et 103 jours
rs.open SQL,Conn
 
'debut de la condition de test de la requête si requête vide pas d'envois du mail
if rs.EOF=false Then
	rs.MoveFirst
	Do While Not rs.EOF
		prestataire=rs("prestataire")
		datedebut=rs("date début")
		datefin=rs("date_fin")
		responsable=rs("responsable contrat")
		html=html& "<TABLE border=1 CELLSPACING=0 CELLPADDING=0 width=400><TR><TD align=center colspan=2 bgcolor=gray>" & prestataire & "</TD></TR><TR><TD>Date Début</TD><TD>" & datedebut & "</TD></TR><TR><TD>Date Fin</TD><TD>" & datefin & "</TD></TR><TR><TD>Responsable</TD><TD>" & responsable & "</TD></TR></TABLE><BR><BR>"
		rs.MoveNext
		loop
'le résultat de la requête sera contenu dans le corps du mail.
 
    Set MAIL = CreateObject("CDO.Message")
    Set CON = CreateObject("CDO.Configuration")
    CON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.X.X.X"
    CON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = XX
    CON.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    CON.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    CON.Fields.Update
    Set MAIL.Configuration = CON
    MAIL.From = "toto@SARLy.com"
    MAIL.To = "alex65351@SARLy.com"
    MAIL.Subject = "Attention contrats arrivent à échéance dans trois mois"
    MAIL.HTMLBody = html
    MAIL.Send
 
	Set MAIL = Nothing
    Set CON = Nothing
 
 
end If
 
 
    Set RS=Nothing
    Set Conn=nothing