Référence pour ADODB.Connection ?
Bonjour à tous,
je suis aussi particulièrement intéressé par ce code que j'ai trouvé dans une précédente discussion:
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
45
46
47
48
49
50
51
52
53
| Function Mailing_Mail(Objet As String, Message As String, Signataire As String)
Dim oApp as Object
Dim oMail as Object
Dim strSujet As String
Dim strMsg As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
'Affectation de l'objet oApp
set oApp = GetObject(,"Outlook.Application")
'Si outlook n'est pas ouvert, création d'une instance
'Le message est inévitable.
If oApp = Nothing Then CreateObject("Outlook.Application")
Set oMail = OApp.MailItem
' Ouverture de la requête_mail
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Requête_mail] WHERE NOT IsNull(COR_Mail);", cnn
'rst.Open "SELECT * FROM [R_F_RCHENT2] WHERE NOT IsNull(REP_Mail);", cnn
' Sujet du message
strSujet = Objet
' Envoi d'un e-mail par personne
While Not rst.EOF
' Constitution du message personnalisé
If IsNull(rst("COR_Nom")) Then
strMsg = "Monsieur," & vbCrLf & vbCrLf & Message & vbCrLf & vbCrLf & Signataire
Else
strMsg = rst("COR_Civilite") & " " & rst("COR_Nom") & vbCrLf & vbCrLf & Message & vbCrLf & vbCrLf & Signataire
End If
With oMail
.to = rs.("COR_Nom")
.Subject = strSujet
.Body = strMsg
.Send
End With
' Patient suivant
rst.MoveNext
Wend
' Fermeture et libération des objets
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function |
Mais j'ai un problème de définition sur la ligne
Code:
Dim cnn As ADODB.Connection
avec le message : "type défini par l'utilisateur non défini".
Il y a t-il une référence particulière à activer ? j'ai essayé avec les références CDO et ADO mais cela ne change rien. Je précise que je travaille sous une version 2003.
merci pour votre aide.
