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