mails moving

[hemanttt]

New to VBA => Please refer to below codes- I want to move different sender emails to different different subfolders in outlooks, in my excel Range a1:a3 i have sender names, i will add folder names in range b1:b3, so i want that each sender email to move into respective folder by reffering to excel range please help..........

Please Login or Register  to view this content.

[AliGW]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are new here, I have done it for you this time.)

[hemanttt]

Somebody help pls

[k1dr0ck]

try below, untested as i have no outlook data

Please Login or Register  to view this content.

[hemanttt]

Hello Sir,

Thanks for coming to help me Really appreciated... Thanks for your time.

Its perfectly working after some little modifications, really appreciated your help.

You are the first one on all online forums gave exact solution

THANKS...!!!!!

[hemanttt]

Sir, I worked on your given solution and accordingly i modified my code, it was working file but now it is giving "Automation error"

Please guide me how i can resolve this error ?

[code]

Sub MoveItems_to_outlook_folder()

Dim myNameSpace As Outlook.Namespace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Dim folder_name As String

Dim Recip As Outlook.Recipient

Set myNameSpace = GetNamespace("MAPI")
Set Recip = myNameSpace.CreateRecipient("ABC.com")
Recip.Resolve
If Recip.Resolved Then

Set myInbox = myNameSpace.GetSharedDefaultFolder(Recip, olFolderInbox) ' Getting automation error at this line
'myInbox.Display
End If
Set myItems = myInbox.Items

Dim wbk As Workbook
Dim ws As Worksheet

Set wbk = Workbooks("Example.xlsm")
Set ws = wbk.Worksheets("Sheet1")

Dim varSearchTerms As Range 'converted to range
Set varSearchTerms = ws.Range("A2:A3")

Dim varSearchTerm As Range 'converted to range

For Each varSearchTerm In varSearchTerms

folder_name = varSearchTerm.Offset(0, 1).Value
Set myItem = myItems.Find("[SenderName] = '" & varSearchTerm & "'")

Set myDestFolder = myInbox.Parent.Folders(folder_name)
'myDestFolder.Display


While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend

Next
Set myNameSpace = Nothing
Set myItem = Nothing
Set myDestFolder = Nothing
Set myItems = Nothing

End Sub

[k1dr0ck]

what is the olFolderInbox?

im not yet an expert manipulating data in outlook maybe someone can take a look

Please Login or Register  to view this content.