ಕುಡುಕ ಕುರುಡನ ಮೂಕ ಕಥೆ - ಭಾಗ ೧

ಕಲಾವಿದ(ಕುಡುಕ) ರಂಗ ಮಂದಿರದ ಮಧ್ಯಕ್ಕೆ ಬಂದು ಕೆಲವು ಸನ್ನೆಗಳನ್ನು ಮಾಡುವನು. ಪ್ರೇಕ್ಷಕರಿಗೆ ಅರ್ಥವಾಗದ್ದನ್ನು
ಮನಗೊಂಡು ಮಾತನಾಡಲು ಶುರು ಮಾಡುವನು.

ಕುಡುಕ :ಏನು ಅರ್ಥ ಆಗಲಿಲ್ಲ ತಾನೆ? ಸರಿ ನಾ ಮಾಡಿದ ಸನ್ನೆಗಳ ಅರ್ಥ ಹೇಳ್ತೀನಿ ಕೇಳಿ. ನಾನೇನು ಹೇಳ್ದೆ ಅಂದ್ರೆ, "ನಾನೇನೋ ಕುಡುಕ ನಿಜ. ಆದ್ರೆ ನಾನು ಕುರುಡಾನೂ ಅಲ್ಲ, ಮೂಕನೂ ಅಲ್ಲ. ಎರಡು ನಿಮಿಷ ಕಣ್ಮುಚ್ಕೊಂಡು ಸನ್ನೆ ಮಾಡಿದ್ರೆ, ನಾನು ಯಾವ್ ಕಡೆ ತಿರುಗಿದೀನಿ ಅಂತ ನನಗೆ ಗೊತ್ತಾಗ್ಲಿಲ್ಲಾ , ನಾನೇನು ಹೇಳ್ತಾ ಇದ್ದೀನಿ ಅಂತ ನಿಮ್ಗೆ ಗೊತ್ತಾಗ್ಲಿಲ್ಲ. ಬೇಕ ನಮಗೆ ಈ ಕುರುಡನ ಮೂಕ ಕಥೆ. ನಾಟಕದ ಹೆಸರೇನೋ 'ಕುಡುಕ ಕುರುಡನ ಮೂಕ ಕಥೆ ' ಅಂತ ಇರಬೋದು, ಆದ್ರೆ ನಮಗೆ ಅದ್ರ ಗೋಜೇ ಬೇಡ. ಸುಮ್ನೆ ಈ ಕುಡುಕನ ಕಥೆ ಕೇಳಿ ಮಜಾ ತೊಗೊಂಡು ಹೋಗಿ. ಕುರುಡನ ಮೂಕ ಕಥೆ ಹೇಳಕ್ಕೆ ನಾನೇನು Helen Kellerಉ ಅಲ್ಲ, ನಮ್ಮ ನಿರ್ದೇಶಕರು Annie Sullivan ತರಹದ Miracle Worker ಕೂಡ ಅಲ್ಲ. ಏನು ಹಂಗೆ ನೋಡ್ತಾ ಇದ್ದೀರಾ? ಅದೇ ನಮ್ಮ ಅಮಿತಾಬ್ ಬಚ್ಚನ್ ಮತ್ತು ರಾಣಿ ಮುಕರ್ಜಿ ಅವರು ಮಾಡಿರುವ Black movie ಇದ್ಯಲ್ಲ ಅದು ನಿಜವಾಗ್ಲೂ ಹೇಳ್ಬೇಕು ಅಂದ್ರೆ ಹಾಲಿವುಡ್ ನಲ್ಲಿ ಮಾಡಿದ Miracle Worker ಅನ್ನೋ ಚಿತ್ರದ ರಿಮೇಕ್. ಆ ಚಿತ್ರಕ್ಕೆ ಮೂಲ ಸ್ಪೂರ್ಥಿ ಈ  Annie Sullivan ಮತ್ತು Hellen Keller. ಆ ಚಿತ್ರದ ತರಾನೆ ನಮ್ ನಾಟಕ ಅನ್ಕೊಂಡ್ರ? ಇಲ್ಲ ಕಣ್ರೀ, ಹಳೇ ಕಾಲದ ಮೂಕಿ ಚಿತ್ರ ಅಲ್ಲ ನಮ್ದು ಈಗಿನ ಕಾಲದ ಟಾಕಿ ನಮ್ದು."

A macro in Office Outlook to export mails

There’s no honour in working hard inefficiently. Only disgrace.

I read this somewhere on net. So I thought, why not make my daily chores like sorting and clearing my inbox more automated and less time consuming. Hence I wrote a code snippet that saved me a lot of time and effort. And moreover it made me happy everytime i ran the script. ;)

What the script does : It send all the mails in the folder "Nice" under "Inbox" to an email id of your choice and then deletes them from the folder "Nice".



Steps to set up this in your Outlook
1.) Goto Tools->Macros->Macros or Alt+F8
2.)Type Macro name as ExportToGmail and click on Create
3.)Microsoft Visual Basic Editor will open up.
4.)Copy paste the below code in the appopriate place for the Sub ExportToGmail()

==============================================

---

Sub ExportToGmail()


Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objInbox As MAPIFolder
Dim objConvHist As MAPIFolder
Dim objMail As MailItem
Dim myFolder As MAPIFolder


'Get the MAPI reference
Set objNameSpace = objOutlook.GetNamespace("MAPI")


'Pick up the Inbox
Set objInbox = objNameSpace.GetDefaultFolder(olFolderInbox)
Set myFolder = objInbox.Folders("Nice")


For Each Item In myFolder.Items
Set mailToSend = objInbox.Items.Add


With mailToSend
.Subject = Item.Subject
.Body = Item.Body
.To = "ABC@XYZ.com"
.Send
End With


Item.Delete
Next Item


MsgBox "Your mails from folder NICE are exported to Gmail", vbInformation, Oops
End Sub

---

===============================================
5. Change the (.To =) from ABC@XYZ.com to your mail id. and save the code. (Mail Id should be in double quotes)
6. Create folder called "Nice" below inbox in your outlook. If you want to change the name of the folder, change the entry in the code respectively.
7. Move all the emails that you want to export to the folder "Nice" .
8. Now go to Goto Tools->Macros->Macros or press Alt+F8
9. Click on the ExportToGmail() Macro in the list and click Run

If you want to use this macro regularly just let me know. I will explain how to create an icon on Outlook for the same. So that you can export all the mails in the folder just by a click of the mouse.