Se ha producido el error '-2147417851 (80010105)' en tiempo de ejecución: Error en el método 'To' de objeto '_MailItem'

El siguiente código lo identifiqué en una respuesta anterior el cual permite enviar correos personalizados con diferentes adjuntos a través de Excel y Outlook. Cambié de equipo y se presenta el error: Se ha producido el error '-2147417851 (80010105)' en tiempo de ejecución: Error en el método 'To' de objeto '_MailItem'

Cabe mencionar que tanto Outlook como Excel tienen las mismas versiones en el nuevo equipo, se marcaron las mismas referencias en el VBA y están habilitadas las macros.

El código es:

'***Macro Para enviar correos
Sub correo()
'Por.
col = Range("H1").Column
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = Range("B" & i) 'Destinatarios
Dim strEmail As String
dam.CC = Range("C" & i) 'Con copia
dam.Bcc = Range("D" & i) 'Con copia oculta
dam.Subject = Range("E" & i) '"Asunto"
dam.body = Range("F" & i) '"Cuerpo del mensaje"
'
For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
archivo = Cells(i, j)
If archivo <> "" Then dam.Attachments.Add archivo
Next
dam.send 'El correo se envía en automático
'dam.display 'El correo se muestra
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub

El error generado:

Al depurar el error: