Mercredi 22 Mai 2019  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 4
Membres en ligne : 0

 pirobert 1 semaine
 jcgdisle 26 semaines
 EMERGENCY 46 semaines
 beaulieu 58 semaines
 callaghi 62 semaines
 Charlie76 67 semaines
 joscopp 78 semaines
 JièL 78 semaines
 julbast 79 semaines
 zorro71 103 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:2 249
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:7 205
Total ce mois:118 069
Total visites:21 785 005
Moyenne/jour:5 670

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15320 [VBA] PUBLIPOSTAGE avec Pièces jointes

Permet de joindre 1 ou plusieurs Pièces jointes à un PUBLIPOSTAGE.


Ici le sujet doit CONTENIR "publipostage" mais on peut mettre autre chose.

 

Pour ajouter une pièce jointe différente pour chaque destinataire :

  • Créer dans un premier temps les documents word ou autres, destinés à être en pieces jointes
    • les enregistrer dans un répertoire .
      • ici c:\temp\monmailing\
    • avec un nom qui permettra d'être retrouvé facilement à partir des données se trouvant dans le mail
    • l'adresse email par exemple
    • Décommenter les lignes #perso#
  • On peut aussi insérer 1 ou plusieurs balises dans le document du publipostage indiquant le chemin des PJ.
    • exemple [pj:c:\temp\monmailing\tondestinataire.doc]

que l'on recherchera dans le HTMLBODY ou BODY du mail.

Sinon la macro OUTLOOK ci-dessous utilise une variable tableau GLOBALE qu'il faut initialiser en lancant setPublipostage

Mettre dans ThisOutlookSession :



Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _
Boolean)
'by oliv' 05/02/2007 Pour publipostage avec PJ OUTLOOK 2003

If Item.Class = olMail Then
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
If UCase(objCurrentMessage.Subject) Like "*PUBLIPOSTAGE*" Then
On Error Resume Next
'Pour ajouter la même PJ à tous

Dim i As Long

i = 0
If publipostagePJ <> "" Then
While publipostagePJ(i) <> "fin"
objCurrentMessage.Attachments.add Source:= _
publipostagePJ(i)
i = i + 1
Wend
End If
'Pour ajouter une PJ à tous décommenter
'objCurrentMessage.Attachments.Add Source:= _
"c:\temp\DOC2.PDF"
'#perso#Pour ajouter un document personnalisé d'après le destinataire _
du mail décommenter ci-dessous
' ici le nom du document est "
destinataire@domaine.fr.doc"
'docperso = "c:\temp\monmailing\" & objCurrentMessage.To & ". _
doc"
'objCurrentMessage.Attachments.Add Source:=docperso

'On supprime le terme PUBLIPOSTAGE du sujet

objCurrentMessage.Subject = Replace(objCurrentMessage.Subject, _
"PUBLIPOSTAGE ", "")
'On sauvegarde le mail
objCurrentMessage.Save
End If
Set objCurrentMessage = Nothing
End If
End Sub

 



Mettre dans un module :



Public publipostagePJ As Variant

Sub setPublipostage()
On Error Resume Next
If publipostagePJ(0) = "" Then publipostagePJ = Array("fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin")
While publipostagePJ(i) <> "fin"
contenu = contenu & vbCr & publipostagePJ(i)
i = i + 1
Wend
If contenu = "" Then contenu = "vide"
modifier = MsgBox(contenu & vbCr & "Voulez vous modifier les fichiers ?", vbYesNo, "Fichiers paramétrés")
If modifier = vbYes Then
For i = 0 To 9

If i > 0 Then encore = MsgBox("un autre ?", vbYesNo)
quest:
If encore <> vbNo Then
PJ = InputBox("Emplacement du fichier joint au PUBLIPOSTAGE?", _

"Paramétrage du PUBLIPOSTAGE pour la session", publipostagePJ(i))

If "" = Dir(PJ, vbNormal) Then GoTo quest

publipostagePJ(i) = PJ
Else: Exit For
End If
Next i

End If
MsgBox "Votre publipostage doit comporter le terme :" & vbCr & _

"PUBLIPOSTAGE" & vbCr & "dans le sujet." & vbCr & _

"Celui-ci sera retiré lors de l'envoi"

End Sub

 


Vous pouvez retrouver le tutos complet pour mettre en place cette macro sur la FAQ Word


Publié par Oliv le vendredi 16 février 2007 11:06 1 Commentaire 40612 Lecture(s) Imprimer
Commentaires
#1 | bachilbouzouk le mardi 15 décembre 2009 11:23
juste merci !!!! absolument parfait !
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R06032 Utiliser l'archivage automatique avec les dates de réception Q06000 Les fichiers d'Outlook
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook Q15000 Macros - VBA
R12120 Synchroniser Google Calendar avec Outlook 2010 Q12000 Calendrier
R10095 Utiliser PFBACKUP avec Outlook 2010 Q10000 Sauvegarde
Nuage de tags
R03050 Définir le papier à lettres par défaut, R04090 Pièces jointes invisibles ou reçues en winmail.dat ou ATT00001.dat, R03010 Créer un nouveau message à partir d'un autre, R99210 Y'a pas que les ordis qui rament, R16010 Importer les messages d'Outlook Express, R08110 Ouvrir un autre PST, R99200 Pourquoi la copie est merdique ?, R15300 [VBA] Enregistrer dans un dossier après envoi, R11080 Restaurer ses « Catégories » personnalisées et ses « Emplacements » ou lieux de rendez-vous, R01240 Modifier la durée d'affichage de « l'alerte » sur le bureau ou afficher une boîte de dialogue à valider., R15000 [VBA] TUTORIEL OULOOK VBA, R09120 Partager le carnet d'adresse d'Outlook 2002/2003 avec Outlook Express 5/6, R01010 Définir Outlook comme messagerie par défaut, R99170 Nouveau logiciel, R20010 Configurer un compte POP pour Outlook 2002/2003

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]