Appeler la PJ !

[BenHarber]

Bonjour Le Forum,
J'utilise le code suivant pour lancer via Excel ma messagerie (Netscape) avec les principaux éléments Objet + adresse + message préparamétrés.
Quelqu'un connaitrait-t-il le code pour annexer une PJ ? (j'ai recherché sur le site et vu une question similaire restée sans réponse...)

adrS = "benharber@free.fr"
objet = "Ma question"
messg = "Comment faire pour annexer une PJ"
hyperlien = "mailto:" & adrS & "?" & "subject=" & objet & "&cc=" & "&body=" & messg
ActiveWorkbook.FollowHyperlink hyperlien

PS : cette solution est efficace mais j'ai déjà remarqué que j'étais limité dans le nb. de caractères de ma variable 'hyperlien' : peut-être connaitriez-vous une autre solution qui contourne ce pb ?

Merci d'avance pour vos réponses et conseils.

Cordialement

 

[PascalXLD]

Re : Appeler la PJ !

Bonjour

Alors je ne sais comment cela marche pour toi mais pour outlook cela passe ainsi pour les pièces jointes

Set OL = CreateObject("Outlook.Application") 'Envoyer le BT dans la boite d'envoi d'Outlook
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
.Attachments.Add "C:\tmp\classeur1.xls"
'.....

Si cela peut t'aider

 

[BenHarber]

Re : Appeler la PJ !

Bonjour Pascal,
Merci pour ton conseil...mais ça ne fonctionne pas avec Netscape !

En cherchant sur le net, j'ai trouvé sur [Ce site n'existe plus les lignes ci-dessous qui semblaient bien correspondre à ce que je recherchais :

"mailto:" & destinataire &
"?subject=" & sujet &
"&Body=" & texte &
"&Cc=" & autresdestinataires1 &
"&Cci=" & autresdestinataires2 &
"&Attachment=" & cheminfichier

L'ennui, c'est que la commande 'Attachment=' ne fonctionne pas sur mon micro...

Je sens que je vais me résoudre à attacher les PJ à la mano...à moins que quelqu'un ait une autre idée ?

Merci d'avance.

Cordialement,