Hi Graham,

I have been testing the code today and have noticed it is not saving my "SENT" emails in the correct folder it keeps saving them in the "RECEIVED" folder. I have tried changing 
If olItem.Sender Like "*@email.co.uk" Then
to different emails or usernames but it still doesn't work. Any ideas as to why?


Also would it be possible to change this bit of code so that i only have to input 5 digits (X1234)

fPath1 = InputBox("Enter the customer folder name in which to save the message." & vbCr & _ 
   "The path will be created if it doesn't exist.", _ 
    "Save Message") 
    fPath1 = Replace(fPath1, "\", "") 
    fPath2 = InputBox("Enter the project name and number.", _ 
    "Save Message") 
    fPath2 = Replace(fPath2, "\", "")