S
Steve
Hi everyone,
I've cobbled together a short macro from various bits of code I found
in this forum to allow me to quickly send an email to somebody
containing a link to a powerpoint file i've saved on our network
Here's the code :
Sub Send_Link()
Dim OL As Outlook.Application
Dim Mail As MailItem
Dim Link As String
Link = ActivePresentation.FullName
Set OL = CreateObject("Outlook.Application")
Set Mail = OL.CreateItem(olMailItem)
Mail.Display
Mail.Subject = ActivePresentation.Name
Mail.Body = "<" & Link & ">"
Set Mail = Nothing
Set OL = Nothing
End Sub
However, i have a few problems with it
1. Sometimes the link is created as just text, and not a blue
underlined clickable link
2. More of a problem is sometimes the link contains the drive letter I
have assigned to that folder, and not the actual name of the network -
i.e. "J:\Projects\Folder\Name.ppt" and not
"\\networkname\Projects\Folder\Name.ppt". This is obviously a problem
if I email a link to somebody who hasn't mapped their network drives
with the same letters as I have
Any help or hints greatly appreciated,
Steve
I've cobbled together a short macro from various bits of code I found
in this forum to allow me to quickly send an email to somebody
containing a link to a powerpoint file i've saved on our network
Here's the code :
Sub Send_Link()
Dim OL As Outlook.Application
Dim Mail As MailItem
Dim Link As String
Link = ActivePresentation.FullName
Set OL = CreateObject("Outlook.Application")
Set Mail = OL.CreateItem(olMailItem)
Mail.Display
Mail.Subject = ActivePresentation.Name
Mail.Body = "<" & Link & ">"
Set Mail = Nothing
Set OL = Nothing
End Sub
However, i have a few problems with it
1. Sometimes the link is created as just text, and not a blue
underlined clickable link
2. More of a problem is sometimes the link contains the drive letter I
have assigned to that folder, and not the actual name of the network -
i.e. "J:\Projects\Folder\Name.ppt" and not
"\\networkname\Projects\Folder\Name.ppt". This is obviously a problem
if I email a link to somebody who hasn't mapped their network drives
with the same letters as I have
Any help or hints greatly appreciated,
Steve