Need to Copy an email to a subfolder

Status
Not open for further replies.

blueman124

New Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Using the following code (in bold) to categorize an email which triggers an action. I currently have the email moving to a subfolder and this works fine. But now, instead of moving it to that subfolder, I need to copy it to a different folder. Can someone help me change this code so it works. I tried just changing the word "Move" to "Copy" but that didn't do it. Thanks

Private Sub objInboxItemsOrder_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objTargetFolder As Outlook.Folder

If TypeOf Item Is MailItem Then
Set objMail = Item
'Move mails based on color category
If InStr(objMail.Categories, "Karen") > 0 Then
Set objTargetFolder = Application.Session.Folders("orders@xxxxxx.com").Folders("Karen")
objMail.Move objTargetFolder
ElseIf InStr(objMail.Categories, "Purchase Order") > 0 Then
Set objTargetFolder = Application.Session.Folders("orders@xxxxxx.com").Folders("Purchase Order")
objMail.Move objTargetFolder
ElseIf InStr(objMail.Categories, "Quote") > 0 Then
Set objTargetFolder = Application.Session.Folders("orders@xxxxxxx.com").Folders("Quote")
objMail.Move objTargetFolder
End If
End If
End Sub
 
tried to edit the above to wrap in code tag instead of quote tag but could find no way to edit. It couldn't have been more than 5 minutes later.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
Mary B VBscript: Need to copy every email to a folder & mark that copy as read Outlook VBA and Custom Forms 5
icacream I just need to copy my address book to my new laptop ! Using Outlook 18
e_a_g_l_e_p_i Need clarification on 2-Step Verification for Gmail using Outlook 2021 Using Outlook 10
S Custom Contact card - need help creating one Outlook VBA and Custom Forms 1
P OT: Need website like this one, but for Excel Using Outlook 0
S Need code to allow defined starting folder and selection from there to drill down Outlook VBA and Custom Forms 10
D Need help with MS Authenticator Using Outlook 4
I Outlook for Mac 2019 using on desktop and laptop IMAP on both need help with folders Using Outlook 1
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
S.Champ Please help? I've imported a random workcalendar I dont even know who's. Can I undo it? and then I need to re-sync the google one again. Its a mess:( Using Outlook 2
D Do I need Exchange Add-In? Using Outlook 6
L Need help modifying a VBA script for emails stuck in Outbox Outlook VBA and Custom Forms 6
K Need to convert .mmf file to .pst format Outlook VBA and Custom Forms 7
glnz Moving from Outlook 2003 to MS365 Outlook - need basics Using Outlook 4
J Moved many emails to Outlook external folder, need to delete on Gmail server Using Outlook 14
A Wishlist Arthur workman I need the community's assistance thank you Using Outlook 3
A from Arthur to anyone I need your expertise assistance Using Outlook.com accounts in Outlook 7
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using Outlook.com accounts in Outlook 2
T Need to backup outlook.com to cloud storage, without desktop software - Testing UpSafe. Are there any similar services? Using Outlook.com accounts in Outlook 8
C need help setting up outlook first time Using Outlook 1
N Need help syncing contacts to iPhone X Using Outlook 8
L Need to import multiple Outlook files to Office 365 Account Using Outlook 4
S Received mail as part of DL, need to auto-CC the same when replying Outlook VBA and Custom Forms 5
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
S Error using AddressEntry.GetContact - need help Outlook VBA and Custom Forms 2
E Outlook 2010 need help with rules Using Outlook 0
Horsepower Need iCloud mail only Using Outlook 1
O Don't need any add-ins at all? Using Outlook 2
B Need Help - Willing to pay Outlook VBA and Custom Forms 10
A Need to view Outlook calendar in Sharepoint .. Using Outlook 2
J Need Help with Contacts VBA Outlook VBA and Custom Forms 1
L Accidentally merged a calendar with .ics, need to undo! Using Outlook 1
H Need help setting up GetFolderPath-Makro with Vodafone IMAP Mail-Account Outlook VBA and Custom Forms 0
D Need Genuine Office or Outlook 2007 Using Outlook 3
G how to cancel a recurring meeting but not the organizer but all attendees need to know. Using Outlook 1
H I need a developer to customize an Outlook Contact form Outlook VBA and Custom Forms 0
T Need help with finding/updating task Outlook VBA and Custom Forms 1
N Need a case sensitive rule Outlook VBA and Custom Forms 1
C Need rule to alert when an email has not been replied to within 24 hours Using Outlook 1
P Outlook 2003 - Do I need a new profile? Using Outlook 2
F Outbox - Multiple Emails need to be manually opened? Using Outlook 5
Miquela I need to make a calendar to share here at work with 40 other people Using Outlook 1
S Need CC: to show the original To: recip[ients Using Outlook 4
Denis Hi everyone!!! Need some help with Excel to Exchange Calendar??PLEASE>>> Using Outlook 1
D Need to extract a line from a word attachment, and add it to the subject line Outlook VBA and Custom Forms 3
mikecox Desperat; need hands on support Using Outlook 1
E Need Help on Setting up a repeated Reminder on Task with Reoccurence Every Year Using Outlook 6
Glyn Do I Need Outlook.com Using Outlook 1
B Need Help Creating Email Based on Subject w Address in Body Outlook VBA and Custom Forms 1
G Need help configuring a PRF for Outlook 2010 and 2013 Using Outlook 0

Similar threads

Back
Top