All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
Sub Exiting(Source As Field) Dim ss As New notessession Dim ws As New notesuiworkspace Dim uidoc As notesuidocument Dim db As notesdatabase Dim view As NotesView Dim curdoc As NotesDocument Dim doc As notesdocument Dim answer As Integer Dim CR As String Set db = ss.CurrentDatabase Set uidoc = ws.CurrentDocument Set curdoc = uidoc.Document Set view = db.GetView("DupCR") CR = uidoc.FieldGetText("Change_Request_No") Set doc = view.GetDocumentByKey(CR) If Not doc Is Nothing Then answer = Messagebox( "CR found. Switch to existing document?", 1+32, "CR exists: " & CR) If (answer = 1) Then curDoc.SaveOptions = "0" Call uidoc.Close Delete uidoc Call ws.EditDocument(True, doc) End If End If End Sub
|Lotus notes forward mail problem||5||345|
|Querying received e-mails from an agent||7||203|
|IBM SAN DS 3512 Controllers Networking issues||11||34|
|How to auto purge mail to keep latest one month mail of a replica?||4||83|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!