Hi,I have below code to execute HTML file but actaully some user system it show error at line ->Open fileName$ For Output As fileNum it show No RESUME error so can any one tell me why this error come in specific user not all
On Error Goto errh
Dim w As New NotesUIWorkspace
Set s= New NotesSession
Set db=s.CurrentDatabase
Set MstDb=s.GetDatabase(db.Server, "Dolphin\Live\Tummastr.nsf")
Set hlpdb=s.GetDatabase("Domcorp/Tumlare", "Dolphin\Live\Tumhlpdb.nsf")
If Not hlpdb.IsOpen Then
Msgbox "DomCorp Server Helper Database is not accessible right now - Pls try after some time.",0+16,"DOS ERROR!"
continue=False
Exit Sub
End If
'Set hlpdb=s.GetDatabase(db.Server, "Dolphin\Live\Tumhlpdb.nsf")
Set MstlogoView=MstDb.GetView("LogoDesc")
Set PromLogoView=MstDb.GetView("PromLogo")
Set uidoc = w.CurrentDocument
Set doc=uidoc.Document
uploadpath$=doc.path(0)
If doc.SignType(0)<>"GIF" Then
sDir = Dir$(uploadpath$,16)
If sDir = "" Then
Messagebox "This path does not exist on your desktop. Please select another path.", 0, "Select Path"
Exit Sub
End If
End If
Uname$=doc.FName(0)
If Uname$= "" Then
Messagebox "Not selcted any staff document to Create Signature. Please select one staff document.", 0, "Select Staff Document"
Exit Sub
End If
Key$=Ucase(doc.LogoDesc(0))
Set mstdoc=MstlogoView.GetDocumentByKey(Key$,True)
If Not mstdoc Is Nothing Then
Set rtitem = mstdoc.GetFirstItem("CompLogo")
If Not rtitem Is Nothing Then
If Isempty (rtitem.EmbeddedObjects) Then
Else
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
LogoName$= o.Source
End If
End Forall
End If
End If
End If
End If
'add by akd on 121110 for promotelogo
Key$=Ucase(doc.PrLogo(0))
Set mstdoc=PromLogoView.GetDocumentByKey(Key$,True)
If Not mstdoc Is Nothing Then
Set rtitem = mstdoc.GetFirstItem("PrSignLogo")
If Not rtitem Is Nothing Then
If Isempty (rtitem.EmbeddedObjects) Then
Else
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
PromLogoName$= o.Source
End If
End Forall
End If
End If
End If
End If
'end by akd on 121110
' Add on 160312
Key1$=Ucase(doc.PrLogo1(0))
Set mstdoc=PromLogoView.GetDocumentByKey(Key1$,True)
If Not mstdoc Is Nothing Then
Set rtitem = mstdoc.GetFirstItem("PrSignLogo")
If Not rtitem Is Nothing Then
If Isempty (rtitem.EmbeddedObjects) Then
Else
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
PromLogoName1$= o.Source
End If
End Forall
End If
End If
End If
End If
' Add on 160312
If doc.LogoDesc(0)<>"" Then
If doc.SignFormat(0)="1" Then
FileName$ = uploadpath$+"\"+Uname$+"_Long.html"
Else
FileName$ = uploadpath$+"\"+Uname$+"_Short.html"
End If
Else
Msgbox "Please Select the logo to create signature File",0,".: Create Signature :."
Exit Sub
End If
If doc.SignType(0)<>"GIF" Then
If doc.Path(0)="" Then
Msgbox "Please Select path on which you want to create signature File",0,".: Create Signature :."
Exit Sub
End If
End If
filenum = Freefile()
Open fileName$ For Output As fileNum
Call HeadContent()
Call PrintFile(doc, Filenum,LogoName)
If doc.SignFormat(0)="1" Then
HtmlFileName$ = uploadpath$ & "\" & Uname$+"_Long.html"
Else
HtmlFileName$ = uploadpath$ & "\" & Uname$+"_Short.html"
End If
Set docMemo = New NotesDocument (hlpdb)
docMemo.Form = "AttachFile"
docMemo.Body=""
Set rtitem1 = New NotesRichTextItem (docMemo, "Body")
Set object = rtitem1.EmbedObject (EMBED_ATTACHMENT, "", HtmlFileName$)
Call docMemo.Save(True,False)
UL$="http://81.201.140.158/signature/index.jsp?UNID=" + docMemo.UniversalID
Call w.URLOpen(UL$)
Close filenum
Exit Sub
errh:
If Lcase(Error$) = Lcase("Path Not Found") Then
Messagebox "This path does not exist on your desktop. Please select another path.", 0, "Select Path"
Exit Sub
End If