VBA to Select 2nd Outlook Account and Download attachments

Hello,

I have the code below:

Const olFolderInbox As Integer = 6

Const AttachmentPath As String = "C:\Temp\"

Sub DownloadAttachmentFirstUnreadEmail()
Dim oOlAp As Object, oOlns As Object, oOlInb As Object
Dim oOlItm As Object, oOlAtch As Object


Dim NewFileName As String
NewFileName = AttachmentPath & Format(Date, "DD-MM-YYYY") & "-"


Set oOlAp = GetObject(, "Outlook.application")
Set oOlns = oOlAp.GetNamespace("MAPI")
Set oOlInb = oOlns.GetDefaultFolder(olFolderInbox)


If oOlInb.Items.Restrict("[UnRead] = True").Count = 0 Then
MsgBox "NO Unread Email In Inbox"
Exit Sub
End If


For Each oOlItm In oOlInb.Items.Restrict("[UnRead] = True")

If oOlItm.Attachments.Count <> 0 Then
For Each oOlAtch In oOlItm.Attachments

oOlAtch.SaveAsFile NewFileName & oOlAtch.Filename
Exit For
Next
Else
MsgBox "The First item doesn't have an attachment"
End If
Exit For
Next
End Sub

This code works perfectly and downloads the latest unread email, from my default Outlook account.
However i want to use the second Outlook account.

Can you please help me?

Thank you.