oConf = createobject("cdo.configuration") oFlds = oConf.Fields With oFlds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 && cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ; "<SMTP server address>" .Update() EndWith ... With loMsg .Configuration = oConf ...>>