Samedi 18 Août 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 : 3
Membres en ligne : 0

 EMERGENCY 7 semaines
 beaulieu 18 semaines
 callaghi 22 semaines
 Charlie76 28 semaines
 joscopp 38 semaines
 JièL 39 semaines
 julbast 39 semaines
 pirobert 40 semaines
 zorro71 63 semaines
 Alphator 82 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:1 741
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:4 826
Total ce mois:54 487
Total visites:20 221 913
Moyenne/jour:5 672

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 37504 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
R14050 Créer des raccourcis vers des dossiers , R10060 Sauvegarder le carnet d'adresses personnel (.PAB), R15250 [VBA] ImagesDansMessage, R08010 Débloquer la boite d'envoi, R13020 Créer une tâche rapidement, R15910 [VBA] Executer une macro à heure FIXE ou selon une période., R01040 Laisser une copie de message sur le serveur, R01150 Afficher un compte Hotmail avec Outlook 2000 et suivant, R08050 Le clavier passe en QWERTY lors de la saisie de RDV ou de tâches, R07070 Activer / Paramétrer le filtre anti spam d'Outlook 2003/2007, R10060 Sauvegarder le carnet d'adresses personnel (.PAB), R01110 Créer un modèle de message (pas un papier peint), R00010 Outlook ou Outlook Express ?, R09020 Comment fonctionne le complément automatique de la saisie des adresses (saisie auto ou saisie semi auto), R99160 Le mot de passe

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