Hi
@GarthZAR
Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.
You did not put your macro, I attach an example to see if it helps you and you can adapt it to your macro.
Rich (BB code):
Sub LeerCorreo()
Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.MailItem
'
Application.ScreenUpdating = False
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
i = 2
Columns("A:C").Clear
On Error Resume Next
For Each msg In olFolder.Items
If msg.UnRead = True Then
'msg.UnRead = False
Cells(i, "A") = msg.SenderName
Cells(i, "B") = msg.Subject
Cells(i, "C") = msg.body
i = i + 1
End If
Next
Columns("A:C").WrapText = False
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub
--------------
I hope it helps you.
Respectfully
Dante Amor
--------------