lien pour ouverture pièce jointe

*thierry <t.gravoille@areso.net> que je salut a écrit *:

bonjour,
est-il possible de mettre un lien dans le corps d'un message pour
ouvrir une pièce jointe à ce même message ?

merci de votre réponse

Pouvez vous expliquer un peu mieux SVP ?

ca me parrait super compliqué quand même, mais c'est peut être pas
impossible il faudrait pouvoir affecter au lien la référence cid de la pièce
jointe.

Quel est le but ?
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

*Oliv' <(supprimerceci)catteau@ricour-assurances.fr> que je salut a écrit *:

est-il possible de mettre un lien dans le corps d'un message pour
ouvrir une pièce jointe à ce même message ?

thierry wrote:

bonjour,
mon but est de rendre encore plus confortable l'ouverture d'une pièce
jointe.
Je mets un PDF en pièce jointe et dans le corps du message je mets un
lien "Pour lire la pièce jointe, cliquez içi".
Est-ce possible et comment faire ?

il me semblait bien avoir compris le but , cependant pour y parvenir il va
falloir développer en VBA

J'ai fait le test avec une image ca marche.

Créer un mail, insérer une image, enregistrer le mail (cela converti
l'adresse de l'image sur le disk en cid).

Puis en vba puisque OUTLOOK n'a pas d'éditeur HTML .

Private Sub embeddedToLink()
'by oliv 06092006
Dim oitem As Outlook.MailItem
Set oitem = ActiveInspector.CurrentItem
oitem.Save
Oucid = InStr(1, oitem.HTMLBody, "cid:", vbTextCompare)
cid = Mid(oitem.HTMLBody, Oucid, 27)
MsgBox cid
lecid = "<IMG alt="""" hspace=0 src=""" & cid & """ alignºseline
border=0>"

oitem.HTMLBody = Replace(oitem.HTMLBody, Chr(13) & Chr(10), "")
oitem.HTMLBody = Replace(oitem.HTMLBody, lecid, "<A href=""" & cid &
""">TEST LINK</A>")
End Sub

Envoyer le mail.

A adapter
des idées ici -->http://www.outlookcode.com/search.aspx?text=src%3dcid


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bonjoir(c) Oliv'

Le 06/10/2006 11:31 vous avez écrit ceci :

J'ai fait le test avec une image ca marche.

Merci Oliv', moi j'aurais dis que ce n'était pas possible... merci de
m'avoir prouvé le contraire, c'est ça que j'aime sur les forum

--
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 de CDO : http://faq.outlook.free.fr/cdo/