Lundi 18 Février 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 : 6
Membres en ligne : 0

 jcgdisle 12 semaines
 EMERGENCY 33 semaines
 beaulieu 45 semaines
 callaghi 48 semaines
 Charlie76 54 semaines
 joscopp 65 semaines
 JièL 65 semaines
 julbast 65 semaines
 pirobert 66 semaines
 zorro71 90 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:2 072
En ligne :6
Max. en ligne:312
Max. / jour:66 529
Total hier:10 215
Total ce mois:98 855
Total visites:21 190 867
Moyenne/jour:5 652

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 39818 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
R99220 Des fois on se dit qu'il mérite..., R99030 Faut deviner ?, R03060 Créer un papier à lettres a partir d'un message reçu, R11040 Restaurer ses règles de gestion des messages, R15050 [VBA] Modifier l'affichage sur tous les dossiers et sous-dossiers, R00130 Fonctionnalités abandonnées et/ou modifiées dans Outlook 2007, R15300 [VBA] Enregistrer dans un dossier après envoi, R01180 Remplacer la page d’accueil « Outlook Aujourd’hui » (toutes versions), R15200 [VBA] Enregistrer en .msg, R99095 Retrait d'argent ?, R01070 Changer définitivement l'adresse de retour d'un compte, R09050 Supprimer TOUS les noms suggérés lors de la saisie d'adresses (saisie auto ou saisie semi auto), R17020 Lecture des propriétés d'un compte exchange, R14040 Personnaliser la barre d'outils d'Outlook, R08190 Outlook se bloque au démarrage

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