/ Forums / Advansys Formativ / Creating Solutions with Formativ / Attaching a windows shortcut / Reply To: Attaching a windows shortcut
Hi Simon!
You might also send a HTML link – that’s what we do:
‘——————————————————————————-
‘ AddLinkHTML
‘——————————————————————————-
Sub AddLinkHTML(oMsg)
Dim sfile
sFile = SelectFile()
If sFile <> “” Then ‘ file selected?
Utilities.CopyHTMLToClipboard(“<DIV><A href=file://” & NoSpaceInFileName(sFile) & “>” & sFile & “</DIV>”)
GroupWise.EditPaste
End If
End Sub
‘——————————————————————————-
‘ Create short path
‘——————————————————————————-
Function NoSpaceInFileName(filespec)
Dim fso, f
If Instr(filespec, ” “) > 0 then
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f = fso.GetFile(filespec)
NoSpaceInFileName = f.ShortPath
Set fso = Nothing
Else
NoSpaceInFileName = filespec
End If
End Function
Hope this helps
Stephan