Outlook Folder

[syed_mushraf]

I have different folders in the InBox as per the sender name. My requirment is to auto receive email in it by its respective name. Currently i need to forward it manually. plz help

 

[CDICKENS]

Look into setting up a rule on email from those people. Rules will automatically send email as it is received into any folder you specify. You can also set flags and read status or even automatically "Delete" emails from a person you deem necessary. ;?)

Tyoe email rules in Outlook help and it will show you how to set one up.

 

[mahen77]

Hi,

In Yahoo mail you can go to opetions and select Filter and do your own settings like Sort your incoming mail automatically into designated folders.

Hope this will help.

Thanks
Manu

 

[BrianB]

You might fine that Views/Current Views ... By Sender does what you want without making the folders. Or, if you do not want to set a load of individual rules, try this :-

'=============================================
'- SORT INBOX EMAILS INTO NAMED FOLDERS
'=============================================
Dim MyOlApp As Object
Dim MyNamespace As Object
Dim MyMailFolder As Object
Dim MyName As String
Dim MailBoxName As String
Dim MyMailItem As Object
Dim MailBody As String
Dim MailSenderName As String
Dim NameFolder As Object
Dim Counter As Integer
'-----------------------------------------------------------------------
Sub InboxTransfer()
    Set MyOlApp = CreateObject("Outlook.Application")
    Set MyNamespace = MyOlApp.GetNamespace("MAPI")
    MyName = MyNamespace.CurrentUser
    MailBoxName = "Mailbox - " & MyName
    Set MyMailFolder = MyNamespace.Folders(MailBoxName).Folders("Inbox")
    '-------------------------------------------------------------------
    '- CHECK EMAILS IN INBOX
    Counter = 0
    For i = 1 To MyMailFolder.Items.Count
        Set MyMailItem = MyMailFolder.Items(i)
        MailSenderName = MyMailItem.SenderName
        Application.StatusBar = " Checking mail for " & MailSenderName _
            & "     Found " & Counter & " so far.)"
        '----------------------------------------------------------------
        '- Try to set folder & trap error if it does not exist
        On Error Resume Next
        Set NameFolder = _
            MyNamespace.Folders(MailBoxName).Folders(MailSenderName)
        If Err.Number <> 0 Then
            Err.Clear
            rsp = MsgBox("Folder for " & MailSenderName _
                & " does not exist.", vbCritical + vbOKCancel)
            If rsp = vbCancel Then GoTo ClearObjects
        Else
            MyMailItem.Move NameFolder
            Counter = Counter + 1
        End If
    Next
    '-------------------------------------------------------------------
    '- FINISH
    MsgBox ("Transfer complete. " & Counter & " emails.")
    Application.StatusBar = False
    '-------------------------------------------------------------------
ClearObjects:
    Set MyMailItem = Nothing
    Set MyNamespace = Nothing
    Set MyOlApp = Nothing
End Sub

 

[syed_mushraf]

Where do I paste this code to run ?

 

[BrianB]

Use Alt +F11 keys from Excel to get the VB Editor
Insert/Module
Copy/paste code from here.
THe module becomes part of the workbook when it is saved.

 

[syed_mushraf]

How will it applicable in outlook. plz guide.