Urgent And Important

1. Open out look and press Ctrl + F11
2. paste the following source code.
3. press F5 to execute and give numbers as per your choice.
-----------------------------------------------------------------


Sub AAASaveMails()

Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myForFolder As Outlook.Folders
Dim myMail As Outlook.MailItem
Dim Path As String
Dim Folder As String
Dim DestFolder As String


Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Path = InputBox("Enter the destination location", "SAVE", "C:\Arun\Mails\")
Set fs1 = CreateObject("Scripting.FileSystemObject")
Set a = fs1.CreateTextFile("c:\Reference.txt", True)

Pfl = 1

Do While Pfl <= myNamespace.Folders.Count
PFNames = PFNames & vbCrLf & Pfl & " . " & myNamespace.Folders.Item(Pfl).Name
Pfl = Pfl + 1
Loop

PFolder = InputBox(PFNames, "Enter the Number", 4)

If PFolder >= 1 And PFolder <= myNamespace.Folders.Count Then

Set myForFolder = myNamespace.Folders.Item(PFolder).Folders
CurrentPath = Path
fl = 1
Do While fl <= myForFolder.Count
FNames = FNames & vbCrLf & fl & " . " & myForFolder.Item(fl).Name
fl = fl + 1
Loop
Folder = InputBox(FNames, "Enter the Number", 8)
Set fs = CreateObject("Scripting.FileSystemObject")
If Folder > 1 And Folder <= myForFolder.Count Then
For j = 1 To myForFolder.Item(Folder).Items.Count
Set myMail = myForFolder.Item(Folder).Items.Item(j)
If (fs.FolderExists(Path & Format(Replace(DateValue(myMail.ReceivedTime), "/", "-"), "dddd, mmm d yyyy")) = False) Then
If q <> 0 Then
a.WriteLine (q - 1 & " items saved in " & CurrentPath)
End If
Set CurrentPath = fs.CreateFolder(Path & Format(Replace(DateValue(myMail.ReceivedTime), "/", "-"), "dddd, mmm d yyyy"))
CurrentPath = CurrentPath & "\"
q = 1
Else
CurrentPath = Path & Format(Replace(DateValue(myMail.ReceivedTime), "/", "-"), "dddd, mmm d yyyy")
CurrentPath = CurrentPath & "\"
End If

If q < 10 Then
Z = "00" & q
ElseIf q < 100 Then
Z = "0" & q
Else
Z = q
End If

If (myMail.Attachments.Count > 0) Then
If (fs.FolderExists(Path & "Attachments") = False) Then
Set CurrentPath1 = fs.CreateFolder(Path & "Attachments")
End If

If (fs.FolderExists(Path & "Attachments\" & Format(Replace(DateValue(myMail.ReceivedTime), "/", "-"), "dddd, mmm d yyyy")) = False) Then
Set CurrentPath1 = fs.CreateFolder(Path & "Attachments\" & Format(Replace(DateValue(myMail.ReceivedTime), "/", "-"), "dddd, mmm d yyyy"))
End If

For k = 1 To myMail.Attachments.Count
Subject = Replace(myMail.Subject, ":", " ")
Subject = Replace(Subject, "/", "")
Subject = Replace(Subject, ".", "")
Subject = Replace(Subject, "?", "")
Subject = Replace(Subject, Chr(34), "")
Subject = Replace(Subject, "<", "")
Subject = Replace(Subject, ">", "")
AttName = Replace(myMail.Attachments.Item(k).DisplayName, ":", "")
myMail.Attachments.Item(k).SaveAsFile CurrentPath1 & "\" & Z & " . " & Subject & " " & AttName
Next k
End If

M = Split(myMail.ReceivedTime, " ")
N = Split(M(1), ":")

If (myMail.Subject = "") Then
FileName = CurrentPath & Z & " . " & "NoSubject " & N(0) & " " & N(1) & " " & N(2) & " " & M(2) & ".msg"
Else
Subject = Replace(myMail.Subject, ":", " ")
Subject = Replace(Subject, "/", "")
Subject = Replace(Subject, ".", "")
Subject = Replace(Subject, "?", "")
Subject = Replace(Subject, Chr(34), "")
Subject = Replace(Subject, "<", "")
Subject = Replace(Subject, ">", "")
FileName = CurrentPath & Z & " . " & Subject & " " & N(0) & " " & N(1) & " " & N(2) & " " & M(2) & ".msg"
End If

FileName = Replace(FileName, "?", "")
myMail.SaveAs FileName, olMailItem

q = q + 1

Next j
Else
s = MsgBox("Enter a valid Number", vbCritical)
End If

Else
s = MsgBox("Enter a valid Number", vbCritical)
End If
a.WriteLine (q - 1 & " items saved in " & CurrentPath)
s = MsgBox("Done", vbInformation)

End Sub
 

------------------------------------------------------------------------------------------------------------------------------------------------------------------

Recover deleted items from any folder in Outlook

This feature requires you to use a Microsoft Exchange Server e-mail account. This feature is designed for advanced users who are comfortable backing up and modifying the Microsoft Windows® Registry. Outlook provides a way to recover items after you have permanently deleted them, including after emptying the Deleted Items folder. Your Exchange server administrator specifies the retention time for permanently deleted items on the Exchange server. After this time has elapsed, you cannot recover the deleted items. By default, to use the Recover Deleted Items command on the Tools menu, you must be viewing the Deleted Items folder. By modifying the registry, this command is available regardless of which Outlook folder that you are viewing. You can view and recover deleted items, including those items that were permanently deleted by using SHIFT+DELETE, for the folder that you are viewing. Note If you deleted an item and emptied the Deleted Items folder, click Deleted Items to use Recovered Deleted Items. Only items that you permanently deleted with SHIFT+DELETE or SHIFT+ are available in folders other than Deleted Items. Caution If you use the registry editor incorrectly, you might cause serious problems that might require you to reinstall your operating system. Microsoft cannot guarantee that you can solve problems that result from using the registry editor incorrectly. Use the registry editor at your own risk.

Exit Outlook.
Open the Windows registry editor.
Browse to My Computer\HKEY_LOCAL_MACHINE\Software\Microsoft\Exchange\Client\Options.
On the Edit menu, point to New, and then click DWORD Value.
Type the name DumpsterAlwaysOn.
Note Do not type any spaces in the name.

Set the DWORD value to 1.
Restart Outlook.
The Tools menu now has the Recover Deleted Items command for every Outlook folder.

For a detailed description please refer to the next link http://office.microsoft.com/en-us/assistance/HA011165281033.aspx
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Robbers and Anti socials trying to loot you on the road 

Dear Friends, Please read this horrifying incident. This may happen to anyone anytime....Request you to please find my suggestion for the best solution to this. I would request you to please reply your thoughts on solution too.
Issue :
From: Jaiswal, Vineet (GE Indust, ConsInd)
Date: Fri, May 21, 2010 at 11:47 AM
Dear Suncity Residents - I would like to inform you of a rather unpleasant incident that happened with me last Monday, when I was returning home from my office during daytime for lunch. As soon as I took the left turn from ORR towards Suncity, two people on a black colored pulsar bike behind me started honking wildly and came by side of the car, asking me to stop. I lowered my glass window and they told me that I have caused an accident while on the way and they have been trying to stop me by following me since then. After this they stopped the bike in front of my car and I had to stop the car just after Drapes View. I thought that there would have been a misunderstanding of some sort since I didn't recall being involved in any accident or hit while on my way. My intention was to talk to them and pacify them. As soon I stepped out of the car, the guy driving the bike said that I had driven the car over the foot of the person sitting on the pillion of the bike and that his foot was badly injured. He then said that there is a huge crowd that has gathered at the spot of the so called accident and I need to go back to that spot to settle things. After this they came and forcibly sat inside the car, leaving the bike outside. Bike driver who now sat on the front seat of my car started threatening me by claiming that the person I have injured is the younger brother of a local goon, Munianna and that he is not going to leave me unharmed for this. I tried to reason with him and offered to take the other person to hospital to treat any possible injury that might have happened to him. He did not listen to me and went on with his threats, even uttering intentions to harm my car, apartment and family if not complied to his demands immediately. Sensing trouble, I tried to call my colleague back at office at which he suddenly became violent and broke the rear view mirror of the car. Their sheer audacity of doing this in broad daylight, immediate damage to my car and continuous threatening by now led me to believe that they were indeed real goons and I had got caught in their clutches. He started demanding Rs 2 lakh as settlement for the injury to his friend. When I said that I didn't have Rs 2 lakh, they asked me to get the money from the ATM. I told them that I had only 15k in ATM and I cannot pay them Rs 2 lakh at which they forced me to hand over my two gold rings and a gold chain. They said that this is not enough and they need whatever money I had in ATM plus another Rs 1.5 lakh. I was then forced to drive to the ATM with these guys following me on bike and withdraw cash. I was unable to note down the registration number of the bike as it was in Kannada. Thoughts of fleeing away after hitting them with the car and then going to police or shouting to gather crowd came to my mind but I decided against it as there wasn't any use doing these things with goons, they would have waylaid me again and done greater harm. I wanted to get out of the situation and hence I withdrew Rs 14,000 and gave it to them. As soon as I handed the money to them, they asked me to follow them but then they fled away. At that time I realized that this might be a gang operating for this very purpose and I had been one of their victims.

I went to HSR layout police station immediately to lodge a FIR, the SI refused to lodge one and instead took a written complaint without any receipt. My repeat visit didn't yield any results as SI/Inspector would not be present in the police station. Later on I came to know through various sources including police that such kind of incidents are on the rise in ORR/HSR Layout. The miscreants who looted me were on black colored Pulsar bike with registration number plate in Kannada and were in mid thirties(one stocky dark fellow and other was average build having wheatish complexion)
Please exercise caution even during daytime and do not fall in the trap of these miscreants as I did. Its advisable not to stop the car for any unknown person even during daytime irrespective of the reason given by them. Even if you have to do this, drive the car to a place where you are comfortable and have help available at hand. I would appreciate if anybody from EC can help me with getting the FIR lodged in HSR police station.
Please be safe.
Vineet
-----------------------------------------------------------------------------------------------------
Solution :It is high time we citizen should form a local citizen protection groups who should be available at a tool free call away ( Very similar to 1098 for Sanjeevani, 100 for police, 101 for fire brigade etc. ). The number should be so easy to guess and so handy that next time any one falls victim to such robbers on the road and any passerby will just call the citizen protection group. These citizen protection group should not be bound to any legal consequences, should have undisclosed identity and should be among the mob ( Very similar to how Sriram sena works ) Just call them and they reach the spot from every direction and then will give a nice punishment to such robbers. Then you will see the world will change overnight. Robbers will vanish and police ( who now is bound to respond to inflation by collecting weekly dearness allowance from such robbers ) will start looking for the citizen protection group activists instead.

Anyway my immediate suggestion to this victim is please write a complete FIR mail and send it to the following people.

DCP South Zone, Mr. T.G.Krishna Bhatta., Mobile No. 9900206710
DCP Central Zone, Mr. G.Ramesh, IPS, Mobile No. 9900206712
DCP of EAST ZONE, Mr. B.K.Singh, Mobile No. 9900206711
DCP of West Zone Mr. SHIVAKUMAR, IPS, Mobile No. 9900206708
DCP SOUTH EAST Zone, Mr.B.N.S.REDDY, Mobile No. 9900206714
DCP North Zone, Mr.Ulfat Hussain, Mobile No. 9900206709
DCP NORTH EAST Zone, Mr.BASAVARAJU MALAGATHI, Mobile No. 9449787287
SRI. PRAVEEN SOOD, Addl. Commissioner of Police (Traffic), Mobile No. 9900193803


dcomeast@bcp@gov.in; addlcpts@bcp.gov.in; dcomwest@bcp@gov.in; dcomnorthbcp@ksp.gov.in;ksdgp@bgl.vsnl.net.in; digpctrs@bgl.vsnl.net.in; adgpcts@bgl.vsnl.net.in; dgpks@bgl.vsnl.net.in; adgpttm@bgl.vsnl.net.in; igpgc@bgl.vsnl.net.in; igpats@bgl.vsnl.net.in; igprs@bgl.vsnl.net.in; igpksrp@bgl.vsnl.net.in; digphq1@bgl.vsnl.net.in; digphq2@bgl.vsnl.net.in; digpksrp@bgl.vsnl.net.in; digpadmn@bgl.vsnl.net.in; aigpcrim@bgl.vsnl.net.in; aigpgenl@bgl.vsnl.net.in; igperdng@sancharnet.in; igpmlr@sancharnet.in; crigpol@vsnl.net; igpnr@sify.com; igp_sr@yahoo.com; igpnergba@sancharnet.in; ccps@kar.nic.in; cmd@skphc.org; igppcwms@giasbgo1.vsnl.net.in; digpscrb@giasbg01.vsnl.net.in; scrbkar@giasbg01.vsnl.net.in; rupak@bglvsnl.net.in; compolmys@yahoo.com; compol_hd@sancharnet.in; copblore@rediffmail.com; copcomputer@bcp.gov.in; spudupi@sancharnet.in; spdk@sancharnet.in; spdvgsp@sancharnet.in; sp_shimoga@sify.com; spkodagu@sancharnet.in; sphassan@sancharnet.in; dispolbj@rediffmail.com; spruralbngdist@vsnl.net; kgfsp@yahoo.com; sphaveri@hotmail.com; spbgk@sancharnet.in; sprlys@vsnl.net; spchn@sancharnet.in; spckm@yahoo.com; spmdy@sancharnet.in; spmysore@sancharnet.in; spbgm444@yahoo.com; sptumkur@sancharnet.in; sp_gadag@yahoo.co.in; dispolgba@yahoo.com; spdharwad@sancharnet.in; spkolar@sancharnet.in; spkarwar@sancharnet.in; spkoppal@sancharnet.in; sniferdog@yahoo.co.in; spraichur@sancharnet.in; spbly@sancharnet.in; mike1ctd@sancharnet.in; postmaster@karnatakastatepolice.org;

Sanjeevani (  An Instant first aid and Medico Surgical assistance in Bangalore ) :