Hi again.

May be some one know how to read current value from hte TO box in Outlook macro.
Here is my code:
    Dim objApp As Application
    Dim objItem As MailItem
    Dim strName As String

    Set objApp = CreateObject("Outlook.Application")
    Set objItem = objApp.ActiveInspector.CurrentItem

    strName = String from To box &"<[email protected]>"
    Set myRecipients = objItem.Recipients.Add(strName)
    myRecipients.Type = olTo

    Set objItem = Nothing
    Set objApp = Nothing

Thanks
Pavel