loMsg = Createobject("CDO.Message") loMsg.Fields("Priority").Value = 1 && 1 = High, 0 = Normal loMsg.Fields.Update() iConf = Createobject("CDO.Configuration") Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = ThisForm.nUsing .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ThisForm.cSMTPServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = ThisForm.nPort .Update ENDWITH With loMsg .Configuration = iConf .To = lcToAddress .From = ThisForm.cSender * Define other message parameters .... .Send ENDWITHNow when use this in Win7 I will get an error SMTPServer and Sender address are not known, mail cannot be sent out.