I have tried the code given by u....

Code:
For Each Sentmail In oSentFolder.Items
        Sentmail.To = lstsentitems.Columns(0, lstsentitems.ListIndex) 'First Column
        Sentmail.Subject = lstsentitems.Columns(1, lstsentitems.ListIndex) 'Second Column
        Sentmail.SentOn = lstsentitems.Columns(2, lstsentitems.ListIndex) 'Third Column
its giving error wrong number of argument or invalid property assignment if i say---- columns


and if i kept it like ---column then its saying method or data member not found.