[RESOLVED] Parsing SenderEmailAddress on incoming Items in Outlook 2003

[lordharlock]

I am trying to create some VBcode in Outlook 2003 that will inspect the SenderEmailAddress and route the email to the appropriate sub folder. As an example to this problem if an incoming email came from the SenderEmailAddress [email protected] I want to move all email from the domain of "@yahoo.com" to the sub folder of my inbox named Yahoo Mail. In trying to do this I ran into a problem where I am getting an error 424 object required. Is there another way to accomplish what I am looking to do? Any help would be greatly appreciated, here is what I have so far:

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
    Dim objNS As NameSpace
    Dim objInbox As MAPIFolder
    Dim objMoveFolder As MAPIFolder
    Dim intDomainNameStart As Integer
    Dim strUserName As String
    Dim strDomainName As String
    
    Set objNS = Application.GetNamespace("MAPI")
    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
    
    '--Sort by SenderEmailAddress--
    intDomainNameStart = Item.SenderEmailAddress.IndexOf("@") 'I get the 424 Error Here
    strUserName = Item.SenderEmailAddress.Substring(0, intDomainNameStart - 1)
    strDomainName = Item.SenderEmailAddress.Substring(intDomainNameStart)
    
    Select Case strDomainName
        Case "@yahoo.com"
            Set objMoveFolder = objInbox.Folders("Yahoo Mail")
        'Case ""
            'Set objMoveFolder = objInbox.Folders("").Folders("")
        Case Else
            '
    End Select
    
    If Not objMoveFolder Is Nothing Then
        Item.Move objMoveFolder
    End If
 
    Set objMoveFolder = Nothing
    Set objInbox = Nothing
    Set objNS = Nothing
End Sub