Comment insérer une pièce jointe dans un publipostage e-mail ?

Oliv, tu gagnes une parcelle de paradis.

Ici le boulet, le retour:
Dans MVB, apparaissent les éléments suivants:

dans "ThisOutlooksession":
<debut>
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub
<fin>

dans "module1"
<debut>
Sub PubliCV()
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'by oliv' 01/02/2006
Dim objCurrentMessage As MailItem


Set objCurrentMessage = Item
'MsgBox objCurrentMessage.Subject
If UCase(objCurrentMessage.Subject) = "Dossier de candidature" Then
objCurrentMessage.Attachments.Add Source:="C:temp2007_FFPC_Resume.pdf"
End If
objCurrentMessage = ""
End Sub
<fin>

Si ce n'est pas un boulet, c'est une caisse ;-)
--
Phil

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Oliv,

Merci pour tous ces conseils.
Le boulet que je suis n'y arrive toujours pas.
J'ai inséré "MSGBOX objCurrentMessage.Subject", et une fenêtre
apparaît mainetant sous Outlook me disant "Dossier de candidature",
où il faut que je clique sur "OK".
Je reçois bien le message, mais maintenant sans sujet, et toujours
sans pièce attachée.
J'ai donc retiré "MSGBOX objCurrentMessage.Subject", et mon message
est bien envoyé mais avec le bon sujet et toujours sans la pièce
attachée.
Sous MVB, en mode création (car hors ce mode, le débogage n'est pas
possible), je lance le "pas à pas détaillé": rien ne se produit. Je
lance "Executer jusqu'au curseur", et le message reçu est "cette
ligne ne contient pas d'instruction executable".
Un boulet je te dis.
Les macros sont bien activées.
Là ou je pense tu vas sursauter: comment activer la macro, car sous
Outlook quand je vais regarder "OutilsMacroMacro...", il n'y a
aucune macro présente.
Je te l'avais dit, un gros boulet.

Ok le boulet c'est l'adresse de ta PJ qui est pas bonne
pour faire simple tu la met à la racine c:

et met un ' devant msgbox

Oliv'
Tu vas y arriver t'es plus très loin

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Oliv,

quand tu fais un débogage dans la fenetre VBE tu as quoi ?
ajoute sous Set objCurrentMessage = Item
MSGBOX objCurrentMessage.Subject

quand tu envois un mail mais hors publipostage as tu bien le message
qui s'affiche ?

as tu activé les macros ?

Oliv'

Merci pour le coup de main, mais cela ne fonctionne pas.
Peut-être n'ai-je pas tout fait (quel boulet je suis):
J'ai fait alt-F11 sous Outlook
Coller
<Debut>

<Fin>
Je suis alors dans la partie "Application"

J'ai laissé ouvert Visual Basic, j'ai ouvert Word, lancé mon
publipostage, et la pièce n'est toujours pas attachée.
Ou ai-je fait une erreur ?
Help the boulet ;-)
Merci

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Bonjour à tous,

J'ai le même soucis que "mc1rhq3ews3lf9x@jetable.org", mais je
suis en français:
J'ai 795 courriels/emails à envoyer, avec la même pièce jointe en
PDF. Soucis de pièce attachée (pareil), mais outils en français.
Pas du tout pro des macros et autres outils (je suis vraiment
basique). Mais, bon 795, cela fait un paquet.

La fusion/publipostage se fait correctement sous Word 2003, le
message part bien sous Outlook 2003, mais sans la pièce attachée
(je fais même le test en prenant un modèle html sous Word).
Les opés que Tisane & Oliv ont mentionné existent-elles en
français ?

Merci pour le coup de main
;-)

Le code est en anglais mais c'est pas compliqué

Dans OUTLOOK tu fais alt+f11
dans ThisOutlookSession tu colles cela
'##########################################################
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean) 'by oliv' 01/02/2006
Dim objCurrentMessage As MailItem


Set objCurrentMessage = Item
If UCase(objCurrentMessage.Subject) = "PUBLIPOSTAGE" Then
objCurrentMessage.Attachments.Add Source:="c:tempcollines.jpg"
End If
objCurrentMessage = ""
End Sub
'##########################################################



tu remplaces PUBLIPOSTAGE par le sujet de ton mail et
c:tempcollines.jpg" par l'emplacement de ton document.

et hop tu envoi ton publipostage.




--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives :
http://groups.google.com/group/microsoft.public.fr.outlook Dernière
chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

*Tisane <b.tisane@laposte.net> que je salue a écrit *:

Bonjour,

[Outlook 2003, Anglais] [Word 2003, Anglais]
Je voudrais créer un e-mail pour environ 300 personnes.
[...]

Je vais donc utiliser la fonction de publipostage de Word, et
créer ainsi mon petit texte brut, mais, et c'est là ou ça
coince, je n'arrive pas à joindre un document à ce mail ainsi
personnalisé ! Insertion/objet ne marche pas, et une fois que
les mails sont dans la boîte d'envoi, je ne voudrais pas me
taper 300 insertions de documents...
Ma question est donc : Comment attacher une pièce jointe dans
un publipostage e-mail, ou, au pire, existe-t-il une solution
alternative

Puisque tes logiciels sont en anglais, la fiche suivante devrait
te convenir ;-)
"Mail Merge to E-mail with Attachments"
http://word.mvps.org/faqs/mailmerge/MergeWithAttachments.htm

UNE AUTRE SOLUTION ICI
http://groups.google.com/group/microsoft.public.fr.word/tree/browse_frm/thread/2a60ae2e5aeabdba/93a4554fb4f4c248?rnum=1&q=publipostage&_done=%2Fgroup%2Fmicrosoft.public.fr.word%2Fbrowse_frm%2Fthread%2F2a60ae2e5aeabdba%2Fc3f3df045200232b%3Flnk%3Dgst%26q%3Dpublipostage%26rnum%3D1%26#doc_1d3ec57167902e31


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives :
http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Oliv,
Fonctionne toujours pas :-(
Désolé

--
Phil (gros boulet)

Oliv, tu gagnes une parcelle de paradis.

Ici le boulet, le retour:
Dans MVB, apparaissent les éléments suivants:

dans "ThisOutlooksession":
<debut>
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub
<fin>

dans "module1"
<debut>
Sub PubliCV()
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'by oliv' 01/02/2006
Dim objCurrentMessage As MailItem


Set objCurrentMessage = Item
'MsgBox objCurrentMessage.Subject
If UCase(objCurrentMessage.Subject) = "Dossier de candidature" Then
objCurrentMessage.Attachments.Add Source:="C:temp2007_FFPC_Resume.pdf"
End If
objCurrentMessage = ""
End Sub
<fin>

Si ce n'est pas un boulet, c'est une caisse ;-)
--
Phil

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Oliv,

Merci pour tous ces conseils.
Le boulet que je suis n'y arrive toujours pas.
J'ai inséré "MSGBOX objCurrentMessage.Subject", et une fenêtre
apparaît mainetant sous Outlook me disant "Dossier de candidature",
où il faut que je clique sur "OK".
Je reçois bien le message, mais maintenant sans sujet, et toujours
sans pièce attachée.
J'ai donc retiré "MSGBOX objCurrentMessage.Subject", et mon message
est bien envoyé mais avec le bon sujet et toujours sans la pièce
attachée.
Sous MVB, en mode création (car hors ce mode, le débogage n'est pas
possible), je lance le "pas à pas détaillé": rien ne se produit. Je
lance "Executer jusqu'au curseur", et le message reçu est "cette
ligne ne contient pas d'instruction executable".
Un boulet je te dis.
Les macros sont bien activées.
Là ou je pense tu vas sursauter: comment activer la macro, car sous
Outlook quand je vais regarder "OutilsMacroMacro...", il n'y a
aucune macro présente.
Je te l'avais dit, un gros boulet.

Ok le boulet c'est l'adresse de ta PJ qui est pas bonne
pour faire simple tu la met à la racine c:

et met un ' devant msgbox

Oliv'
Tu vas y arriver t'es plus très loin

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Oliv,

quand tu fais un débogage dans la fenetre VBE tu as quoi ?
ajoute sous Set objCurrentMessage = Item
MSGBOX objCurrentMessage.Subject

quand tu envois un mail mais hors publipostage as tu bien le message
qui s'affiche ?

as tu activé les macros ?

Oliv'

Merci pour le coup de main, mais cela ne fonctionne pas.
Peut-être n'ai-je pas tout fait (quel boulet je suis):
J'ai fait alt-F11 sous Outlook
Coller
<Debut>

<Fin>
Je suis alors dans la partie "Application"

J'ai laissé ouvert Visual Basic, j'ai ouvert Word, lancé mon
publipostage, et la pièce n'est toujours pas attachée.
Ou ai-je fait une erreur ?
Help the boulet ;-)
Merci

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Bonjour à tous,

J'ai le même soucis que "mc1rhq3ews3lf9x@jetable.org", mais je
suis en français:
J'ai 795 courriels/emails à envoyer, avec la même pièce jointe en
PDF. Soucis de pièce attachée (pareil), mais outils en français.
Pas du tout pro des macros et autres outils (je suis vraiment
basique). Mais, bon 795, cela fait un paquet.

La fusion/publipostage se fait correctement sous Word 2003, le
message part bien sous Outlook 2003, mais sans la pièce attachée
(je fais même le test en prenant un modèle html sous Word).
Les opés que Tisane & Oliv ont mentionné existent-elles en
français ?

Merci pour le coup de main
;-)

Le code est en anglais mais c'est pas compliqué

Dans OUTLOOK tu fais alt+f11
dans ThisOutlookSession tu colles cela
'##########################################################
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean) 'by oliv' 01/02/2006
Dim objCurrentMessage As MailItem


Set objCurrentMessage = Item
If UCase(objCurrentMessage.Subject) = "PUBLIPOSTAGE" Then
objCurrentMessage.Attachments.Add Source:="c:tempcollines.jpg"
End If
objCurrentMessage = ""
End Sub
'##########################################################



tu remplaces PUBLIPOSTAGE par le sujet de ton mail et
c:tempcollines.jpg" par l'emplacement de ton document.

et hop tu envoi ton publipostage.




--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives :
http://groups.google.com/group/microsoft.public.fr.outlook Dernière
chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

*Tisane <b.tisane@laposte.net> que je salue a écrit *:

Bonjour,

[Outlook 2003, Anglais] [Word 2003, Anglais]
Je voudrais créer un e-mail pour environ 300 personnes.
[...]

Je vais donc utiliser la fonction de publipostage de Word, et
créer ainsi mon petit texte brut, mais, et c'est là ou ça
coince, je n'arrive pas à joindre un document à ce mail ainsi
personnalisé ! Insertion/objet ne marche pas, et une fois que
les mails sont dans la boîte d'envoi, je ne voudrais pas me
taper 300 insertions de documents...
Ma question est donc : Comment attacher une pièce jointe dans
un publipostage e-mail, ou, au pire, existe-t-il une solution
alternative

Puisque tes logiciels sont en anglais, la fiche suivante devrait
te convenir ;-)
"Mail Merge to E-mail with Attachments"
http://word.mvps.org/faqs/mailmerge/MergeWithAttachments.htm

UNE AUTRE SOLUTION ICI
http://groups.google.com/group/microsoft.public.fr.word/tree/browse_frm/thread/2a60ae2e5aeabdba/93a4554fb4f4c248?rnum=1&q=publipostage&_done=%2Fgroup%2Fmicrosoft.public.fr.word%2Fbrowse_frm%2Fthread%2F2a60ae2e5aeabdba%2Fc3f3df045200232b%3Flnk%3Dgst%26q%3Dpublipostage%26rnum%3D1%26#doc_1d3ec57167902e31


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives :
http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bonjour

dans "ThisOutlooksession":
<debut>
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub
<fin>

dans "module1"
<debut>
Sub PubliCV()
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Y'a comme qui dirait un soucis la... Oliv a bien dit "Dans OUTLOOK tu
fais alt+f11 dans ThisOutlookSession tu colles cela" c'est donc dans
ThisOutlooksession que le code doit se trouver, pas dans Module1

--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La FAQ Outlook est là : http://faq.outlook.free.fr/
Les stats CDO : http://faq.outlook.free.fr/cdo/

Merci JièL pour ce recadrage pertinent.
Je récapitule:

dans "Publi(VBAProject.OTM)Microsoft Outlook
Objets[ThisOutlooksession(code)]" - (general) (declaration):
<debut>
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'by oliv' 01/02/2006
Dim objCurrentMessage As MailItem


Set objCurrentMessage = Item
'MsgBox objCurrentMessage.Subject
If UCase(objCurrentMessage.Subject) = "Dossier de candidature" Then
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
End If
objCurrentMessage = ""
End Sub
<fin>

Le publipostage (sans la pièce jointe) fonctionne avec un document Word ou
HTM.
Je fais, pour contrôler un test avec une de mes adresses en selectionnant
l'enregistrement.
Je laisse Outlook (niveau sécurité macro faible), Word, et MVB ouverts.
Et la pièce jointe ne s'attache pas.
Un gros boulet je vous dis
--
Phil

Bonjour

dans "ThisOutlooksession":
<debut>
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub
<fin>

dans "module1"
<debut>
Sub PubliCV()
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Y'a comme qui dirait un soucis la... Oliv a bien dit "Dans OUTLOOK tu
fais alt+f11 dans ThisOutlookSession tu colles cela" c'est donc dans
ThisOutlooksession que le code doit se trouver, pas dans Module1

--
JièL / Jean-Louis GOUBERT
Là bas mieux qu'en face ;-) http://forums.offices.free.fr/
La FAQ Outlook est là : http://faq.outlook.free.fr/
Les stats CDO : http://faq.outlook.free.fr/cdo/

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Merci JièL pour ce recadrage pertinent.
Je récapitule:

On va simplifier au max
'################################################"
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
Msgbox "en route"
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
objCurrentMessage.save
objCurrentMessage = ""
End Sub
'################################################"


Attention la pj sera envoyé avec tous les mails.

ok ?
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

alors là monseigneur Oliv', chapeau bas, feliciations et un merci infini.

<debut>
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
objCurrentMessage.Save
objCurrentMessage = "Dossier de candidature"
End Sub
<fin>

et cela fonctionne tip top

fais-moi passer ton adresse ou un lieu ou je puisse livrer une caisse.
merci encore
--
Phil

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Merci JièL pour ce recadrage pertinent.
Je récapitule:

On va simplifier au max
'################################################"
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
Msgbox "en route"
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
objCurrentMessage.save
objCurrentMessage = ""
End Sub
'################################################"


Attention la pj sera envoyé avec tous les mails.

ok ?
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bonjour Oliv',

Et merci...

ça peut finir dans la faq ?... ;)

Circé

Oliv' a formulé la demande :

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Merci JièL pour ce recadrage pertinent.
Je récapitule:

On va simplifier au max
'################################################"
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
Msgbox "en route"
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
objCurrentMessage.save
objCurrentMessage = ""
End Sub
'################################################"


Attention la pj sera envoyé avec tous les mails.

ok ?

*Circé <circe@aea.gr> que je salue a écrit *:

Bonjour Oliv',

Et merci...

ça peut finir dans la faq ?... ;)

Bien sûr
J'ai amélioré le code pour cette éminente publication ;-))

Mettre dans ThisoutlookSession :
'############################################
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _
Boolean)
'by oliv' 05/02/2007 Pour publipostage avec PJ

If Item.Class = olMail Then
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
If UCase(objCurrentMessage.Subject) Like "*PUBLIPOSTAGE*" Then

'Pour ajouter la même PJ à tous
objCurrentMessage.Attachments.Add Source:= _
"c:tempERREUR.jpg"
'Pour ajouter une seconde PJ à tous décommenter
'objCurrentMessage.Attachments.Add Source:= _
"c:tempDOC2.PDF"
'Pour ajouter un document personnalisé d'après le destinataire _
du mail décommenter
' ici le nom du document est "destinataire@domaine.fr.doc"
'docperso = "c:tempmonmailing" & 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
'############################################


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 et les enregistrer dans un répertoire .

ici c:tempmonmailing
avec un nom qui permettra d'être retrouvé facilement à partir des données se
trouvant dans le mail
l'adresse email par exemple ici tondestinataire@fai.com.doc
Décommenter les lignes

bien sur c'est pas du clef en main dans cet exemple il faut modifier la
macro OUTLOOK à chaque publipostage, mais on doit pouvoir améliorer cela.




--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bonjour,

Vraiment merci pour cette macro qui est très utile. Par contre, j'ai un
petit souci avec le code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
objCurrentMessage.save
objCurrentMessage = ""
End Sub

Le message est bien personnalisé et envoyé avec une pièce jointe mais le
sujet du message disparait (même si indiqué dans sujet du publipostage sur
Word ou bien même lorsque l'on fait un mail dans outlook!). J'ai essayé
d'intégrer une ligne de programmation pour forcer le sujet du mail mais ça ne
marche pas non plus!

Quelqu'un pourrait-il m'aider?! Merci d'avance!!!

(PS: j'utilise Outlook 2003 avec Extension OfficeCalendar de partage de
calendrier, contact et task, et Word 2003)
--
San

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Merci JièL pour ce recadrage pertinent.
Je récapitule:

On va simplifier au max
'################################################"
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
Msgbox "en route"
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
objCurrentMessage.save
objCurrentMessage = ""
End Sub
'################################################"


Attention la pj sera envoyé avec tous les mails.

ok ?
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Désolé, j'ai trouvé la réponse tout seul.

il faut ajouter le sujet du mailing à la fin de la macro dans
objCurrentMessage = ""
exemple: objCurrentMessage = "Mailing 2007"

Par contre, j'ai un autre souci: la macro ci-dessous fonctionne avec Outlook
2003 et Word 2003 en publipostage mais on a un poste avec Outlook 2000 et
Word 2000 et la macro ne fonctionne pas! Les pièces jointes ne sont pas
attachés lors de l'envoi! Que faut-il faire pour que cela fonctionne avec
cette configuration!

Merci d'avance
--
San

Bonjour,

Vraiment merci pour cette macro qui est très utile. Par contre, j'ai un
petit souci avec le code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
objCurrentMessage.save
objCurrentMessage = ""
End Sub

Le message est bien personnalisé et envoyé avec une pièce jointe mais le
sujet du message disparait (même si indiqué dans sujet du publipostage sur
Word ou bien même lorsque l'on fait un mail dans outlook!). J'ai essayé
d'intégrer une ligne de programmation pour forcer le sujet du mail mais ça ne
marche pas non plus!

Quelqu'un pourrait-il m'aider?! Merci d'avance!!!

(PS: j'utilise Outlook 2003 avec Extension OfficeCalendar de partage de
calendrier, contact et task, et Word 2003)
--
San

*Phil <Phil@discussions.microsoft.com> que je salue a écrit *:

Merci JièL pour ce recadrage pertinent.
Je récapitule:

On va simplifier au max
'################################################"
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objCurrentMessage As MailItem
Set objCurrentMessage = Item
Msgbox "en route"
objCurrentMessage.Attachments.Add Source:="C:2007FFPCResume.pdf"
objCurrentMessage.save
objCurrentMessage = ""
End Sub
'################################################"


Attention la pj sera envoyé avec tous les mails.

ok ?
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~