I wrote a simple script to launch a file which stored in the body field and it works fine until the filename contains Chinese. I wonder if any of you solve this problem.
Here is the code
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim body As NotesRichTextItem
Dim file As String, exeString As String
Dim Exe As String, Tmp As String
'Exe=Location of the viewer’s .exe
Exe$ = Environ (“COMSPEC”)
'Tmp=Location of the Temp dir
Tmp$ = Environ(“Temp”)
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
Set body = doc.GetFirstItem(“Body”)
file = Ucase(uidoc.FieldGetText(“FileList”))
'Get & open attachment
Forall obj In body.EmbeddedObjects
If obj.Type = Embed_Attachment Then
If Ucase(obj.Source) = file Then
FileName = tmp & "\" & obj.Source
'Save file
obj.Extractfile (FileName)
'Launch file
exeString = Exe$+" /c START " & tmp & "\""" & obj.Source & """"
taskIDtemp = Shell(exeString, 6)
Exit Forall
End If
End If
End Forall