Erreur lors de l'envoie d'un mail via Outlook

[Zoethibault]

Bonjour,

J'utilise un code qui fonctionnait sous Office 2003. Cependant, depuis le passage sous Office 2010, ACCESS me renvoie une erreur lors de l'execution de la requete oEmail.send.
J'ai bien la référence à la bibliotheque Office Outlook 14.0

Merci pour votre aide

Voici le code :

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
Dim Destinataire As String
Dim Sql_Mail As String
Dim oEmail As Outlook.MailItem
Dim appOutLook As Outlook.Application
Dim oRst1 As DAO.Recordset
Dim oDB As DAO.Database
 
initerr = False
Err_detect_mail (initerr)
 
Set oDB = CurrentDb
 
'Création de la requete de regrouppement
 
Sql_Mail = "SELECT Tbl_LUP_EMAIL.adressemail, Tbl_LUP_EMAIL.Login, Tbl_LUP_EMAIL.Par FROM Tbl_LUP_EMAIL GROUP BY Tbl_LUP_EMAIL.adressemail, Tbl_LUP_EMAIL.Login, Tbl_LUP_EMAIL.Par HAVING (((Tbl_LUP_EMAIL.Par)=GetLoginUser()));"
 
' créer un nouvel item mail
 
Set appOutLook = New Outlook.Application
Set oEmail = appOutLook.CreateItem(olMailItem)
 
' les paramètres
 
Set oRst1 = oDB.OpenRecordset(Sql_Mail)
 
'Boucle sur chaque client et les ajoute au champ A du mail
While Not oRst1.EOF
moi = oRst1.Fields("Login")
If moi <> GetLoginUser Then
Destinataire = Destinataire & oRst1.Fields("adressemail") & "; "
End If
oRst1.MoveNext
Wend
If Destinataire <> "" Then
 
'Supprime le ";" à la fin
Destinataire = Left(Destinataire, Len(Destinataire) - 2)
 
' Mise en forme du mail
 
'oEmail.To = Destinataire
oEmail.Subject = "Portail Maintenance : Mise à jour de votre LUP"
oEmail.Body = "Bonjour"
 
' envoie le message
oEmail.Send
 
' détruit les références aux objets
Set oEmail = Nothing
Set appOutLook = Nothing
End if

[Philippe JOCHMANS]

Bonjour

Et quelle est cette erreur .

Philippe

[Zoethibault]

Erreur 287
Erreur définie par l'application ou par l'objet

Si Outlook est déjà lancé, tout se passe bien, mais s'il est fermé, le message apparait.

Sous ACCESS2003, même Outlook fermé ça fonctionnait

[Thierry_PALLIER]

Bonjour Zoethibault

Dans la procedure que tu nous montres , "oEmail.To = Destinataire" est commenté . Donc ,sans destinataire ,ça marche moins bien ,je pense !

A+

[Zoethibault]

Exact, mais c'est une erreur de copier coller.Pour faire des essais, le .TO est à mon adresse perso.Pour poser la question sur le forum, j'ai préféré l'enlevé et j'ai oublier de modifier la ligne.
En vrai, la ligne n'est pas en commentaire.

[Philippe JOCHMANS]

Bonjour

Test ce genre de code

Code :

1
2
3
4
5
6
7
' ouverture de outlook
    On Error Resume Next
    Set AppOutLook = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If AppOutLook Is Nothing Then
        Set AppOutLook = CreateObject("Outlook.Application")
    End If

Fonctionne que OutLook soit ouvert ou non.

Philippe

[Thierry_PALLIER]

Bonjour tous les deux.

Il vaut mieux placer le "End If" avant la destruction des objets ,puisqu'ils ont été créés avant ton "If" .
Mais cela ne va pas régler ton problème .
N'y as il pas trop de destinataire ? Essais avec un seul.
"destinataire" est de type string . Tu depasses peut-etre ses capacité.
Ne travaillant pas sur la version 2010 ,il y a peut-etre des options de sécurité ?
A+