Hi,

following procedure works fine in XP (hanks to Ravi's article in Wiki

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

Now when use this in Win7 I will get an error SMTPServer and Sender address are not known, mail cannot be sent out.

How to solve this?

Regards,

Koen