>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 >ENDWITH > >>