Assign a unique number to every message I send


I found this code on your slipstick page... It almost cover my needs... I need to assign a number to every message I send, not matter if is randomly assgined o sequentaly, it only needs to be unique for each message...

Public WithEvents myOlApp As Outlook.Application

Private Sub Application_Startup()


End Sub

Public Sub Initialize_handler()

Set myOlApp = CreateObject("Outlook.Application")

End Sub

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)

If InStr(1, Item.Subject, "Privacy", vbTextCompare) = False Then

Item.Subject = "Privacy " & Item.Subject

End If

End Sub

Is that possible??