Hello everyone,

I am a sales engineer and I send by email offers. I already coded my VBA for
Outlook in order to generate automatically a remainder 10 days after that I
send an offer.

Now, I would like to move this email with my offer attached to a folder
"offers following".

How Can i do this, right know I have the following in my code:

For Each PJ In Item.Attachments
If Left(PJ.FileName, 5) = "Offer" Then
MsgBox "OK"
Set myOlApp = CreateObject("Outlook.Application")
Set myApptItem = myOlApp.CreateItem(olAppointmentItem)
myApptItem.Start = Now + 10
myApptItem.End = Now + 10.015
myApptItem.Subject = Item.Subject
myApptItem.Save

Exit For

Thanks a lot!