|
Urgent And Important |
|
|
To Save Outlook inbox as text files in folders :
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 ) :
All these days the victims
were at the mercy of Auto drivers to take us to the hospital. But, now this
desperate condition no longer exists, at least in Bangalore. You have to dial
just 1062. An Ambulance with paramedics will be there at your door step or at
the accident spot with in 10 minutes. On 23rd evening, at Hotel Atria,
Bangalore there was a small function to thank the crew of "OPERATION
SANJEEVINI" (the team behind 1062) on the occasion of saving 100th life in
Bangalore. The victims spoke how their lives (and family) were saved by
telephoning 1062. Operation Sanjeevini is a network of hospitals having
dedicated ambulances to manage Accidents & emergencies in and around
Bangalore. You have to just call 1062 anywhere within 100 km radius of
Bangalore, you will get help. THIS IS FREE OF COST!!!! Please spread this
message.......
Kind regards
Rajani Kanta Samantara
MICO(CTG )