insérer un lien hypertexte dans un corps de texte (mail)

MichelXld à dit:

bonsoir,


Une solution consiste à créer une instance Late Binding :

Code:

Dim ol As Object
Dim olmail As Object
Dim CurrFile As Object

Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(0)

With olmail
    .To = "[EMAIL="desti@free.fr"]desti@free.fr[/EMAIL]"
    .Subject = ActiveWorkbook.FullName
    .Body = "corps du texte"
    .Attachments.Add "C:\PGI\Résultats.xls"
    .Display
End With

Cliquez pour agrandir...