[RESOLVED] Cannot move emails

[tommygrayson]

Hi guys!!!



Need help. Cannot move e-mail to folder. Don't know why.

Dim OrganizerApplication As New Outlook.Application
    Dim OrganizerNS As Outlook.NameSpace
    Dim OrganizerFolder As Outlook.Folders
    Dim DestFolder As MAPIFolder
    Dim InboxItem As Outlook.MailItem
    Dim InboxCount As Integer
    Dim DestFolderCount As Integer
    Dim Sender As String
    Dim CompareFolder As String
    Set OrganizerNS = OrganizerApplication.GetNamespace("MAPI")
    Set OrganizerFolder = OrganizerNS.Folders.Item("Mailbox - Ian Eco (DHL PH)").Folders
    Set DestFolder = OrganizerNS.Folders.Item("IAN Personal")
    InboxCount = 1
    Do While Not InboxCount = OrganizerFolder.Item(2).Items.Count
        On Error Resume Next
        Set InboxItem = OrganizerFolder.Item(2).Items.Item(InboxCount)
        If Err = 13 Then
        Else
            Sender = InboxItem.SenderEmailAddress
            DestFolderCount = 1
            Do While Not DestFolderCount = DestFolder.Folders.Count + 1
                CompareFolder = Replace(DestFolder.Folders.Item(DestFolderCount), " ", ".")
                If InStr(1, Sender, UCase(CompareFolder)) > 0 Then
                    InboxItem.Move (DestFolder)
                End If
                DestFolderCount = DestFolderCount + 1
            Loop
        End If
        Err = 0
        InboxCount = InboxCount + 1
    Loop

[RobDog888]

I take it that this is not your mailbox? Do you have the proper permissions when and if the other user shared or delegated his inbox?

[tommygrayson]

No this is my inbox in Exchange Server.

But I wanted it to transfer to my Personal Folders.

[RobDog888]

"IAN Personal" is your added pst file?

[tommygrayson]

Yes it is.

[RobDog888]

Then you need to reference it by the StoreID also and not just the folder name possibly. Do you get a correct reference to it with the MAPIFolder object? Can you read items in it?

[tommygrayson]

Yes I can read everything.

I can also delete and copy the inbox mail message.

I can also move it to the calendar which is very weird.

I just can't move it to the Personal Folder.

How do you use StoreID?

[RobDog888]

No, I mean can you read, add, delete and such on the pst mapifolder object?

[tommygrayson]

Yes I can read, add, delete programmatically.

[RobDog888]

Take out the "On Error Resume Next" and step through your code. What line is generating an error and what does it say?

I dont know about this line:
Set InboxItem = OrganizerFolder.Item(2).Items.Item(InboxCount)
Shouldnt you beiterating through the items of the OrganizerFolder or is it a subfolder that your looking into?

Also, dont like this loop:
Do While Not InboxCount = OrganizerFolder.Item(2).Items.Count
As you should either have a For x = 1 to OrganizerFolder.Item(2).Items.Count
or a For Each itm In OrganizerFolder.Item(2).Items.

[tommygrayson]

If I remove the On Error Resume Next I will get a Type Mismatch Error because I have a Meeting Request on my Inbox.

The loop works but I will still change it for better code practice. Thanks for that.

Yes you are right, I am trying to move my mails to their respective sub-folders.

Here is the sample:

Inbox
Mail
Personal Folder
Folder for a
Folder for b
Folder for c

Hope this gives you a clearer picture of what I mean.

[RobDog888]

Are these all top level pst files or folders or ? Can you draw teh folder structure or attact a small screen shot?

[tommygrayson]

Are these all top level pst files or folders or ? Can you draw teh folder structure or attact a small screen shot?

Oh, thanks for your reply.

I'm sorry if I did not told you that I found the error.

I have forgotten that when you use the parenthesis in an expression it will definitely read as a function and not a sub procedure.

InboxItem.Move(Something)

Will not work. It should be these:

InboxItem.Move Something