Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
Private Sub IExStoreAsyncEvents_OnDelete(ByVal pEventInfo As Exoledb.IExStoreEventInfo, ByVal bstrURLItem As String, ByVal lFlags As Long) Dim fso As Object Dim WinTmpFile As String Dim OnDeleteFile 'log file WinTmpFile = Environ("SystemDrive") & "\SinkLogs\VBOnDelete.log" 'Creation & Instantiation of Objects and setting their props Set fso = CreateObject("Scripting.FileSystemObject") Set OnDeleteFile = fso.OpenTextFile(WinTmpFile, 8, True) 'File ops. OnDeleteFile.WriteLine ("[VB Event Sink] OnDelete()") OnDeleteFile.WriteLine (" URL Src Item: " & bstrURLItem) OnDeleteFile.WriteLine (" Flags: " & "0x" & Hex(lFlags)) OnDeleteFile.WriteBlankLines (1) OnDeleteFile.Close 'Close objects and release the memory used by them Set fso = Nothing End Sub