prueba a poner ésto antes del with
Código:
mensaje.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mensaje.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "servidor smtp"
mensaje.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
mensaje.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
mensaje.Configuration.Fields.Update
cambia el nombre del servidor smtp al tuyo
