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

Access Discussion :

Copier coller depuis Access 365 vers Outlook 365 [AC-365]


Sujet :

Access

  1. #1
    Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    janvier 2020
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : janvier 2020
    Messages : 3
    Points : 3
    Points
    3
    Par défaut Copier coller depuis Access 365 vers Outlook 365
    D'abord, je souhaite à tous un 20/20 pour cette année... ("jeu de mot" de de copains profs ).

    Ensuite, mon petit souci : je gère un fichier sous Access, et on me demande de réaliser des mailings via Outlook 365 à partir de sélections réalisées sur Access.
    Pas de souci pour les requêtes et les sélections d'adresses email, et la création d'un état de contrôle comportant la liste des emails des destinataires.

    Problème pour la suite : ma macro comprend bien la commande "SelectionnerTousLesEnregistrements" (elle le fait), mais :
    - je ne trouve pas de commande pour "copier",
    - si je copie "à la main", lorsque je "colle" dans le champ "cci" du mail Outlook, le presse-papier me colle aussi le nom du champ, ce que Outlook apprécie moyennement.

    Voilà. Ce n'est pas très grave ; au pire, mes utilisateurs sont capables de comprendre qu'il faut copier/coller à la main, puis, retirer le nom du champ dans la zone "cci" d'Outlook, mais ce n'est pas très propre, non ?

    J'ai évidemment cherché partout avant de poser ma question, mais je ne maîtrise pas VBA, et à peine les macros Access (et encore).

    Merci pour votre aide.
    Arsène.

  2. #2
    Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    janvier 2020
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : janvier 2020
    Messages : 3
    Points : 3
    Points
    3
    Par défaut Petit à petit, l'oiseau fait son nid
    Faute de mieux (du genre "solution toute prête gentiment offerte par un amical contributeur"), je m'y suis collé (c'est le cas de le dire).
    Donc, quelques ligne de code pour réussir la première étape, c'est à dire une variable string contenant les emails sélectionnés par la requête ad hoc séparés par des point virgule (ci-dessous, et merci à celui que j'ai plagié).
    Mais : je ne sais pas récupérer ma variable inListe pour coller son contenu dans le champ ccc d'Outlook.
    Je continue à chercher, mais le temps commence à presser (et ma femme à s'agacer).

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Public Sub TransposePourOutlook()
    Dim oDB As DAO.Database
    Dim inListe As String
    Dim Email1 As DAO.Recordset
    Set oDB = CurrentDb
    Set Email1 = oDB.OpenRecordset("SELECT [Adresse de messagerie] FROM Sélection")
    inListe = ""
    While Not Email1.EOF
        inListe = inListe & Email1.Fields("Adresse de messagerie") & "; "
        Email1.MoveNext
    Wend
    inListe = Left(inListe, Len(inListe) - 2)
    MsgBox inListe
    End Sub

  3. #3
    Membre émérite
    Homme Profil pro
    Webplanneur
    Inscrit en
    octobre 2007
    Messages
    2 015
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : octobre 2007
    Messages : 2 015
    Points : 2 979
    Points
    2 979
    Par défaut
    Salut
    Si ce n'est que pour faire copier/coller
    Dans un module, à copier
    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
    Public Function ListAdsEmail() As String
    Dim dbs As Database
    Dim rst As Recordset
    Dim strListAdsEmail As String
     
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("SELECT emailto_emp FROM tbl_emp") 'modifier nom du champ et de la tbl
    If rst.RecordCount > 0 Then
        rst.MoveFirst
        Do Until rst.EOF
            If Not IsNull(rst!emailto_emp) Then
                strListAdsEmail = strListAdsEmail & rst!emailto_emp & "; "
                rst.MoveNext
            Else
                rst.MoveNext
            End If
        Loop
    End If
    ListAdsEmail = strListAdsEmail
    End Function
    Créer une req, à copier
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    SELECT ListAdsEmail() AS MaListAds;
    Exécuter la req

  4. #4
    Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    janvier 2020
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : janvier 2020
    Messages : 3
    Points : 3
    Points
    3
    Par défaut Merci Hypérion13 : ça fonctionne.
    Merci Hypérion13 : ça fonctionne.

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

Discussions similaires

  1. [AC-2003] Copier-coller depuis access dans word
    Par PSEUDOMONASSE dans le forum VBA Access
    Réponses: 2
    Dernier message: 05/07/2019, 17h42
  2. [WD-2010] Copier/coller textbox access vers word
    Par AidezMoiSvp dans le forum VBA Word
    Réponses: 1
    Dernier message: 25/08/2013, 01h32
  3. Copier/coller depuis un StyledText vers Word
    Par p1xl_01 dans le forum SWT/JFace
    Réponses: 0
    Dernier message: 08/01/2013, 19h06
  4. Réponses: 1
    Dernier message: 15/06/2009, 19h46
  5. Réponses: 4
    Dernier message: 21/04/2006, 18h59

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