VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CEnvelopeTrace"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' *********************************************************************
'* CLASS Classe contenente informazioni utili per la tracciabilità della lettera
'* <BR/>Autore: <B>Giorgio Bernardi</B>
'* E-Mail: <A HREF="mailto:giorgio.bernardi@studio.unibo.it">Giorgio.Bernardi@studio.unibo.it</A>
'* Data  : Settembre 2004
'* <DIV CLASS="ClassDescription">
'*  Le informazioni utili per la tracciabilità della Envelope vengono aggiunte da Dispatcher _
    e MsgManager di ricezione.
'* </DIV>
' *********************************************************************
Option Explicit

'* Attributo contenente il valore della proprietà omonima dell'oggetto
Private mRemoteMsgManager   As String
'* Attributo contenente il valore della proprietà omonima dell'oggetto
Private mLocalDispatcher    As IDispatcher
'* Attributo contenente il valore della proprietà omonima dell'oggetto
Private mLocalMsgManager    As IMsgManager

'* Identificativo del dispatcher che ha consegnato il messaggio
'* Attributo utile per motivi di tracciabilità
Public Property Get LocalDispatcher() As IDispatcher
    Set LocalDispatcher = mLocalDispatcher
End Property

'* Identificativo del dispatcher che ha consegnato il messaggio
'* Attributo utile per motivi di tracciabilità
Public Property Set LocalDispatcher(sndr As IDispatcher)
    Set mLocalDispatcher = sndr
End Property

'* Identificativo del Manager che ha consegnato il messaggio
'* Attributo utile per motivi di tracciabilità
Public Property Get LocalMsgManager() As IMsgManager
    Set LocalMsgManager = mLocalMsgManager
End Property

'* Identificativo del Manager che ha consegnato il messaggio
'* Attributo utile per motivi di tracciabilità
Public Property Set LocalMsgManager(sndr As IMsgManager)
    Set mLocalMsgManager = sndr
End Property

'* Identificativo del Manager remoto che ha consegnato il messaggio
'* Attributo utile per motivi di tracciabilità
Public Property Get RemoteMsgManagerAddress() As String
    RemoteMsgManagerAddress = mRemoteMsgManager
End Property

'* Identificativo del Manager remoto che ha consegnato il messaggio
'* Attributo utile per motivi di tracciabilità
Public Property Let RemoteMsgManagerAddress(sndr As String)
    mRemoteMsgManager = sndr
End Property