Macro de correo que se envíe desde otro correo

Con la macro de correo de Dante amor necesitaría que se enviaran los correos no desde mi cuenta corporativa personal sino desde la genérica de mi unidad. He tratado de adaptar el dam.CC a dam. From, pero da un fallo (ERROR 438 en tiempo de ejecución. El objeto no admite esta propiead o método). La dirección buena la he puesto en la celda A1, para más detalle.

Muchas gracias.

[code]'***Macro Para enviar correos
Sub correo()
'Por.Dante Amor
    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).Value  'Destinatarios
        'dam.CC = Range("C" & i).Value  'Con copia
        'dam.Bcc = Range("D" & i).Value  'Con copia oculta
        dam.Subject = Range("E" & i).Value  '"Asunto"
        dam.body = Range("F" & i).Value  '"Cuerpo del mensaje"
        '
        For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
            archivo = Cells(i, j).Value
            If archivo <> "" Then
                If Dir(archivo) <> "" Then
                    dam.Attachments.Add archivo
                End If
            End If
        Next
        dam.Save 'El correo se envía en automático
                'dam.save 'El correo se muestra
    Next
    MsgBox "Correos enviados", vbInformation, "