Thanks Lagbolt,
That cleared that error, now I have an Error 13:Type mismatch on line "For Each msg In Inbox.Items".
Can you see what I've done wrong?
Thanks
Private Sub Test_Click()
Dim rs As DAO.Recordset
Dim Ola As Outlook.Application
Dim Nsp As Outlook.NameSpace
Dim pf, Inbox, ib, newdest...