in rete trovai questi

codice:
Dim SmtpServer As String 
SmtpServer = "smtp.miodominio.it" 
MyEmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", SmtpServer) 
MyEmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "25") 
MyEmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", "2") 
MyEmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 
MyEmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "username") 
MyEmail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "password")