Publipostage fusion word outlook

Question

Bonjour, J'ai fait une publipostage d'Access à Word donc j'ai préparé mon document word en collectant des informations à partir d'access dont un champ mail pour que je puisse envoyer un mail personnalisé à chaque destinataire contenant des pièces jointes. Pour ce faire j'ai untiliser ce code: dans outlooksession: 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: emp\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: emp\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 End If End Sub ****************************************************** Pouis j'ai inseré 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 ******************************************************************* Le seul problème que j'ai c'est que j'arrive pas à mettre des personnes en copies (.CC) Je vous prie de m'aider tout en sachat que j'utilise micosoft office 2003. Merci et bonne journée

cs_rt15 · Answer

Bonjour,

Le thème "Demande d'un nouveau thème de discussion sur CodeS-SourceS" sert à demander un nouveau thème, pas une nouvelle discussion.

Pour une question VBA, merci de poster sur vbfrance dans le thème "Visual Basic 6/Langages dérivés/VBA".

[ Déplacé sur vbfrance ]

Publipostage fusion word outlook

1 réponse

Votre réponse

Discussions similaires