Move to a folder my sending email

[Thierry]

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!

 

[Michael Bednarek]

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

Have you tried:
Item.Move(GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("offers following"))

BTW, I'm not sure you need this code:
Set myOlApp = CreateObject("Outlook.Application")
Set myApptItem = myOlApp.CreateItem(olAppointmentItem)

IMO, this could be written (in an OLProject):
' Set myOlApp = CreateObject("Outlook.Application") ' not needed
Set myApptItem = CreateItem(olAppointmentItem)

 

[Thierry]

thank you Micheal,

You post was very helpfull, I had to add:

Set myCopiedItem = Item.Copy
myCopiedItem.Move
GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("offers
following")

it works pretty good, i am all set!

Bye