Discussion :

[marco361020]

Bonjour à tous,

je suis aussi particulièrement intéressé par ce code que j'ai trouvé dans une précédente discussion:

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jean-Philippe André]

Salut,
si tu as déjà les bonnes librairies pour ADO et CDO, vérifie toutefois qu'il n'y a pas de librairies manquantes dans la liste.

Microsoft ActiveX ... est suffisante pour utiliser ADO il me semble.

[LE VIEUX]

bonjour,
exactement :

Microsoft ActiveX Data Objects 2.X Library

X = N° Maxi qui correspond à ta version Access ex: 2.8 pour 2007

et comme dit jpcheck c'est suffisant
a+

[marco361020]

Merci beaucoup, c'était exactement ce qu'il me manquait.