Comment créer un mailing avec des pièces jointes attachées?
1 réponse
sebcha
Bonjour,
Je souhaite faire un mailing avec Word 2003 et Outlook 2003 dans lequel on
trouvera un courrier (personnalisé en fonction de la personne) et dans
lequel serai attachée une pièce jointe qui serai également adaptée en
fonction du correspondant.
Est ce possible ?
Merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
Bonjour,
Je souhaite faire un mailing avec Word 2003 et Outlook 2003 dans lequel on trouvera un courrier (personnalisé en fonction de la personne) et dans lequel serai attachée une pièce jointe qui serai également adaptée en fonction du correspondant. Est ce possible ? Merci de votre aide
en vba c'est possible sinon je ne crois pas !
regarde ci-dessous copie d'un mail :
Bonjour, Ce code fonctionnait avec une pièce jointe identique, mais on peut ajouter une pièce jointe différente si on a un élément pour la trouver. Créer dans un premier temps les documents word destinés à être en pieces jointes et de les enregistrer dans un répertoire . c:tempmonmailing avec un nom qui permettra d'être retrouvé facilement à parti des données se trouvant dans le mail l'adresse email par exemple Modifier les lignes
docperso = "c:tempmonmailing" & cobjCurrentMessage.to & ".doc" If UCase(objCurrentMessage.Subject) = "PUBLIPOSTAGE" Then
----- Message d'origine ----- De : KITTEL Envoyé : jeudi 2 mars 2006 11:58
Bonjour,
Je me permet de vous écrire suite à votre réponse du 01/02/2006 dans les newgroupes de MSOutlook.
J'ai tester votre code qui fonctionne parfaitement si on fait un Emailing Html a partir de Word. Par contre si on fait un Emailing en choisissant l'option "Pièces jointes" pour pouvoir personnaliser les lettres envoyées on dirais que le code ne s'execute pas.
On me demande de faire une enquête par mail en envoyant en PJ, des lettres personnalisées, une PJ explicative et un corps de message eventuellement personnalisé aussi (J'ai tester sur votre code : objCurrentMessage.Body et ca fonctionne)
Je n'ai pas trouver de solution pour résoudre mon problème autrement qu'a la main Pourriez vous si vous disposez d'un peu de temps me dépanner ?
Un Grand Merci par avance
D. KITTEL
J'ai testé et ca marche !!!
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
ici le sujet doit etre publipostage mais on peut mettre un signe comme ? avec un like "*?*" etc... --
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour,
Je souhaite faire un mailing avec Word 2003 et Outlook 2003 dans
lequel on trouvera un courrier (personnalisé en fonction de la
personne) et dans lequel serai attachée une pièce jointe qui serai
également adaptée en fonction du correspondant.
Est ce possible ?
Merci de votre aide
en vba c'est possible sinon je ne crois pas !
regarde ci-dessous copie d'un mail :
Bonjour,
Ce code fonctionnait avec une pièce jointe identique, mais on peut ajouter
une pièce jointe différente si on a un élément pour la trouver.
Créer dans un premier temps les documents word destinés à être en pieces
jointes et de les enregistrer dans un répertoire . c:tempmonmailing
avec un nom qui permettra d'être retrouvé facilement à parti des données se
trouvant dans le mail
l'adresse email par exemple toto@fai.com.doc
Modifier les lignes
docperso = "c:tempmonmailing" & cobjCurrentMessage.to & ".doc"
If UCase(objCurrentMessage.Subject) = "PUBLIPOSTAGE" Then
----- Message d'origine -----
De : KITTEL
Envoyé : jeudi 2 mars 2006 11:58
Bonjour,
Je me permet de vous écrire suite à votre réponse du 01/02/2006 dans les
newgroupes de MSOutlook.
J'ai tester votre code qui fonctionne parfaitement si on fait un Emailing
Html a partir de Word.
Par contre si on fait un Emailing en choisissant l'option "Pièces jointes"
pour pouvoir personnaliser les lettres envoyées on dirais que le code ne
s'execute pas.
On me demande de faire une enquête par mail en envoyant en PJ, des lettres
personnalisées, une PJ explicative et un corps de message eventuellement
personnalisé aussi (J'ai tester sur votre code : objCurrentMessage.Body et
ca fonctionne)
Je n'ai pas trouver de solution pour résoudre mon problème autrement qu'a la
main
Pourriez vous si vous disposez d'un peu de temps me dépanner ?
Un Grand Merci par avance
D. KITTEL
J'ai testé et ca marche !!!
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
ici le sujet doit etre publipostage mais on peut mettre un signe
comme ? avec un like "*?*"
etc...
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Je souhaite faire un mailing avec Word 2003 et Outlook 2003 dans lequel on trouvera un courrier (personnalisé en fonction de la personne) et dans lequel serai attachée une pièce jointe qui serai également adaptée en fonction du correspondant. Est ce possible ? Merci de votre aide
en vba c'est possible sinon je ne crois pas !
regarde ci-dessous copie d'un mail :
Bonjour, Ce code fonctionnait avec une pièce jointe identique, mais on peut ajouter une pièce jointe différente si on a un élément pour la trouver. Créer dans un premier temps les documents word destinés à être en pieces jointes et de les enregistrer dans un répertoire . c:tempmonmailing avec un nom qui permettra d'être retrouvé facilement à parti des données se trouvant dans le mail l'adresse email par exemple Modifier les lignes
docperso = "c:tempmonmailing" & cobjCurrentMessage.to & ".doc" If UCase(objCurrentMessage.Subject) = "PUBLIPOSTAGE" Then
----- Message d'origine ----- De : KITTEL Envoyé : jeudi 2 mars 2006 11:58
Bonjour,
Je me permet de vous écrire suite à votre réponse du 01/02/2006 dans les newgroupes de MSOutlook.
J'ai tester votre code qui fonctionne parfaitement si on fait un Emailing Html a partir de Word. Par contre si on fait un Emailing en choisissant l'option "Pièces jointes" pour pouvoir personnaliser les lettres envoyées on dirais que le code ne s'execute pas.
On me demande de faire une enquête par mail en envoyant en PJ, des lettres personnalisées, une PJ explicative et un corps de message eventuellement personnalisé aussi (J'ai tester sur votre code : objCurrentMessage.Body et ca fonctionne)
Je n'ai pas trouver de solution pour résoudre mon problème autrement qu'a la main Pourriez vous si vous disposez d'un peu de temps me dépanner ?
Un Grand Merci par avance
D. KITTEL
J'ai testé et ca marche !!!
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
ici le sujet doit etre publipostage mais on peut mettre un signe comme ? avec un like "*?*" etc... --
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
