Mardi 28 Mars 2017  
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 : 6
Membres en ligne : 0

 callaghi 06:48:10
 Alphator 9 semaines
 ande 15 semaines
 Oliv 17 semaines
 cubitus 20 semaines
 JièL 25 semaines
 angel 30 semaines
 Quartzkyte 39 semaines
 grouilau 39 semaines
 miguy973 48 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:4 200
En ligne :6
Max. en ligne:312
Max. / jour:66 529
Total hier:5 838
Total ce mois:145 011
Total visites:17 264 012
Moyenne/jour:5 647

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 30516 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
R01200 Changer le son de réception d'un message, R99110 Ebook pas cher, R15250 [VBA] ImagesDansMessage, R10080 Sauvegardez ses « Catégories » personnalisées et ses « Emplacements » ou lieux de rendez-vous, R15330 [VBA] Ajouter un destinataire CC ou CCI a chaque envoi de mail, R03050 Définir le papier à lettres par défaut, R15200 [VBA] Enregistrer en .msg, R16010 Importer les messages d'Outlook Express, R15330 [VBA] Ajouter un destinataire CC ou CCI a chaque envoi de mail, R01010 Définir Outlook comme messagerie par défaut, R15305 [VBA] Enregistrer après envoi sur le disque, R15440 [VBA] vider les courriers indésirables en quittant, R99030 Faut deviner ?, R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception, R08130 Les messages d'un compte POP sont téléchargés N fois

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 [/\]