How To Take A Reference Of A Mail After Moving The Mail To A Different Folder

[kashif.special2005]

Hi,
I hope all of you are doing good and staying safe and healthy, I want your expert help on a problem that I am facing in Excel VBA code:

I have a mail in outlook and through "Move" method I am moving this mail to a different folder, now what I want is that I want to take a reference of this mail from the moved folder.

Suppose "A" is a folder where have a mail and I want to move this mail to the folder "B", through below code I am moving this mail from folder "A" to folder "B".

set MyNameSpace=Outlook.Application.GetNamespace("MAPI")
Set Mymail=ActiveExplorer.Selection.Item(1)
Set B = MyNameSpace.folders("Inbox").folders("B")
Mymail.Move B

Now, after moving the mail in the folder "B" I want to take the reference of this mail from the folder "B".

I don't know how to do this, my kind request to you please help me how can I do this.

Thanks in advance for your help.

Thanks
Kashif

 

[John_w]

The Move method/function returns a reference to the destination object (a MailItem in this case):

Function Move(DestFldr As Folder) As Object

Therefore:

    Dim emailInB As Outlook.MailItem
    Set emailInB = Mymail.Move(B)
    MsgBox "The email is now in " & emailInB.Parent.FolderPath

 

[kashif.special2005]

The Move method/function returns a reference to the destination object (a MailItem in this case):

Function Move(DestFldr As Folder) As Object

Therefore:

    Dim emailInB As Outlook.MailItem
    Set emailInB = Mymail.Move(B)
    MsgBox "The email is now in " & emailInB.Parent.FolderPath

Thank you so much Jowh_w you code is working like a charm, thank you thank you again, God bless you.

Thanks
Kashif