Lien Access-Outlook marche sur 4 postes et pas sur le 5eme

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,
Access me sert ici, dans une application de devis/facture à envoyer certaines factures par mail.

J'ai 1 poste récalcitrant sur 5: sur celui ci a été installé office 365, que j'ai dé-installé pour installer office 2007.
C'est le runtime 2007SP1 qui est utilisé.

Au niveau de mes références de biblio, j'ai sur mon poste de développement
Pièce jointe 628927

Et ma procédure d'envoi de mail
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub EnvoiMail3(ByVal TypeEnvoi, ByVal P_Destinataire, ByVal P_FichierAttache As String, ByVal P_NomFichier As String, _ ByVal P_Genre As String, P_PrenomClient As String, _ ByVal P_Nom As String, _ ByVal P_Numero As Long) Dim MonOutlook As New Outlook.Application Dim M As Outlook.MailItem Dim Objet, Body, eMailUtilisateur, EmetteurMessage, Suite, TxtMaintenance, TexteAPrevoir, Bilan, Site, Parrain As String Dim HeureRestant As Double Dim NumUtilisateur As Long NumUtilisateur = DLookup("NumUtilisateur", "Constante") eMailUtilisateur = DLookup("eMail", "Utilisateur", "[NumUtilisateur]=" & NumUtilisateur) EmetteurMessage = DLookup("Prenom", "Utilisateur", "[NumUtilisateur]=" & NumUtilisateur) Set M = MonOutlook.CreateItem(olMailItem)
L'erreur se produit pour ce poste (les autre fonctionnent correctement) sur cette dernière instruction Set M ...
Code:

1 2 3 Erreur éxécution '-2147318779(8002801s) Erreur Automation Biblio NON inscrite
Avez vous une idée comment éviter cette erreur ?
Merci pour votre attention :)

14/11/2022, 16h52
marot_r

Bonjour.

Le plus simple est probablement d'enlever la référence à Outlook.
Il faut typer tous les objets Outlook en tant que object.
Attention avec cela on perd l'intelisens et on a plus de vérification possible par le compilateur sur tout ce qui est Outlook :-(.
et faire quelque chose comme :

Code:

Set mobjOutlook = CreateObject("Outlook.Application")

pour instancier outlook.

A+
14/11/2022, 16h56
micniv
Et si tu remplaces

Citation:

Dim MonOutlook As New Outlook.Application

par:
Code:

1 2 3 Dim MonOutlook As Object set MonOutlook = CreateObject( "Outlook.Application") ...
?

Merci à tous les deux pour vos réponses rapides :)

Si je prends ton idée, @marot_r, je laisse les déclarations telles quelles
Code:

1 2 3 Dim MonOutlook As New Outlook.Application Dim M As Outlook.MailItem
Et avant le Set M, j'ajoute ton instruction
Code:

1 2 Set MonOutlook = CreateObject("Outlook.application") Set M = MonOutlook.CreateItem(olMailItem)
Et pour renseigner le mail à envoyer
Code:

1 2 3 M.SendUsingAccount = MonOutlook.GetNamespace("MAPI").Accounts(eMailUtilisateur) M.To = P_Destinataire ...
C'est bien ça ?

14/11/2022, 20h44
loufab

Bonjour,

Citation:

Envoyé par LeMin

Merci à tous les deux pour vos réponses rapides :)

Si je prends ton idée, @marot_r, je laisse les déclarations telles quelles
...
C'est bien ça ?

Absolument pas ! Relis bien les 2 interventions.

Pour bien comprendre la méthode informe-toi sur la différence entre Early Binding / Late Binding.

Cordialement,

Merci @marot_r pour le renvoi à la base de connaissance :)
Je comprends maintenant que vos 2 méthodes sont liées.

Donc, j'ai repris mon code ainsi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
   'Dim MonOutlook As New Outlook.Application pour la méthode Earlybinding (utilisation bibliothèques)
   'Dim M As Outlook.MailItem
   Dim MonOutlook As Object                  'Pour la méthode LateBinding (sans utiliser bibliothèque)
   Dim M As Object
   Const olMailItem = 0
 
   Dim Objet, Body, eMailUtilisateur, EmetteurMessage, Suite, TxtMaintenance, TexteAPrevoir, Bilan, Site, Parrain As String
   Dim HeureRestant As Double
   Dim NumUtilisateur As Long
 
   NumUtilisateur = DLookup("NumUtilisateur", "Constante")
   eMailUtilisateur = DLookup("eMail", "Utilisateur", "[NumUtilisateur]=" & NumUtilisateur)
   EmetteurMessage = DLookup("Prenom", "Utilisateur", "[NumUtilisateur]=" & NumUtilisateur)
 
   Set MonOutlook = CreateObject("Outlook.application") ' méthode LateBinding
   Set M = MonOutlook.CreateItem(olMailItem)
 
    M.SendUsingAccount = MonOutlook.GetNamespace("MAPI").Accounts(eMailUtilisateur)

J'ai une erreur sur la dernière instruction M.SendUsingAccount ..

Citation:

Erreur exécution 450
Nbre arguments incorrects ou affectation de propriété incorrecte

J'ai dû encore mal comprendre qq chose :roll:

15/11/2022, 19h10
marot_r

Bonjour.

Est-ce que cette ligne fonctionnait avant que tu retires la référence ?

Sinon, il y a peut-être une erreur d'orthographe dans le nom de la propriété (ici l'aide M$ sur le sujet https://learn.microsoft.com/en-us/of...k/object-model et plus précisément https://learn.microsoft.com/en-us/of...tlook.mailitem).

Perso pour l'envoi de courriel j'utilise la version dans la FAQ : https://access.developpez.com/faq/?page=Outlook#outlook. Relativement simple et directe, à adapter à ton cas probablement

Tous les posts à propos d'Outlook : https://access.developpez.com/faq/?page=Outlook.

A+

Merci our ta réponse, Marot_r:)
Oui, cette ligne fonctionnait avant. Elle me permet de sélectionner un compte outlook si le poste en a plusieurs de déclarés.
Si je ne mets pas cette ligne, il choisira le compte par défaut il me semble.

Par contre, avec ta méthode de déclaration LateBinding, et si je mets en commentaire cette ligne M.SendUsingAccount .., toutes les autres lignes ne posent pas de problème
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Set MonOutlook = CreateObject("Outlook.application") ' méthode LateBinding Set M = MonOutlook.CreateItem(olMailItem) 'M.SendUsingAccount = MonOutlook.GetNamespace("MAPI").Accounts(eMailUtilisateur) M.To = P_Destinataire M.Attachments.Add P_FichierAttache M.Subject = Objet & " pour " & P_Genre & " " & P_Nom & "." M.BodyFormat = olFormatHTML M.HTMLBody = "Bonjour " & P_Genre & " " & P_Nom & ", " & Body & Suite & _ " " & _ " Bonne réception et à bientôt. Cordialement. Pour le Comptoir Ménager Alésien " & _ "" & EmetteurMessage & " (04) 66 30 18 55 " & _ " 50, Bd Gambetta 30100 ALES" & Site ' M.Send M.Display ' MonOutlook.Quit Set MonOutlook = Nothing
Et le mail s'affiche dans outlook :D

J'ai regardé ton exemple de la faq, mais il ne permet pas de sélectionner le compte Outlook.
Dans ton lien sur "tous les posts à propos d'outlook", j'ai trouvé un exemple ou "MAPI" est utilisé
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set out = New Outlook.Application Set mapi = out.GetNameSpace("MAPI") For ctrlists = 1 To mapi.AddressLists.Count Set a = mapi.AddressLists(ctrlists) For X = 1 To a.AddressEntries.Count I = MAPIResolveName(0, 0, a.AddressEntries(X), 0, 0, info) resultat.Text = resultat.Text & "Nom : " & info.Name & " " & " @ : " & _ Replace(info.Address, "SMTP:", "") & vbCrLf 'I = MAPIDetails(0, 0, info, 0, 0) 'pour éditer les détails. DoEvents Next DoEvents Next
Mais je ne vois pas ici le choix d'un compte. Et je n'arrive pas à le tranposer.
Et je ne me rappelle plus ou j'avais trouvé ça à l'époque ...

Penses tu qu'avec le changement de déclaration, je dois modifier la syntaxe de la ligne

Code:

M.SendUsingAccount = MonOutlook.GetNamespace("MAPI").Accounts(eMailUtilisateur)

ou est ce que cette déclaration n'est pas supportée maintenant ?

Bonjour,

D'après cette source :

https://www.rondebruin.nl/win/s1/outlook/account.htm

Il aurait cette possibilité :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim oOutlook as Outlook.Application Dim oNameSpace As Outlook.NameSpace Dim oAccount As Outlook.Account '... Set oOutlook = CreateObject("Outlook.application") ' méthode LateBinding Set oNameSapce = oOutlook.GetNamespace("MAPI") Set oAccount = oOutlook.Session.Accounts(eMailUtilisateur) ' Set oAccount = oNameSpace.Accounts(eMailUtilisateur) oMailItem.SendUsingAccount = oAccount '...
D'après une autre source, on peut aussi définir l'adresse de l'expéditeur en utilisant la propriété SentOnBehalfOfName de l'objet oMailItem :

Code:

oMailItem.SentOnBehalfOfName = eMailUtilisateur

https://learn.microsoft.com/fr-fr/of...onbehalfofname

Je n'ai pas testé..

Cordialement.

Bonjour User, merci de t'intéresser à mon cas :)

Alors, j'ai d'abord testé le plus simple

Code:

1
2
3
4
5
6
7
8
9
10
11
   Dim MonOutlook As Object                  'Pour la méthode LateBinding (sans utiliser bibliothèque)
   Dim M As Object
   Const olMailItem = 0
 
   Set MonOutlook = CreateObject("Outlook.application") ' méthode LateBinding
   Set M = MonOutlook.CreateItem(olMailItem)
 
   'M.SendUsingAccount = MonOutlook.GetNamespace("MAPI").Accounts(eMailUtilisateur) 'provoque une erreur en LateBinding
 
   M.SentOnBehalfOfName = eMailUtilisateur ' Utilise le compte par défaut mais change le pseudo d'envoi (de la part de)
                                           ' si mail choisi différent du compte par défaut

M.SentOnBehalfOfName ne provoque pas d'erreur, mais utilise toujours le compte par défaut.

Alors, j'ai testé le 2eme cas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
   Dim MonOutlook As Object                  'Pour la méthode LateBinding (sans utiliser bibliothèque)
   Dim M As Object
   Const olMailItem = 0
 
   Set MonOutlook = CreateObject("Outlook.application") ' méthode LateBinding
   Set M = MonOutlook.CreateItem(olMailItem)
 
   'M.SendUsingAccount = MonOutlook.GetNamespace("MAPI").Accounts(eMailUtilisateur) 'provoque une erreur en LateBinding
   Dim oNameSpace As Object
   Dim oAccount As Object
   Set oNameSpace = MonOutlook.GetNamespace("MAPI")
   Set oAccount = MonOutlook.Session.Accounts(eMailUtilisateur)
   M.SendingUsingAccount = oAccount

provoque une erreur sur Set oAccount = MonOutlook.Session.Accounts(eMailUtilisateur)

Citation:

erreur exécution 450
Nbre arguments incorrect ou affectation de propriété incorrecte

ça donne une idée à quelqu'un 8O

Bonjour,

Dans les liens que je t'ai donné on propose de lister les comptes de messagerie, as-tu testé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
   Dim MonOutlook As Object                  'Pour la méthode LateBinding (sans utiliser bibliothèque)
   Dim M As Object
   Dim oNameSpace As Object
   Dim oAccount As Object
   Const olMailItem = 0
 
   Set MonOutlook = CreateObject("Outlook.application") ' méthode LateBinding
   Set M = MonOutlook.CreateItem(olMailItem)
 
   Set oNameSpace = MonOutlook.GetNamespace("MAPI")
 
    For Each oAccount In oNameSpace.Accounts
    ' For Each oAccount In MonOutlook.Session.Accounts
        MsgBox "compte de messaegerie : " & oAccount.DisplayName
        MsgBox "smtpAddress : " & oAccount.SmtpAddress
        If oAccount.SmtpAddress = eMailUtilisateur Then
            set M.SendUsingAccount = oAccount
            exit for
        end if
    Next
    '...
    Set M = Nothing
    Set MonOutlook = Nothing

Cordialement.

Non, je n'avais pas testé.
Donc, 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
   Dim MonOutlook As Object                  'Pour la méthode LateBinding (sans utiliser bibliothèque)
   Dim M As Object
   Dim oNameSpace As Object
   Dim oAccount As Object
   Const olMailItem = 0
 
   Set MonOutlook = CreateObject("Outlook.application") ' méthode LateBinding
   Set M = MonOutlook.CreateItem(olMailItem)
 
   Set oNameSpace = MonOutlook.GetNamespace("MAPI")
 
 
    For Each oAccount In oNameSpace.Accounts
    ' For Each oAccount In MonOutlook.Session.Accounts
        MsgBox "compte de messaegerie : " & oAccount.DisplayName
        MsgBox "smtpAddress : " & oAccount.SmtpAddress
        If oAccount.SmtpAddress = eMailUtilisateur Then
            M.SendUsingAccount = oAccount
            Exit For
        End If
    Next

J'ai bien l'affichage de mon 1er compte de messagerie et son mail
Et j'ai une erreur à M.SendUsingAccount = oAccount

Citation:

erreur exécution -2147417851 (80010105)
la méthode sendusingAccount de l'objet '_MailItem' a échoué

18/11/2022, 15h06
User

Code:

set M.SendUsingAccount = oAccount

J'ai oublié le set devant :?

https://learn.microsoft.com/fr-fr/of...ndusingaccount
18/11/2022, 16h25
LeMin

Citation:

Envoyé par User

Code:

set M.SendUsingAccount = oAccount

J'ai oublié le set devant :?

https://learn.microsoft.com/fr-fr/of...ndusingaccount

Super, ça marche !

Merci beaucoup à ceux qui m'ont répondu et mis sur la voie et @user pour ta solution finale:D