Lien hypertexte vers logiciel de messagerie

[Queenghost]

Salut tout le monde,
Je débarque.
A partir d'un lien hypertext, je souhaiterai pouvoir actualiser l'objet du mail avec des données présentes dans des cellules du fichier Excell, résultat de calculs (donc qui bougent en permanence).
Ex:
Le début de l'objet du mail est dans la cellule : "Température du "
Le mileu (la date du jour) est dans une autre cellule : 19/10/2010
La cellule de calcul donne un montant (20°)
L'objet du mail devrait donc être :
"Température du 19/10/2010 : 20°"
Est-ce possible ?
Merci d'avance.
😉

 

[tototiti2008]

Re : Lien hypertexte vers logiciel de messagerie

Bonjour Queenghost,

un essai

 

[Queenghost]

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+

 

[tototiti2008]

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

 

[tototiti2008]

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

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

 

[Queenghost]

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+

 

[tototiti2008]

Re : Lien hypertexte vers logiciel de messagerie

Re,

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

 

[Queenghost]

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 ?