Ci sono 2 modi per costruire l'elenco dei destinatari.
Uno è usare le proprietà standard:
With OutMail
.To = "Tuo Elenco Destinatari Diretti con Separatore [;]"
.CC = "Tuo Elenco Destinatari PerConoscenza con Separatore [;]"
.BCC = "Tuo Elenco Destinatari PerConoscenza Nascosat con Separatore [;]"
....
Quello che usi tu è un metodo sempre valido, ma ti è sfuggita una particolarità che viene impostata di Default nel Recipeint che hai usato, ovvero la Collection Recipients associata all'Oggetto MailItem.
Questo Recipients di Default prende la proprietà Type=olTo.
Le Opzioni sono queste:
olBCC 3 The recipient is specified in the BCC property of the Item.
olCC 2 The recipient is specified in the CC property of the Item.
olOriginator 0 Originator (sender) of the Item.
olTo 1 The recipient is specified in the To property of the Item.
Quindi nel tuo codice devi assegnare al Recipients il Type:
Dim mRcpTo As Outlook.Recipient
Dim mRcpCC As Outlook.Recipient
Set mrcpTp=.Recipients.Add "pippo@pippo.com"
Set mRcpTo.Type=olTo
Set mRcpC =.Recipients.Add "mail2CC@mail.it"
Set mRcpCC.Type=olCC
....