:check:thank you all of guys, i have done it

Dim mail As MailItem
Dim insp As Inspector

Set insp = Application.ActiveInspector
Set mail = insp.CurrentItem
Debug.Print mail.To