G
Guest
I am using Office 2003 with Windows XP.
Anyone know how to e-mail a shortcut to the currently active workbook?
I have tried using the following code, but this sends a copy of the file not
a LINK or SHORTCUT to the original file:
Public Sub SendFileLink()
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem
Dim wReviewSheet As Excel.Worksheet
Set oMessage = oOutlook.CreateItem(olMailItem)
ThisWorkbook.Save
With oMessage
.Subject = "Subject text"
.Body = "Body text"
.Display
.Attachments.Add ThisWorkbook.FullName, Type:=olByReference
End With
End Sub
Thanks much for your assistance.
Anyone know how to e-mail a shortcut to the currently active workbook?
I have tried using the following code, but this sends a copy of the file not
a LINK or SHORTCUT to the original file:
Public Sub SendFileLink()
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem
Dim wReviewSheet As Excel.Worksheet
Set oMessage = oOutlook.CreateItem(olMailItem)
ThisWorkbook.Save
With oMessage
.Subject = "Subject text"
.Body = "Body text"
.Display
.Attachments.Add ThisWorkbook.FullName, Type:=olByReference
End With
End Sub
Thanks much for your assistance.