Excel Downloads Forums - Afficher un message - Email par Outlook avec link au fichier d´origine

MichelXld · 23/05/2005, 18h19

bonjour Antoine

j'espere que cette macro pourra t'aider

Code:

Sub envoiMessageLienFichier()
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem

Set oMessage = oOutlook.CreateItem(olMailItem)

With oMessage
.Subject = 'le sujet du message'
.Body = 'bonjour , ' & vbLf & 'Ci joint le lien vers le fichier ' & vbLf & _
'file://' & Application.Substitute(ThisWorkbook.FullName, ' ', '%20')
.Display
End With
End Sub

un autre exemple

http://www.excel-downloads.com/html/...2994_82994.htm

bonne soiree
MichelXld

Message édité par: MichelXld, à: 23/05/2005 17:19

23/05/2005, 18h19	#2 (permalink)
MichelXld XLDnaute Barbatruc Date d'inscription: février 2005 Messages: 3 817	Re:Email par Outlook avec link au fichier d´origine bonjour Antoine j'espere que cette macro pourra t'aider Code: Sub envoiMessageLienFichier() Dim oOutlook As New Outlook.Application Dim oMessage As Outlook.MailItem Set oMessage = oOutlook.CreateItem(olMailItem) With oMessage .Subject = 'le sujet du message' .Body = 'bonjour , ' & vbLf & 'Ci joint le lien vers le fichier ' & vbLf & _ 'file://' & Application.Substitute(ThisWorkbook.FullName, ' ', '%20') .Display End With End Sub un autre exemple http://www.excel-downloads.com/html/...2994_82994.htm bonne soiree MichelXld Message édité par: MichelXld, à: 23/05/2005 17:19