Option ExplicitDim objEmail As ObjectDim strName As StringPrivate Sub Form_Load() strName = :schemas.microsoftcdoconfiguration Set objEmail = CreateObject(CDO.Message)End SubPrivate S