[AC-2002] Connexion avec OUTLOOK [Résolu]

[Gégé65]

J'utilisais ACCESS2000 avec OUTLOOK2003 pas de PB pour envoyer des messages à partir de la base de données
Configuration actuelle
ACCES2003 et OUTLOOK2007 plus rien
Pouvez-vous m'aider c'est pour une asso
Merci
Voila le code
C'est la ligne Set olApp = CreateObject("Outlook.Application") qui plante

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
Function SendMail(strTo As Variant, strSubject As String, strBody As String, strfichier() As String, vmtype As String, vmtableau As Boolean) As Boolean
Dim j As Integer
 
    On Error GoTo Err_SendMail
 
    Dim olApp
    Dim olMail
 
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(olMailItem)
 
    With olMail
        .BCC = strTo
        If strSubject <> "" Then .Subject = strSubject
        If vmtype = "HTML" And strBody <> "" Then
            .HTMLBody = strBody
        ElseIf strBody <> "" Then
            .Body = strBody
        End If
        If vmtableau = True Then
            For j = 0 To UBound(strfichier())
                .Attachments.Add strfichier(j)
            Next j
        End If
        .Send
    End With
 
    SendMail = True
 
    Set olMail = Nothing
    Set olApp = Nothing
    Exit Function
 
Err_SendMail:
    SendMail = False
End Function

[Thierry_PALLIER]

Bonjour Gégé65
Je pense que c'est un problème de reference.Tu es resté sur Outlook 11 (2003) ,et il te faut Outlook 12 pour 2007.
Il faut aller dans Outils , réference ,décoché la case "manquant" puis cocher "Microsoft Outlook 12 Object Library"
De plus ,c'est mieux de déclarer un objet avec le bon type:

Code :

1
2
3
4
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
 Set olApp = CreateObject("Outlook.Application")
 Set olMail = olApp.CreateItem(olMailItem)

A+

[Gégé65]

Merci pour ta réponse
Je me suis procurer ACCESS 2007 je suis en phase d'apprentissage car ça ne marche toujours pas mais je cherche la ligne qui plante