Здравствуйте!
В MSDN есть пример:' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Exchange 2000 Server Library
' ..
Dim iMsg As New CDO.Message

Dim Flds As ADODB.Fields
Set Flds = iMsg.Fields
With Flds
.Item("urn:schemas:mailheader:to") = "someone@example.com"
.Item("urn:schemas:mailheader:from") = "<another@example.com>;"
.Item("urn:schemas:mailheader:cc") = "<thirdperson@example.com>;"
.Update
End With
' ..


VS выдает ошибку "Property 'Item' is 'ReadOnly'"!
MSDN завален примерами кодов с записью в эти свойства.
А проблема всплыла из задачи отсылать почту в два разных доменных пространства:Internet и  монстроидальную корпоративную сеть.
По умолчанию у почтовых ящиков стоит адрес корпоротивной сети, в почте адресованой в и-нет SMTP фильтром подменяется поле "From:", но есть еще MIME поля  "disposition-notification-to:" и "return-receipt-to:", оповещения не возвращаются.
Заранее спасибо!