Dim iConfig as new CDO.Configuration
Dim Flds as ADODB.Fields
iConfig.Load cdoSourceIIS
Set Flds = iConfig.Fields
With Flds
' Its good practice to use the module constants defined in the
' type library for the names. The full names are used here to
' indicate that this is what is going on
.Item("http://schemas.microsoft.com/cdo/configuration/smtperver") = "mail.example.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CdoSendUsingPort
.Update
End With
#import "c:\program files\common files\system\ado\msado15.dll" no_namespace
#import <cdosys.dll> no_namespace
#include <cdosysstr.h> // string constants in this file
CoInitialize(NULL);
{
IConfigurationPtr iConf(__uuidof(Configuration));
FieldsPtr iFields;
iConf->Load(cdoSourceIIS); // this string constant from import
Flds = iConf->Fields;
Flds->Item["http://schemas.microsoft.com/cdo/configuration/smtperver"]->Value
= _variant_t("mailserver");
Flds->Item["http://schemas.microsoft.com/cdo/configuration/smtpserverport"]->Value
= _variant_t((long)25);
Flds->Item["http://schemas.microsoft.com/cdo/configuration/sendusing"]->Value
= _variant_t((long)cdoSendUsingPort);
Flds->Update();
// ...
}
CoUninitialize();
}