Lien hypertexte vers logiciel de messagerie

tototiti2008

XLDnaute Barbatruc

• 20 Octobre 2010

• #2

Re : Lien hypertexte vers logiciel de messagerie

Bonjour Queenghost,

un essai

 

Pièces jointes

• Mailto.xls

  13.5 KB · Affichages: 82

Vote positif 0 Vote négatif

Q

Queenghost

Guest

• 20 Octobre 2010

• #3

Re : Lien hypertexte vers logiciel de messagerie

Cool ! réponse simple, pro et rapide.
Vraiment merci.
Une autre question : peut-on (dans le même ordre d'idée) rajouter une pièce jointe qui se trouverait sur l'ordi dans un dossier libellé ici "20°C" (avec un nom de fichier qui pourrait être calculé dans le fichier Excel) ?
A+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 20 Octobre 2010

• #4

Re : Lien hypertexte vers logiciel de messagerie

Re,

pas avec "Mailto:" à ma connaissance, pas de pièce jointe

Donc ça sous-entendra de faire une macro

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 20 Octobre 2010

• #5

Re : Lien hypertexte vers logiciel de messagerie

Re,

après avoir refouillé, mailto n'accepte pas de pièces jointes sauf avec certains clients de messageries... donc ça dépend

dans la première partie de ta fonction lien hypertexte, essaye de construire un truc du genre (pour tester) et regarde s'il y a une pièce jointe ou non chez toi

Code:

mailto:toto@msn.com?subject=Température du 20/10/2010&body=En ce jour du 20/10/2010 il fait 20,0°C&attachment=C:\20,0°C\mailto.xls

 

Vote positif 0 Vote négatif

Q

Queenghost

Guest

• 20 Octobre 2010

• #6

Re : Lien hypertexte vers logiciel de messagerie

C'est ce que je pense.

J'ai déjà un début de réponse mais la macro ne fonctionne pas. Si tu as des idées, je suis preneur.

Code :

Sub SendMail_Outlook()

'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"

Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String

Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.To = Range("B1").Value
.Subject = Range("B2").Value
.Body = Range("B3").Value
.Attachments.Add "c:\data\essai.doc"
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub

A+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 20 Octobre 2010

• #7

Re : Lien hypertexte vers logiciel de messagerie

Re,

Je n'ai pas Outlook, donc je laisse d'autres répondre...

 

Vote positif 0 Vote négatif

Q

Queenghost

Guest

• 20 Octobre 2010

• #8

Re : Lien hypertexte vers logiciel de messagerie

Salut,

Mon problème se corse : Mon fichier Excel est mis en ligne sur Google.docs.
Donc Version Ultralight d'Excel.
Ce qui fonctionne sur l'ordi ne fonctionne pas sur Google.docs.

Quelqu'un a-t-il déjà utilisé ce process ?

 

Vote positif 0 Vote négatif