Outlook VBA macro to move from archive folder to Inbox folder -


I am in the condition described in this thread

My source folders (Enterprise Vault) sub folder.

"Do main folder \ subfolder 1 \ subfolder 2 \ subfolder 3 \ SOURCEFOLDER"

Target folder my "inbox"

How do I sub-folders specified? I was getting an error below and, I have a noob in VBA. 

  as new Outlook.Application dim olNameSpace as Outlook.NameSpace'm retarded Outlook.MAPIFolder retarded olApp sub MoveToFolder () as dim olArcFolder OlCompFolder in Outlook.MAPIFolder Dim Melboksonamstring as In Outlook as string dim myInspectors. MailItem dim as myCopiedInspectors integer as Outlook.MailItem dim M as Outlook.MailItem dim myItem set integer as dim Icount olNameSpace = olApp.GetNamespace ( "MAPI") Set OlApp.GetNamespace ( "Mapi"). GetDefaultFolder (olFolderInbox) .Parent.Folders ("according to") set olArcFolder = olNameSpace.Folders ("stored on email computer"). Folder ( "Main folder \ Subfolder1 \ Subfolder2 \ Subfolder3 \ SOURCEFOLDER") # #set olArcFolder = olNameSpace.Folders ( "e-mail" stored on the computer). Set folder ("main folder \ subfolder1 \ subfolder2 \ subfolder3 \ sOURCEFOLDER") olCompFolder = olNameSpace.Folders ("stored on email computer"). Set myItem = olArcFolder.items (m) to y = 1 for the folder ("inbox"), set myInspectors = Outlook.Application.ActiveInspector.CurrentItem set myItem = olArcFolder.items (m) to myCopiedInspectors = myInspectors.copy myCopiedInspectors.Move olCompFolder myInspectors.Close olDiscard Next M End Sub

but 

  set olArcFolder = _ olNameSpace.Folders ("stored on email computer"). Folder ( "Main folder \ Subfolder1 \ Subfolder2 \ Subfolder3 \ SOURCEFOLDER")

Try 

  set olArcFolder = _ olNameSpace.Folders ( "e-mail on a computer Archived "). Folder ("main folder" folders "(" subfolder 3 "). Folder (" source folder ")

-

Comments

Post a Comment

Popular posts from this blog

Member with no value in F# -

After I am trying to convert F # to the following C # code: [StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi)] Private class DOCINFOA {[MarshalAs (UnmanagedType.LPStr)] public string nomeDocumento; [Marshall (UnmanagedType.LPStr)] Public string arquivoSaida; [Marshall (UnmanagedType.LPStr)] Public String Tipodo; } I am doing the following: Named place printer module RawPrinterHelper = [& LT; StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi) & gt;] Type DOCINFOA = [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member this.nomeDocumento [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member this.arquivoSaida [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member This Tipoda [/ code> But I get: One type of definition is necessary for one or more members . Can I vacate these members? you val code> member : [& lt; StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi) & gt;] Type DOCINFOA = [...
Read more

java - Joda Time Interval Not returning what I expect -

मेरे पास निम्न प्रोग्राम है import java.util। *; Import java.text। *; आयात करें org.joda.time। *; सार्वजनिक श्रेणी के स्कोप कंट्रोल {सार्वजनिक स्थिर अंतराल मिलनसार () {दिनांक समय currDate = नया दिनांक समय (2008, 4, 4, 15, 30, 0, 0); दिनांक समय epochDate = नया दिनांकटाइम (2000, 1, 1, 12, 0, 0, 0); अंतराल अंतराल = नया अंतराल (युरोप डेट, करोडेट); वापसी अंतराल; } सार्वजनिक स्थिर शून्य मुख्य (स्ट्रिंग [] आर्ग्स) {डबल दिनबात = मिलते समय ()। ToDurationMillis () / 1000/60/60/24; StdOut.println (daysBtween); }} मुझे आउटपुट मिल रहा है: 3016.0 लेकिन जो मैं देख रहा हूं वह है: 3016.1458333333 मैं क्या कर रहा हूँ ? toDurationMillis एक लंबा लौटा देता है, और प्रत्येक प्रभाग को int के रूप में घोषित किया जाता है। जावा इस प्रकार इनट्स को लॉन्ग में परिवर्तित कर देगा और डिवीजन को लंबे समय तक लौटाना होगा। परिणाम को अंत में दोहरे रूप में परिवर्तित करना। डबल्स का उपयोग करके अभिव्यक्ति करने के लिए जावा को बताने के लिए, अभिव्यक्ति के किसी भी घटक को दोहरे रूप में घोषित करें। उदाहरण के लिए: ...
Read more

c# - Showing a SelectedItem's Property -

So I have enabled a rightclick option for my DataGrid. I want to display the only chosen property but it is not behaving like what I would like it to display my name and additional. Public category Paymentinfo {public int PaymentNo {get; Set; } Public string date {get; Set; } Public Double Pay {get; Set; } Public Double Principle {get; Set; } Public Double Interest {get; Set; } Public Double Balance {Received; Set; }} Private Zero MenuItem_OnClick (Object Sender, RoutedEventArgs e) {MessageBox.Show (AmortGrid.SelectedItem.ToString ()); } I'm trying to apply it without using a View Module! If I place a breakpoint where the messagebox and the recipient place it on selected ITEM, then this property will display the payment. A date-payment-principle-interest-balance is the only value that needs payment. Was hoping that it would be something like this MessageBox.Show (AmortGrid.SelectedItem.PaymentNo.ToString ()); When you call ToString () So you get the class typ...
Read more