#7892
Immi
Participant

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