Platform SDK: CDO for Windows 2000 |
To configure a Message object, you perform the following steps:
' Reference to Microsoft ActiveX Data Objects 2.5 Library ' Reference to Microsoft CDO for Windows 2000 Library Dim iConf As New CDO.Configuration Dim Flds As ADODB.Fields Set Flds = iConf.Fields ' Set the configuration Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "mail.microsoft.com" ' ... other settings Flds.Update Dim iMsg As New CDO.Message Set iMsg.Configuration = iConf ' go on to use Message object