I wonder if this technique stil works for Window 7 since Outlook Express is no longer available.
\
>Check Message ID: 921370
>
>>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