unarchive email from enterprise vault

Status
Not open for further replies.

Shane247

New Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server 2010
Hi, I want a macro that unarchives a bunch of messages from symantec enterprise vault. I found the following code on the internet but it doesn't work. The selected emails get copied to the "Export" folder but they're still just a stub. Any idea how to make it work?


Sub UnarchiveToExportFolder()

itemstoprocess = Outlook.ActiveExplorer.Selection.Count
itemsmoved = 0
If vbNo = MsgBox(itemstoprocess & " to process, do you want to proceed?", vbYesNo) Then GoTo theEnd

Set myNameSpace = Application.GetNamespace("MAPI")
Set myinbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myDestFolder = myinbox.Folders("Export")

For Each olkMsg In Outlook.ActiveExplorer.Selection

archive = (InStr(1, olkMsg.MessageClass, "IPM.Note", vbTextCompare) > 0)
If archive Then
olkMsg.Display
Set myInspectors = Outlook.Application.ActiveInspector.CurrentItem
Set myCopiedInspectors = myInspectors.Copy
myCopiedInspectors.Move myDestFolder
myInspectors.Close olDiscard

Set myCopiedInspectors = Nothing

itemsmoved = itemsmoved + 1
End If

Next

Set olkMsg = Nothing
Set myNameSpace = Nothing
Set myinbox = Nothing
Set myDestFolder = Nothing

theEnd:

MsgBox ("Finished, items moved " & itemsmoved & ", items not moved " & itemstoprocess - itemsmoved & ".")

End Sub
 

Shane247

New Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server 2010
If I open the email in the first folder it doesn't show me the full email but if I copy the email to another folder, then open it in its own window , it automatically fetches the content from the enterprise vault and then shows me the full email. If I run the above macro on the copied email it still doesn't work though. Is there any way to copy or move (or send to OneNote) the currently open email - is that what the code above is trying to do by calling olkMsg.Display? Maybe I need a delay after calling olkMsg.Display ?
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Do you want to move all selected emails to another folder? If so, try this
Code:
dim item as object,sel as outlook.selection, i as long
...
set sel=application.activeexplorer.selection
for i=sel.count to 1 step -1
  set item=sel(i)
  ...
  if archive then
    item.move mydestfolder
    ...
  endif
next
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
L Email with correct To address but displaying name of a related person Using Outlook 0
A Two Inboxes, Same Email? Using Outlook 3
B Adding signature to bottom of VBA reply email Outlook VBA and Custom Forms 1
J To delete the draft email Using Outlook 0
B VBScript doesn't run on Recipient Email Outlook VBA and Custom Forms 2
J Autoreply email recieved from specific sender after deleting some text from body. Using Outlook 0
M Outlook 2013 reminder email by using Outlook vba Outlook VBA and Custom Forms 2
D Sending email from Office 365 alias in Outlook Using Outlook 4
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 3
S Body text of Email from invite date/time Outlook VBA and Custom Forms 8
R Outlook 2010 How do you export 2 email Accounts' 2010 Inbox Files to new computer (2019)? Using Outlook 1
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
L Outlook saved email templates Using Outlook 1
B VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
T How can you include Junk Email in Search Results like you can include Deleted Items? Using Outlook 3
B Extracting email addresses from a folder - how to also get the name of the person the address is for? Using Outlook 5
W Replyin to the reply-to email address Outlook VBA and Custom Forms 0
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1
M Extract all links from Outlook email, send to Excel Using Outlook 2
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
B Outlook 2003 email sending & receiving suddenly stopped working 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
O Email not leaving Outbox when using Excel VBA to sync Outlook account Outlook VBA and Custom Forms 4
T The non-email functions Using Outlook 8
P Outlook 2013 Word Share doc as Email Attachment now brings up Eudora. Using Outlook 1
C How to rename subject line and forward the email Outlook VBA and Custom Forms 2
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
J Sent Items Folder NOT Showing Correct From Email Address Using Outlook 0
J Outlook Reply > From > Other Email Address... > Address Not Showing in Sent Items... From Email Outlook VBA and Custom Forms 0
T Column to display which email alias a message was sent to Outlook VBA and Custom Forms 6
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using Outlook.com accounts in Outlook 2
HarvMan Hotmail - Sending email is undeliverable Using Outlook 4
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
H In outlook 365 POP mail Inbox, email takes a long time or never arrives. Using Outlook 1
D Can Exchange Admin Center create a pst for users email/contacts/calendar? Exchange Server Administration 0
T After I send a new email, it remains in the Draft folder Using Outlook.com accounts in Outlook 3
P OWA Settings->Calendar->Events from Email; Setting changes do not hold Using Outlook 1
S How to export urls from email to excel and check the status of the url ? New Slipstick.com Articles 6
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
S Change VBA script to send HTML email instead of text Outlook VBA and Custom Forms 3
M ERROR: None of your email accounts could send to this recipient Using Outlook 2
S save email from excel Outlook VBA and Custom Forms 1
T How can we view Blocked email addresses Using Outlook 6
F My hotmail calendar is not syncing with my outlook but my email is Using Outlook 3
O Multiple email accounts - hesitate to create a new profile Using Outlook 3
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
C Outlook Autocomplete suggestions showing wrong person's name against an email address Using Outlook 0
T Outlook converts sent email to txt attachments when sync Using Outlook 0
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
Similar threads


















































Top