Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access mailing en liaison avec word

mailing en liaison avec word

42 réponses
Avatar
ASTA
Bonjour,
j'ai une base client avec environ 5000 clients issus du monde entier, notre
sce compta va devoir envoyer un courrier personnalisé dans chacunes des
langues de mes clients, donc j'ai préparé mes requêtes pour trier mes clients
par pays, on va donc me donner un courrier type qui sera fait dans word, à
partir d'access puis-je récupérer ces documents word et m'en servir pour
faire le mailing avec mes requêtes ......,? ou vais-je devoir créer un état
en retapant le courrier ??????
Par avance merci
--
Asta
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
ASTA
C'est renvoyé à 14h18
cordialement

"Raymond [mvp]" wrote:

C'est reparti, mais rien reçu, peux-tu renvoyer ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
exact, plus rien ne part, plus rien n'arrive par free. attendons.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

Oui comme indiqué dans ton message j'ai retiré le "XYZ.", j'ai envoyé le
mail
à 10h13 rien ne m'est revenu donc pour moi il est passé, par contre j'ai
un
prestataire qui comme toi à free et lorsque je lui envoi des mails ils
les
recois tardivement et inversement .......
Merci











Avatar
ASTA
Je suis actuellement en relation téléphonique avec mon collègue de Paris qui
s'occupe du net pour qu'il regarde si le pb vient de notre messagerie, le
fichier fait 603 ko donc théoriquement chez nous ça passe mais pour le moment
il regarde ........... Bon il semblerait qu'il y ait un pb au niveau de free
il met environ 1 heure à recevoir et peut être autant à diffuser, il
semblerait qu'il y ait saturation et bousculade à la porte d'entrée, si tu as
une autre adresse que free ???? sinon ça peut attendre demain peut être que
cela va se dégager .....y'a pas que sur l'autoroute que ça bouchonne en
période de fête !
Encore merci
merci

"Raymond [mvp]" wrote:

C'est reparti, mais rien reçu, peux-tu renvoyer ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
exact, plus rien ne part, plus rien n'arrive par free. attendons.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

Oui comme indiqué dans ton message j'ai retiré le "XYZ.", j'ai envoyé le
mail
à 10h13 rien ne m'est revenu donc pour moi il est passé, par contre j'ai
un
prestataire qui comme toi à free et lorsque je lui envoi des mails ils
les
recois tardivement et inversement .......
Merci











Avatar
Raymond [mvp]
tu n'as pas dit 14h18 de quel jour ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

C'est renvoyé à 14h18
cordialement



Avatar
Raymond [mvp]
on va attendre, dès que je reçois je te le dis.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

Je suis actuellement en relation téléphonique avec mon collègue de Paris
qui
s'occupe du net pour qu'il regarde si le pb vient de notre messagerie, le
fichier fait 603 ko donc théoriquement chez nous ça passe mais pour le
moment
il regarde ........... Bon il semblerait qu'il y ait un pb au niveau de
free
il met environ 1 heure à recevoir et peut être autant à diffuser, il
semblerait qu'il y ait saturation et bousculade à la porte d'entrée, si tu
as
une autre adresse que free ???? sinon ça peut attendre demain peut être
que
cela va se dégager .....y'a pas que sur l'autoroute que ça bouchonne en
période de fête !
Encore merci
merci



Avatar
Raymond [mvp]
ça commence à faire vraiment long maintenant. renvoie encore une fois.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
on va attendre, dès que je reçois je te le dis.


Avatar
ASTA
Bonjour Raymond,
J'ai une adresse hors professionnel qui est chez free, hier matin je me suis
envoyée le mail avec la pj


ça commence à faire vraiment long maintenant. renvoie encore une fois.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
on va attendre, dès que je reçois je te le dis.







Avatar
ASTA
Désolée mauvaise manip, donc je disais hier matin je me suis envoyé le tout
sur mon adresse free et je l'ai eû en réception ce matin, donc je vais à
partir de free te transmettre le doc avec mon adresse mail profes, il est
8.22 h je vais essayer de te l'envoyer.....
Merci
cordialement


ça commence à faire vraiment long maintenant. renvoie encore une fois.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
on va attendre, dès que je reçois je te le dis.







Avatar
ASTA
Raymond j'ai fais des tests en long en large et en travers et je ne comprends
pas la solution serait que je me créé une adresse facultative que je te la
donne sur ce site pour que tu fasses un mail test si je te reçois j'aurais
ainsi ton adresse et je répondrais car mise à part un pb avec ton adresse je
ne vois rien d'autre ....car sur mon adresse free mon doc est bien arrivé
enfin je ne sais plus que dire ....
que me conseilles tu ?


Désolée mauvaise manip, donc je disais hier matin je me suis envoyé le tout
sur mon adresse free et je l'ai eû en réception ce matin, donc je vais à
partir de free te transmettre le doc avec mon adresse mail profes, il est
8.22 h je vais essayer de te l'envoyer.....
Merci
cordialement


ça commence à faire vraiment long maintenant. renvoie encore une fois.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
on va attendre, dès que je reçois je te le dis.









Avatar
Raymond [mvp]
réponse donnée par mail:

je te retourne le code avec les modifs à faire:

Private Sub Commande0_Click()
On Error Resume Next ' a modifier selon besoin
Dim W_App As New Word.Application
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT client, adresse, [Code Postal], ville, Pays FROM
clientSA1 WHERE [pays]= 'France';"
Set Rs = Db.OpenRecordset(Strsql)
If Rs.BOF Then exit_Sub
With W_App
.Visible = True
Do Until Rs.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("nom").Select
.Selection.InsertAfter Rs.Fields("client")
.ActiveDocument.Bookmarks("adresse").Select
.Selection.InsertAfter Rs.Fields("adresse")
.ActiveDocument.Bookmarks("Codepostal").Select
.Selection.InsertAfter Rs.Fields("[Code Postal]")
.ActiveDocument.Bookmarks("ville").Select
.Selection.InsertAfter Rs.Fields("ville")
.ActiveDocument.Bookmarks("pays").Select
.Selection.InsertAfter Rs.Fields("pays")
.ActiveDocument.PrintOut False
.ActiveDocument.Close wdDoNotSaveChanges
Rs.MoveNext
DoEvents
Loop
End With
exit_Sub:
Rs.Close
W_App.Quit
Set Rs = Nothing
Set Db = Nothing
Set W_App = Nothing
End Sub

raison du non fonctionnement.
- clause select en erreur.
- champ avec espace sans crochets
- signet avec espace

autres modifs sans conséquences.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

Raymond j'ai fais des tests en long en large et en travers et je ne
comprends
pas la solution serait que je me créé une adresse facultative que je te la
donne sur ce site pour que tu fasses un mail test si je te reçois j'aurais
ainsi ton adresse et je répondrais car mise à part un pb avec ton adresse
je
ne vois rien d'autre ....car sur mon adresse free mon doc est bien arrivé
enfin je ne sais plus que dire ....
que me conseilles tu ?


Désolée mauvaise manip, donc je disais hier matin je me suis envoyé le
tout
sur mon adresse free et je l'ai eû en réception ce matin, donc je vais à
partir de free te transmettre le doc avec mon adresse mail profes, il est
8.22 h je vais essayer de te l'envoyer.....
Merci
cordialement


ça commence à faire vraiment long maintenant. renvoie encore une fois.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le
message de
news:
on va attendre, dès que je reçois je te le dis.











Avatar
ASTA
If Rs.BOF Then exit_Sub
sur le Then exit_Sub j'ai une erreur de compiltion "sub ou function" non
définie
Dois je faire une déclaration supplémentaire ?
Merci

réponse donnée par mail:

je te retourne le code avec les modifs à faire:

Private Sub Commande0_Click()
On Error Resume Next ' a modifier selon besoin
Dim W_App As New Word.Application
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT client, adresse, [Code Postal], ville, Pays FROM
clientSA1 WHERE [pays]= 'France';"
Set Rs = Db.OpenRecordset(Strsql)
If Rs.BOF Then exit_Sub
With W_App
.Visible = True
Do Until Rs.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("nom").Select
.Selection.InsertAfter Rs.Fields("client")
.ActiveDocument.Bookmarks("adresse").Select
.Selection.InsertAfter Rs.Fields("adresse")
.ActiveDocument.Bookmarks("Codepostal").Select
.Selection.InsertAfter Rs.Fields("[Code Postal]")
.ActiveDocument.Bookmarks("ville").Select
.Selection.InsertAfter Rs.Fields("ville")
.ActiveDocument.Bookmarks("pays").Select
.Selection.InsertAfter Rs.Fields("pays")
.ActiveDocument.PrintOut False
.ActiveDocument.Close wdDoNotSaveChanges
Rs.MoveNext
DoEvents
Loop
End With
exit_Sub:
Rs.Close
W_App.Quit
Set Rs = Nothing
Set Db = Nothing
Set W_App = Nothing
End Sub

raison du non fonctionnement.
- clause select en erreur.
- champ avec espace sans crochets
- signet avec espace

autres modifs sans conséquences.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"ASTA" a écrit dans le message de news:

Raymond j'ai fais des tests en long en large et en travers et je ne
comprends
pas la solution serait que je me créé une adresse facultative que je te la
donne sur ce site pour que tu fasses un mail test si je te reçois j'aurais
ainsi ton adresse et je répondrais car mise à part un pb avec ton adresse
je
ne vois rien d'autre ....car sur mon adresse free mon doc est bien arrivé
enfin je ne sais plus que dire ....
que me conseilles tu ?


Désolée mauvaise manip, donc je disais hier matin je me suis envoyé le
tout
sur mon adresse free et je l'ai eû en réception ce matin, donc je vais à
partir de free te transmettre le doc avec mon adresse mail profes, il est
8.22 h je vais essayer de te l'envoyer.....
Merci
cordialement


ça commence à faire vraiment long maintenant. renvoie encore une fois.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le
message de
news:
on va attendre, dès que je reçois je te le dis.
















1 2 3 4 5