Discussion :

[yum75]

Bonjour a tous,

Je cherche a faire du publipostage avec une piece jointe.

C'est la première fois que j'en fait. J'utilise word2013 et un fichier mdb pour les emails.
Le mail par bien et arrive bien, mais je souhaiterai envoyer une pièce jointe.

Pouvez vous m'orienter vers une piste svp ?

Est il possible sur une liste de plusieurs mails de différer de x minutes ou secondes entre chaque mail ?

Merci d'avance pour votre aide.

Yum

[yum75]

Bien , j'ai trouvé.

Ce que j'ai fait:

Code à coller 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
'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

Code à coller dans Module1

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 choisir un fichier à joindre ?", 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

Ceci fonctionne tres bien avec office 2013

Reste a différer x secondes ou minutes entre chaque mail pour éviter d’être considérer comme spam.

Si vous avez une idée ou une piste svp,

Merci d'avance

Yum