TonyTeri.Com

The Ipad as a cannibal?!!!

Coming soon!!!!

The best friends aren’t always the ones only true to your face. It’s about the friends who remain true behind your back.

There are a lot of people who want a free way to export their Outlook notes to separate document files. Here is a step by step method of exporting those notes. It may seem tricky, but it really is simple and should take all of 5 minutes to complete. The actual export happens so quickly you will be astonished. The notes will be exported into Word or text documents with the same name as the notes.

Please understand that Windows does not allow many special characters in file names, so you will need to manually remove any special characters like <.>:”/\|?* from your note name before the conversion. The following device names are also restricted from use as file names by Windows and should not be the name of a note: CON, PRN, AUX, NUL, COM1, COM2, COM3, COM4, COM5, COM6, COM7, COM8, COM9, LPT1, LPT2, LPT3, LPT4, LPT5, LPT6, LPT7, LPT8, and LPT9. To help you out, the code I provided will automatically replace any “/” or “\” characters with a “-”. The rest is up to you to rename manually or you may alter the code to convert even more restricted characters or names.

Create a folder on the root (main part) your C: drive named “Notes”. It is important that this folder be on the root of the C: drive.
Open Outlook.
After Outlook opens, click on the top bar of the Outlook window next to the name Microsoft Outlook.
Press ALT-F11 which will open Outlook’s Visual Basic window. If it does not open, be sure you clicked on the top bar of the Outlook window and press ALT-F11 again.
On the top toolbar, click on Insert and Module. You should see a new window pane open labeled Project1, Module1.
Copy the code you find listed below in this article and paste it in the Module1 window pane. If you wish to export to a document that can be opened in Word (rich text format), use the NotesToRTF code. If you wish to export to text files, use the NotesToText code.
On the top toolbar, click on Run and then click on “Run Sub/Userform”.
A window will pop up asking you to select the folder where your Outlook Notes are located. For most people, this will simply be your normal Outlook Notes folder. Select the Notes folder and then select OK. [More advanced users may select different note folders they may have created, following these steps over and over until all their notes are exported.]
The Notes will quickly be exported at this point. “Running” will appear next to “Microsoft Visual Basic” window name at the top of the screen and disappear when the notes are exported. You may see it flash for a second if you have just a few notes. For hundreds or thousands of notes, it will take longer. Wait for “Running” to go away and you may proceed.
Close the Microsoft Visual Basic window.
Close Outlook. You will receive a popup window asking if you want to save the VBA project. Answer No.
Look in the Notes folder on the C: drive to find your notes.

If you received a “Run time error”, click End and then check the following:

Did you use a restricted character or name in a note?
Did you REALLY name the folder Notes in the ROOT of the C: drive?
Fix the folder name and then go back to the Microsoft Visual Basic window and click on Run and then “Run Sub/Userform” again.
The code is proven and should work every time when you follow the directions. If it still fails, I suspect you may have a corrupted Outlook data file. There are many Hub pages that address how to fix the problem. Simply search for “scanpst” and follow the directions listed in the page.

NotesToRTF Code
?
Sub NotesToRTF()
Set myNote = Application.GetNamespace(“MAPI”).PickFolder
For cnt = 1 To myNote.Items.Count
noteName = Replace(Replace(myNote.Items(cnt).Subject, “/”, “-”), “\”, “-”)
myNote.Items(cnt).SaveAs “c:\notes\” & noteName & “.rtf”, OlSaveAsType.olRTF
Next
End Sub
NotesToText Code
?
Sub NotesToText()
Set myNote = Application.GetNamespace(“MAPI”).PickFolder
For cnt = 1 To myNote.Items.Count
noteName = Replace(Replace(myNote.Items(cnt).Subject, “/”, “-”), “\”, “-”)
myNote.Items(cnt).SaveAs “c:\notes\” & noteName & “.txt”, OlSaveAsType.olTXT
Next
End Sub

Fourth Quarter 2012 Highlights

• Increased fourth quarter 2012 cash dividend to $0.18 per common share, representing an 80% increase over the last six quarters.
• AFFO per share of $0.73.
• Announced $390 million investment in real estate private equity fund interests, including $115 million from our non-traded REIT.
• Acquired $326 million manufactured housing portfolio.
• Total capital raised of $146 million in the fourth quarter for our non-traded REIT.

l>

Yikes,……CLICK TO READ MORE

I did this every day and never knew what it was called.