Qui:

codice:
.To = strEmailDest
Puoi fare in 2 modi:

1)
codice:
strEmailDest = "tuamail@tin.it"
.To = strEmailDest
2)
codice:
.To = "tuamail@tin.it"
Come preferisci.