#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