Anche se ho dovuto aggiungere la dichiarazione di alcune variabili che mancano nella routine (probabilmente tu le hai messe a livello di modulo)...

...a me il TUO codice funziona!

Però io NON uso Outlook, quindi non saprei dirti da cosa dipende.

La sola cosa che mi viene in mente è che nelle celle di Excel usate possa esservi qualche carattere strano. Hai provato la routine usando direttamente dei valori anzichè i riferimenti alle celle? Cioè:

codice:
    'mail_to = Cells(ActiveCell.Row, 10)
    mail_to = "vbcorner@vbcorner.net"
Provare non costa niente.