Hi friends, We’ve a serious problem. We’ve reported to Austin… at a moment no solution found.
We 've the following code that send an e-mail to another person and in 1/3 of cases (branches with server cluster) the e-mail does not sent and it saves in draft mode. But… not all branches with server in cluster have this problem.
When the button is clicked, the document is new (has not been saved).
Can anybody help me?
Thanks a lot!
Sub Click(Source As Button)
Dim uiw As New NotesUIWorkspace,doc As notesdocument,session As New NotesSession
Set doc = uiw.Currentdocument.Document
If uiw.CurrentDocument.EditMode = False Then uiw.CurrentDocument.EditMode = True
If doc.proximousuario(0) <> "Central de Evaluaciones" Then doc.ReturnReceipt = "1"
doc.saveoptions = "1"
'Sent...
doc.mailoptions = "1"
doc.SendTo = "some person"
doc.subject = "..."
Call uiw.CurrentDocument.Save()
'Save in Sent view...
doc.mailoptions = "0"
doc.DeliveredDate = ""
Call uiw.CurrentDocument.Save()
Call doc.RemoveFromFolder("($Inbox)")
Call uiw.CurrentDocument.Close()
End Sub