Attaching a windows shortcut

[RPP]

Hi

Our users often want to send a shortcut to a network file to each other (internal emails only this is) but the process for doing so is a bit painful so I was hoping to create a Formativ button that would assist them.

The process in GW as I understand it is as follows …

Create a Windows Shortcut (LNK file) by right clicking on the target file, a PDF say, and choosing Send to Desktop (create shortcut).

Start a New mail and drag the LNK file into the Attachments area (or use the paperclip icon and roam to the LNK file).

You then get a choice of adding the file itelf (PDF) or the shortcut (LNK).

Choosing the shortcut open creates an attachment that will open the PDF file for the recipient.

This is very handy.

When I try and recreate this in code howver I get stuck on doing the attachment. So far I have …

Groupwise.ItemAttachmentAdd “XOO”, 114, “C:Documents and SettingsGRAHAMDesktopShortcut to Demo.pdf.lnk” , “Shortcut to Demo19.pdf.lnk”

This causes the pop-up option to appear for attach file vs attach shortcut.

Is there some way around this? Either by attaching the LNK file a different wany or some way to “answer” the pop-up question and select ‘attach shortcut’?

Note: I am assuming I have asked the user to select the file they want a shortcut to via a Form and I have already created the windows shortcut (possibly via a VB ActiveX call). Its the attach stage that is causing me a problem.

Thanks

Simon

Topic

[Support 3]

Unless I am missing something, nothing appear to happen for the shortcut file when using the ItemAttachmentAdd Token. Works fine for the actual file. Also noticed, the FileExists(“C:tempShortcut test.pdf.lnk”) method return FALSE for the shortcut item. Do you see the same behaviour?

Regardless of the different behaviour, I think you can not skip the pop-up dialog of the attach file/attach shortcut. Another option may be to use the Object API to create the message, attach the file and finally open the message for the user using the ItemOpen() token.

Hope this helps.

Regards,
Advansys Support

[Immi]

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

[Support 3]

Thanks Stephan for sharing the idea.

Regards,
Advansys Support

[Author]

Replies