Discussion :

[raphael_g]

Bonjour

dans ma table TableClient, j'ai les champs Nom, Prenom et Mail.
Je voudrais exporter tous les mails pour les mettre comme expéditeurs dans outlook.
Je souhaiterais que la liste soit de ce type:

Mail1@mail.be ; mail2@mail.com ;
pour pouvoir être copiée soit dans le presse papier ou directement pour l'ouverture d'un mail.

j'ai créer une requête, un état mais j'exporte mais je ne sais pas donner le format souhaité.


Pouvez vous m'aider ou me proposer peut etre une solution moins compliquée ou plus fiable?

Merci

Raphaël

[fgiambelluco]

Bonjour
Voila un code que j'ai utilisé pour générer un fichier texte ou chaque ligne contient un certains nombre d'adresses par ligne (ici 10) séparées par des ;.

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
24
25
26
27
28
29
30
31
32
33
34
35
Sub EmailVersTexte()
    Dim EnrClient As Recordset, NumFichier As Integer, MaChaine As String, NombreAdresse As Integer, Cpt As Integer
    Set EnrClient = CurrentDb.OpenRecordset("select * from clients where [courriel]<>""""")
    If EnrClient.RecordCount = 0 Then
        EnrClient.Close
        Exit Sub
    End If
' -----------
' définir le nombre d'adresses à générer par ligne
' -----------
    NombreAdresse = 10
 
    MaChaine = ""
    Cpt = 0
    NumFichier = FreeFile ' dernier n° de fichier libre
 
    Open "c:\AdresseMail.rtf" For Output As #NumFichier ' ouvre un fichier texte. s'il n'existe pas le créé
 
    Do Until EnrClient.EOF
        MaChaine = MaChaine & EnrClient.Fields("courriel") & ";" ' rajout l'email et un ; à la chaine
        Cpt = Cpt + 1
        If Cpt = NombreAdresse Then 'nombre d'adresse atteint
            MaChaine = Mid(MaChaine, 1, Len(MaChaine) - 1) ' enlève le dernier ;
            Print #NumFichier, MaChaine ' imprime une ligne dans le fichier texte
            Cpt = 0
            MaChaine = ""
        End If
         EnrClient.MoveNext
    Loop
    MaChaine = Mid(MaChaine, 1, Len(MaChaine) - 1) ' enlève le dernier ;
    Print #NumFichier, MaChaine ' imprime la dernière ligne dans le fichier texte
 
    EnrClient.Close ' ferme le fichier texte
    Close #NumFichier
End Sub

A adapter.
Il existe bien évidemment d'autres solutions en VBA qui permettraient de générer automatiquement les envois d'email avec un certains nombres d'adresses.