Dimanche 16 Décembre 2018  
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

 jcgdisle 3 semaines
 EMERGENCY 24 semaines
 beaulieu 36 semaines
 callaghi 39 semaines
 Charlie76 45 semaines
 joscopp 56 semaines
 JièL 56 semaines
 julbast 56 semaines
 pirobert 57 semaines
 zorro71 81 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:12 062
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:4 555
Total ce mois:77 238
Total visites:20 813 599
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 39137 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
R14030 Ajouter / Supprimer un dossier au favoris, R16060 Importer les contacts de Windows Live Mail dans Outlook, R15930 [VBA] Création de menu dans outlook, R15280 [VBA] Exporter un mail et l'ouvrir dans IE avec ses images, R03100 Pièces jointes reçues en winmail.dat ou ATT00001.dat ou invisibles, R20030 Configurer un compte Hotmail (Windows Live Hotmail) pour Outlook 2002/2003, R08070 Réparer / remettre en état Outlook ou le PST (6 solutions à appliquer dans l'ordre), R04060 Supprimer les pièces jointes d'un message, R14010 Recherche rapide , R20140 Configurer un compte GMAIL pour Outlook 2007, R00010 Outlook ou Outlook Express ?, R01240 Modifier la durée d'affichage de « l'alerte » sur le bureau ou afficher une boîte de dialogue à valider., R07040 Autoriser la réception des pièces jointes « potentiellement sensibles », R09160 Afficher ses contacts dans un ordre différent, R06080 Créer rapidement une règle selon un message

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