Hmm.. It was meant to make a point. I don't want advice from SHELL users on
how much to quote.
I don't want to discuss netiquette. I want to discuss linux/gnu etc.
anycase. I can write a vishal filter for anyone who does not want to read my
mail. :(
Here is an outlook 2k macro ....
'by vishal doshi
VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 'create your own
GUID please
'guidgen
will do the trick
' vishal
Caption = "UserForm1"
ClientHeight = 1770
ClientLeft = 45
ClientTop = 330
ClientWidth = 3435
OleObjectBlob = "UserForm1.frx":0000
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim flr As Outlook.MAPIFolder
Private Sub cmdSeek_Click()
Dim cnt, x As Integer
Set myItems = flr.Items
Set myDestFolder = OpenMAPIFolder("\Personal Folders\LUG\LUG-JNK")
Set MyItem = myItems.Find("[SenderName] = '" & txtName.Text & "'")
While TypeName(MyItem) <> "Nothing"
'myItem.Move myDestFolder
Debug.Print MyItem.SenderName
Set MyItem = myItems.FindNext
Wend
End Sub
Function OpenMAPIFolder(ByVal szPath As String) As Outlook.MAPIFolder
Dim app As Outlook.Application
Dim ns As Outlook.NameSpace
Dim flr As Outlook.MAPIFolder
Dim szDir As String
Dim i As Long
Set app = Application
If Left(szPath, 1) = "\" Then
szPath = Mid(szPath, 2)
Else
Set flr = app.ActiveExplorer.CurrentFolder
End If
While szPath <> ""
i = InStr(szPath, "\")
If i Then
szDir = Left(szPath, i - 1)
szPath = Mid(szPath, i + 1)
Else
szDir = szPath
szPath = ""
End If
If flr Is Nothing Then
Set ns = app.GetNamespace("MAPI")
Set flr = ns.Folders(szDir)
Else
Set flr = flr.Folders(szDir)
End If
Wend
Set OpenMAPIFolder = flr
End Function
Private Sub txtFolder_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
Set flr = OpenMAPIFolder("\Personal Folders\" & txtFolder)
End If
End Sub
Private Sub UserForm_Activate()
Set flr = OpenMAPIFolder("")
txtFolder.Text = flr
txtName.Text = "vishal" ' or whatever.
End Sub
cut and save as a userform. Import into outlook 2k. RUN. or set rule to run
when mail arrives.
It'll move stuff from vishal or [EMAIL PROTECTED] or
[EMAIL PROTECTED] (since vishal =
([EMAIL PROTECTED],[EMAIL PROTECTED],"vishal")) as far as outlook
is concerned. to folder LUG-JNK. (leave it there. Programs like altavista
discovery can index it ... )
I use a variant of MailCat (altered by yours truly) (search ACM.org (you
will need a account. $39 pa)) that relies on loads of text to learn about my
preferences. It auto moves, deletes and classifies mail for me. You can also
search acm.org for stuff on text classification.
Vishal
PS: I never ever delete mail. My mail folder is 600 MB right now. All
indexed by Altavista discovery. Keeping loads of context helps me.
so I can search my mail for stuff like
'mail about kernel 2.2.x' (what if the original query is found but not the
reply ? I can;t remember all the keywords. Sometimes imp info is lost.)
> -----Original Message-----
> From: Manish Jethani [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, May 16, 2000 12:38 AM
> To: [EMAIL PROTECTED]
> Subject: Re: large quoted to reply ratio
>
>
> > 'twas a joke; That's why the smiley.
>
> Wasn't funny :-) I don't think anyone (except you) enjoyed it.
>
> To subscribe / unsubscribe goto the site www.ilug-bom.org .,
> click on the mailing list button and fill the appropriate information
> and submit. For any other queries contact the ML maintener
To subscribe / unsubscribe goto the site www.ilug-bom.org ., click on the mailing list
button and fill the appropriate information
and submit. For any other queries contact the ML maintener
