IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Lien Access-Outlook marche sur 4 postes et pas sur le 5eme [AC-2007]


Sujet :

VBA Access

  1. #1
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    décembre 2013
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Services à domicile

    Informations forums :
    Inscription : décembre 2013
    Messages : 127
    Points : 86
    Points
    86
    Par défaut Lien Access-Outlook marche sur 4 postes et pas sur le 5eme
    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
    Nom : RefAccess.jpg
Affichages : 88
Taille : 17,8 Ko

    Et ma procédure d'envoi de mail
    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
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Modérateur

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    15 103
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 15 103
    Points : 23 008
    Points
    23 008
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    Set mobjOutlook = CreateObject("Outlook.Application")
    pour instancier outlook.

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  3. #3
    Expert confirmé

    Homme Profil pro
    consultant développeur
    Inscrit en
    mai 2005
    Messages
    2 712
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : consultant développeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : mai 2005
    Messages : 2 712
    Points : 4 461
    Points
    4 461
    Par défaut
    Et si tu remplaces
    Dim MonOutlook As New Outlook.Application
    par:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
      Dim MonOutlook As Object
    set MonOutlook =  CreateObject( "Outlook.Application")
    ...
    ?
    "Always look at the bright side of life." Monty Python.

  4. #4
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    décembre 2013
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Services à domicile

    Informations forums :
    Inscription : décembre 2013
    Messages : 127
    Points : 86
    Points
    86
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
       Dim MonOutlook As New Outlook.Application
     
       Dim M As Outlook.MailItem
    Et avant le Set M, j'ajoute ton instruction
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
       Set MonOutlook = CreateObject("Outlook.application")
       Set M = MonOutlook.CreateItem(olMailItem)
    Et pour renseigner le mail à envoyer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
       M.SendUsingAccount = MonOutlook.GetNamespace("MAPI").Accounts(eMailUtilisateur)
       M.To = P_Destinataire
    ...
    C'est bien ça ?

  5. #5
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    avril 2005
    Messages
    11 463
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2005
    Messages : 11 463
    Points : 23 392
    Points
    23 392
    Par défaut
    Bonjour,

    Citation Envoyé par LeMin Voir le message
    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,
    Détecter les modifications formulaire Cloud storage et ACCESS
    Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
    Visitez mon Blog
    Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie

  6. #6
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    décembre 2013
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Services à domicile

    Informations forums :
    Inscription : décembre 2013
    Messages : 127
    Points : 86
    Points
    86
    Par défaut
    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 : 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
       '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 ..
    Erreur exécution 450
    Nbre arguments incorrects ou affectation de propriété incorrecte
    J'ai dû encore mal comprendre qq chose

  7. #7
    Modérateur

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    15 103
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 15 103
    Points : 23 008
    Points
    23 008
    Par défaut
    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+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  8. #8
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    décembre 2013
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Services à domicile

    Informations forums :
    Inscription : décembre 2013
    Messages : 127
    Points : 86
    Points
    86
    Par défaut
    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 : 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
       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 & ",<br><br>" & Body & Suite & _
          "<br>" & _
          "<br>Bonne réception et à bientôt. <br>Cordialement.<br><br> Pour le <I><B>Comptoir Ménager Alésien</I></B><br>" & _
          "<B><font color='green' SIZE=+2>" & EmetteurMessage & "</B></font><font color='blue'> (04) 66 30 18 55</font> " & _
          "<br>50, Bd Gambetta<br>30100 ALES" & Site
     
    '   M.Send
        M.Display
     
    '   MonOutlook.Quit
       Set MonOutlook = Nothing
    Et le mail s'affiche dans outlook

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    M.SendUsingAccount = MonOutlook.GetNamespace("MAPI").Accounts(eMailUtilisateur)
    ou est ce que cette déclaration n'est pas supportée maintenant ?

  9. #9
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    août 2004
    Messages
    7 825
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : août 2004
    Messages : 7 825
    Points : 18 391
    Points
    18 391
    Billets dans le blog
    34
    Par défaut
    Bonjour,

    D'après cette source :

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

    Il aurait cette possibilité :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    oMailItem.SentOnBehalfOfName = eMailUtilisateur
    https://forum.excel-pratique.com/exc...65892#p1026599
    https://learn.microsoft.com/fr-fr/of...onbehalfofname

    Je n'ai pas testé..

    Cordialement.
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  10. #10
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    décembre 2013
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Services à domicile

    Informations forums :
    Inscription : décembre 2013
    Messages : 127
    Points : 86
    Points
    86
    Par défaut
    Bonjour User, merci de t'intéresser à mon cas

    Alors, j'ai d'abord testé le plus simple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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)
    erreur exécution 450
    Nbre arguments incorrect ou affectation de propriété incorrecte
    ça donne une idée à quelqu'un

  11. #11
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    août 2004
    Messages
    7 825
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : août 2004
    Messages : 7 825
    Points : 18 391
    Points
    18 391
    Billets dans le blog
    34
    Par défaut
    Bonjour,

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

    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
       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.
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  12. #12
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    décembre 2013
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Services à domicile

    Informations forums :
    Inscription : décembre 2013
    Messages : 127
    Points : 86
    Points
    86
    Par défaut
    Non, je n'avais pas testé.
    Donc, voici le code
    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
       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
    erreur exécution -2147417851 (80010105)
    la méthode sendusingAccount de l'objet '_MailItem' a échoué

  13. #13
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    août 2004
    Messages
    7 825
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : août 2004
    Messages : 7 825
    Points : 18 391
    Points
    18 391
    Billets dans le blog
    34
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    set M.SendUsingAccount = oAccount
    J'ai oublié le set devant

    https://learn.microsoft.com/fr-fr/of...ndusingaccount
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  14. #14
    Membre régulier
    Homme Profil pro
    Développeur informatique
    Inscrit en
    décembre 2013
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Services à domicile

    Informations forums :
    Inscription : décembre 2013
    Messages : 127
    Points : 86
    Points
    86
    Par défaut
    Citation Envoyé par User Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 20
    Dernier message: 06/10/2011, 01h11
  2. une applet marche sur un post et pas sur l'autre
    Par restricteur dans le forum Servlets/JSP
    Réponses: 7
    Dernier message: 18/05/2007, 17h40
  3. Réponses: 3
    Dernier message: 16/02/2007, 13h35
  4. Lien access outlook message d'erreur
    Par Michel DELAVAL dans le forum Access
    Réponses: 14
    Dernier message: 26/06/2006, 09h16
  5. lien marche sur internet explorer et non sur autre
    Par xman_genius dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 25/04/2006, 19h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo