aide aide Excel outlook horreur !!!

Publipostage Excel Word Outlook

bonsoir Seb

tu pourrais peut etre utiliser les messages electroniques en publipostage


Cela suppose d'avoir préalablement créé une base de données Excel , dont un des champs contient les adresses mail




Ensuite tu fermes le classeur Excel , puis tu ouvres un nouveau document Word .

Dans Word :
Menu Outils
Lettres et Publipostage
Assistant de Fusion et Publipostage

Le volet Office apparaît à droite de l'écran. Tu suis les différentes étapes proposées par l'assistant


A l'étape 1 de l'assistant de publipostage , sélectionne l'option 'Message électronique'


Ensuite passe à l'étape 3
Sélectionne 'Utilisez une liste existante'



Clique sur le bouton 'Parcourir' pour lier la base de données Excel au document principal Word


Passe à l'étape 4 pour mettre en forme ton document de publipostage
Insére les champs de fusion , saisis ton texte dans le document …etc…


Passe à l'étape 5 pour visualiser l'aperçu de publipostage
A cette étape tu peux effectuer un tri ou un filtre sur les destinataires



Tu peux par exemple filtrer les enregistrements dont le champ 'Relance' contient 'Oui'




Passe à l'étape 6 : Clique sur le bouton 'Message électronique'



Dans la zone 'A' , sélectionne le champ contenant les adresses mail
Compléte la zone 'Ligne Objet'
Sélectionne le format des messages (le document de publipostage peut etre dans le corps du message ou placé en pièce jointe)
Clique sur OK pour lancer le publipostage.


tu trouveras d'autres infos générales sur le publipostage dans ce lien

https://www.excel-downloads.com/threads/ref-wiki-page-10-de-michelxld.92378/


bonne soirée
MichelXld

Message édité par: michelxld, à: 18/02/2006 18:40

Re😛ublipostage Excel Word Outlook

BONSOIR MICHEL, LE FORUM

bravo pour cette demonstration et je profite de ce fil pour te poser une question annexe

tu dis a la fin que l'on peut joindre un fichier et moi je galere depuis plusieurs jour car quand je joint un fichier, au moment du publipostage, le ficchier joint saute. personne ne m'a donné d'idée. en aurais tu une?

merci

rémy

Re😛ublipostage Excel Word Outlook

bonsoir Rems

merci pour ton message

Je voulais indiquer que si tu sélectionnes l'option 'pièce jointe' dans la boite de dialogue 'Fusionner avec un message électronique' (la derniere image dans mon précédent message), la lettre de publipostage que tu as créé dans les étapes 1 à 5 est placée en pièce jointe ( testé avec OfficeXP ).


comment procèdes tu pour joindre ton fichier ?


bon week end
MichelXld

Re😛ublipostage Excel Word Outlook

bonsoir michel, le forum

je vois ce que tu veux dire mais ce n'est pas tout a fait ce que je souhaite

pour faire simple, le corps du message electronique est somme toute banal genre coucou je vous joint un fichier excel.

et là je veux mettre un fichier excel qui contient une liste par exemple.

j'espere que je suis clair

merci encore

Re😛ublipostage Excel Word Outlook

bonjour Rems

Je ne vois pas de solution sans passer par une macro


Sub publipostageMailing_WordVBA_avecPieceJointe()
'MichelXld le 03.03.2006
'
'Procédure à placer dans le document Principal de publipostage :
'Utilisez la procédure apres avoir créé et mis en forme votre document principal.
'C'est la macro qui va boucler sur tous les enregistrements et envoyer les mails
'en insérant en plus une pièce jointe .
'Cet exemple ne prend pas en compte les filtres eventuels dans le publipostage .
'
'Necessite d'activer la reference Microsoft Outlook xx.x Object Library
'
Dim outApp As Outlook.Application
Dim oItem As Outlook.MailItem
Dim leSujet As String, leDestinataire As String
Dim i As Integer

Set outApp = CreateObject('Outlook.Application')
leSujet = 'Essai de publipostage VBA avec pieces jointes'

'Afficher le 1er enregistrement du publipostage
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord

'boucle sur tous les enregistrements de la base de données
For i = 1 To ActiveDocument.MailMerge.DataSource.RecordCount
'récupération des adresses mail qui sont dans le champ 'champMail'
leDestinataire = ThisDocument.MailMerge.DataSource.DataFields('champMail').Value

Set oItem = outApp.CreateItem(olMailItem)

With oItem
.Subject = leSujet
.Body = ThisDocument.Content '
.To = leDestinataire
'ajout d'un fichier attaché
.Attachments.Add 'C:\\\\\\\\maPieceJointe.txt'
.Send 'envoi du mail
End With

'pour passer à l'enregistrement suivant
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
Set oItem = Nothing
Next i

Set outApp = Nothing
End Sub



bon après midi
MichelXld

Re😛ublipostage Excel Word Outlook

Message édité par: michelxld, à: 03/03/2006 14:40

Re😛ublipostage Excel Word Outlook

bonsoir a tous

merci a toi michel pour ce programme.

je vais essayer ca ce week-end et je ne manquerai pas de te tenir au courant

bon week-end

rems