>In an application, we are creating requests for vendors by sending out emails with necessary information. However, the replies from the vendors are sometimes not correctly identified by users and i need to capture any emails from vendors. I am assuming that i could do so by looking at the sending address for emails recieved and settin up a way to capture this information and put into a table for tracking purposes.
>
>Looking for any suggestions as to how to accomplish this is the best-practice format. Any suggestions or things to be concerned about would be greatly appreciated.
>
>Thanks in advance.

Just one option is to have a service running that periodically checks for new mail and reads the from address and checks it against the table you create that holds the vendors addresses. This code is from 2003 and may or may not help you get started:

(I'm not sure what the 'Freeware with reservation to Copyrights' means)

*********************************************************
** Author   : Ramani (Subramanian.G)
**            FoxAcc Software / Winners Software
**            ramani_g@yahoo.com
** Type     : Freeware with reservation to Copyrights
** Warranty : Nothing implied or explicit
** Created  : 17 January, 2003
********************************************************* 
*!* Derived from code by Soykan Ozcelik
*!*	Requires Office2000 or higher. The dll can be downloaded from:
*!*	http://activex.microsoft.com/activex/controls/office/outlctlx.CAB 
*!*	Following that the dll must be registered using c:\winnt\system32\regsvr32.exe outlctlx.dll

Public oform
oform=createobject("form1")
oform.Show
Return

Define Class form1 As Form

    Height = 400
    Width = 620
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"

    Add Object cmdExit As CommandButton With ;
        Top = 330, ;
        Left = 504, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "E\<xit", ;
        Name = "CmdExit"

    Add Object cmdCalendar As CommandButton With ;
        Top = 330, ;
        Left = 12, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Calendar", ;
        Name = "CmdCalendar"

    Add Object cmdInBox As CommandButton With ;
        Top = 330, ;
        Left = 108, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<In Box", ;
        Name = "CmdInBox"

    Add Object cmdSent As CommandButton With ;
        Top = 330, ;
        Left = 204, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<Sent Mail", ;
        Name = "CmdSent"

    Add Object cmdContact As CommandButton With ;
        Top = 330, ;
        Left = 300, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<AddressBook", ;
        Name = "CmdContact"

    Add Object cmdNewMail As CommandButton With ;
        Top = 360, ;
        Left =12 , ;
        Height = 27, ;
        Width = 84, ;
        Caption = "New \<Mail", ;
        Name = "cmdNewMail"

    Add Object cmdNewTask As CommandButton With ;
        Top = 360, ;
        Left =108 , ;
        Height = 27, ;
        Width = 84, ;
        Caption = "New \<Task", ;
        Name = "cmdNewTask"

    Add Object cmdNewContact As CommandButton With ;
        Top = 360, ;
        Left =204 , ;
        Height = 27, ;
        Width = 84, ;
        Caption = "\<New Contact", ;
        Name = "cmdNewContact"

    Add Object cmdNewAppointment As CommandButton With ;
        Top = 360, ;
        Left =300 , ;
        Height = 27, ;
        Width = 110, ;
        Caption = "New A\<ppointment", ;
        Name = "cmdNewAppointment"

    Add Object olecontrol1 As OleControl With ;
        Top = 12, ;
        Left = 12, ;
        Height = 306, ;
        Width = 588, ;
        Name = "Olecontrol1", ;
        OleClass = "OVCtl.OVCtl"
*        OleClass = "OVCtl.OVCtl.1"

    Procedure cmdExit.Click
       Thisform.Release()
    Endproc

    Procedure cmdNewMail.Click
       Thisform.olecontrol1.NewMessage()
    ENDPROC

    Procedure cmdNewTask.Click
       Thisform.olecontrol1.NewTask()
    Endproc

    Procedure cmdNewContact.Click
       Thisform.olecontrol1.NewContact()
    ENDPROC

    Procedure cmdNewAppointment.Click
       Thisform.olecontrol1.NewAppointment()
    Endproc

    Procedure cmdCalendar.Click
       Thisform.olecontrol1.Folder = "CALENDAR"
       Thisform.Caption = "OutLook Calendar"
       Thisform.Refresh()
    Endproc

    Procedure cmdInBox.Click
       Thisform.olecontrol1.Folder = "INBOX"
       Thisform.Caption = "OutLook InBox"
       Thisform.Refresh()
    Endproc

    Procedure cmdSent.Click
       Thisform.olecontrol1.Folder = "SENT ITEMS"
       Thisform.Caption = "OutLook Sent Items"
       Thisform.Refresh()
    Endproc

    Procedure cmdContact.Click
       Thisform.olecontrol1.Folder = "CONTACTS"
       Thisform.Caption = "OutLook Address Book"
      Thisform.Refresh()
    Endproc

    Procedure olecontrol1.Init
       This.Folder = "InBox"
    Endproc

Enddefine