L'errore tradotto:
CDO.Message.1 errore '8004020d 'Almeno uno dei campi Da o Mittente è richiesto, e nessuno dei due è stato trovato.
Il mittente e nome cognome, ma credo ci voglia anche un indirizzo email tipo:
Mittente = "Andrea Cavicchi <mail@server.xxx>"
E se non erro manca anche il destinatario
objMail.To = "indirizzopostadestinatario@server.xxxx" non credo che basti .bcc