Assign a unique number to every message I send

apugarte

Member
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()


Initialize_Handler


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??
 
Top