Move old emails or emails with large attachments ?

Status
Not open for further replies.
V

vbaNEWBIE

Hello !

I need help in figuring out how to edit the code below (which works) to move

SENT items to a separate personal folder called out here. I want to move

emails that were sent 90 days ago or older to the personal folder. I also

want to move emails that contain attachments that have a size greater than 5

MB. This code will run when called by the user from a Module.

I have not figured out yet how to code an IF statement for Outlook yet much

less one that requires an OR operator as well.

I am using Outlook 2007. Can anyone provide direction for me in this ?

thanks !

Code follows:

Sub MoveItems_Old_and_Large()

Dim myOlApp As New Outlook.Application

Dim myNameSpace As Outlook.NameSpace

Dim myInbox As Outlook.MAPIFolder

Dim myDestFolder As Outlook.MAPIFolder

Dim myItems As Outlook.Items

Dim myItem As Object

Set myNameSpace = myOlApp.GetNamespace("MAPI")

Set myInbox = myNameSpace.GetDefaultFolder(olFolderSent)

Set myItems = myInbox.Items

' Set myDestFolder = myInbox.Folders("Personal Mail")

Set myDestFolder =

Outlook.Session.Folders("OldSentItems").Folders("Year2010")

While TypeName(myItem) <> "Nothing"

myItem.Move myDestFolder

Set myItem = myItems.FindNext

Wend

End Sub
 
V

vbaNEWBIE

After further review and analysis, I think I have the code working that will

move Sent emails that are large to a different folder. This comes in handy

when a user is limited in their space and wants to clear out their Sent Items

that are over a certain size. I am posting that code below in case it helps

anyone in the future.

I have looked into the Date issue and need some help with it due to

formatting being required of the date to work with Outlook dates.

Can anyone help with that portion ?

Sub MoveItems_Large()

Dim myOlApp As New Outlook.Application

Dim myNameSpace As Outlook.NameSpace

Dim myInbox As Outlook.MAPIFolder

Dim myDestFolder As Outlook.MAPIFolder

Dim myItems As Outlook.Items

Dim myItem As Object

Set myNameSpace = myOlApp.GetNamespace("MAPI")

' Not sure if the Sent Folder uses the name olFolderSentMail for all systems

' but this works on my machine :)

Set myInbox = myNameSpace.GetDefaultFolder(olFolderSentMail)

Set myItems = myInbox.Items

Set myDestFolder =

Outlook.Session.Folders("OldSentItems").Folders("Year2010")

' Moves emails with a size of approx 6 MB

' Use 3200000 for 3 MB

' Use 1048576 for 1 MB

Set myItem = myItems.Find("[Size] > '6000000'")

While TypeName(myItem) <> "Nothing"

myItem.Move myDestFolder

Set myItem = myItems.FindNext

Wend

End Sub

"vbaNEWBIE" wrote:


> Hello !
> I need help in figuring out how to edit the code below (which works) to move
> SENT items to a separate personal folder called out here. I want to move
> emails that were sent 90 days ago or older to the personal folder. I also
> want to move emails that contain attachments that have a size greater than 5
> MB. This code will run when called by the user from a Module.

> I have not figured out yet how to code an IF statement for Outlook yet much
> less one that requires an OR operator as well.

> I am using Outlook 2007. Can anyone provide direction for me in this ?

> thanks !

> Code follows:

> Sub MoveItems_Old_and_Large()
> Dim myOlApp As New Outlook.Application
> Dim myNameSpace As Outlook.NameSpace
> Dim myInbox As Outlook.MAPIFolder
> Dim myDestFolder As Outlook.MAPIFolder
> Dim myItems As Outlook.Items
> Dim myItem As Object
> Set myNameSpace = myOlApp.GetNamespace("MAPI")
> Set myInbox = myNameSpace.GetDefaultFolder(olFolderSent)
> Set myItems = myInbox.Items
> ' Set myDestFolder = myInbox.Folders("Personal Mail")
> Set myDestFolder =
> Outlook.Session.Folders("OldSentItems").Folders("Year2010")

> While TypeName(myItem) <> "Nothing"
> myItem.Move myDestFolder
> Set myItem = myItems.FindNext
> Wend
> End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J Automatically Move Old Items from a Shared Mailbox to a .PST on a Network Drive Outlook VBA and Custom Forms 1
R How do I move .vcs and .vcf files on to my new SSD from my old HDD Using Outlook 1
J Best way to move form old to new, larger pst? Using Outlook 2
GregS Outlook 2016 Move Outlook to new computer? Using Outlook 4
witzker Macro to move @domain.xx of a Spammail to Blacklist in Outlook 2019 Outlook VBA and Custom Forms 7
G Move tasks up/down todo list by VBA Outlook VBA and Custom Forms 1
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
S Outlook Macro to move reply mail based on the key word in the subjectline Outlook VBA and Custom Forms 0
D Move Email with Attachment to Folder Outlook VBA and Custom Forms 3
Eike Move mails via macro triggered by the click of a button? Outlook VBA and Custom Forms 0
G Cannot Move Autocomplete File to New Computer Using Outlook 15
M Move to Folder Using Outlook 1
P Move emails between 2 mailboxes. Using Outlook 0
C Copy Move item won't work Outlook VBA and Custom Forms 2
N Macro to move all recipients to CC while replying Outlook VBA and Custom Forms 0
Commodore Move turns into "copy" Using Outlook 3
R List folders in a combo box + select folder + move emails from inbox to that folder + reply to that email Outlook VBA and Custom Forms 1
Jennifer Murphy Ctrl+Tab sometimes will not move through text a word at a time Using Outlook 1
V Outlook 2016 will not move emails in search results Using Outlook 4
M move to iCloud not working in outlook calendar Using Outlook 12
A Create date folder and move messages daily Outlook VBA and Custom Forms 1
Commodore Folders always closed in move/copy items dialog box Using Outlook 3
C Move Outlook 2007 to new PC with Outlook 365 Using Outlook 3
C Can't move folder, the folder is full Using Outlook 0
Nadine Rule to move attachments with specific name Outlook VBA and Custom Forms 1
A Move email items based on a list of email addresses Outlook VBA and Custom Forms 40
T Move calendar invites to new calendar Using Outlook 5
O Rule to move (specific) messages from Sent folder to Specific folder Using Outlook 1
I Automating message move between folders Outlook VBA and Custom Forms 0
K Outlook Rules: Move a Copy Using Outlook 4
K VBA BeforeItemMove event create rule to always move to its folder. Outlook VBA and Custom Forms 4
N Move emails of same conversation to same subfolder Using Outlook 6
P when i move inbox mails to another folder in outlook the mail disappears Using Outlook 1
Peter H Williams How to Move Mail item after processing Outlook VBA and Custom Forms 5
D Move Emails between Folders in Separate Mailbox Outlook VBA and Custom Forms 12
E Search for folder by key in subject then move new message to related folder Outlook VBA and Custom Forms 1
I Outlook 2013 Any way to move .OST file to new system? Using Outlook.com accounts in Outlook 5
O On click,I want to change subject line of selected mail and then reply to particular email and move Using Outlook 3
F "Move to" O365 feature to Outlook client via VBA Outlook VBA and Custom Forms 4
B Macro to manually move selected emails to network folder Outlook VBA and Custom Forms 1
L Making rule to move email to folder from one O365 domain Using Outlook 1
B Copy/Move Exchange inbox to Pop inbox Using Outlook 4
S Send email via SMTP - use transport rules to add to senders inbox (then rule to move to sent items Exchange Server Administration 1
C Move from Outlook 2007 Enterprise (MOE) to Outlook Pro plus 2007 Using Outlook 1
Cdub27 Move Outlook 2016 Contacts to Other Folders - Extremely Slow !! Using Outlook 6
M code to move selected Outlook contacts to another folder Using Outlook 3
Mark White VBScript Move sent mail to non-default folder Outlook VBA and Custom Forms 5
Mark White VBScript Move sent mail to non-default folder Outlook VBA and Custom Forms 0
G Favorites panel entries move around after restarting Outlook 2016 Using Outlook 1
M Move new mail to folder based on sender address Outlook VBA and Custom Forms 2

Similar threads

Top