I didn't include it in my class because it's useless. Most mail servers/users block delivery confirmation.
Anyway, you have all info you need to implement it youself

>Sergey - Your blog doesn't include anything about DSN options. When I try including them in my code I get an OLE error. How would you include them? Code please...
>
>Thank you very much, Sir!
>
>

>**from your blog
>IF This.lReadReceipt
>   This.oMsg.Fields("urn:schemas:mailheader:disposition-notification-to") = This.cTo
>   This.oMsg.Fields("urn:schemas:mailheader:return-receipt-to") = This.cTo
>   This.oMsg.Fields.Update()
>ENDIF
>
>**from microsoft kb302839
>    .fields("urn:schemas:mailheader:disposition-notification-to") = "<valid e-mail address>" 'ToDo: Type a valid e-mail address.
>    .fields("urn:schemas:mailheader:return-receipt-to") = "<valid e-mail address>"  'ToDo: Type a valid e-mail address.
>    
>    'Set DSN options.
>'    Name                   Value       Description
>'    cdoDSNDefault             0       No DSN commands are issued.
>'    cdoDSNNever               1       No DSN commands are issued.
>'    cdoDSNFailure             2       Return a DSN if delivery fails.
>'    cdoDSNSuccess             4       Return a DSN if delivery succeeds.
>'    cdoDSNDelay               8       Return a DSN if delivery is delayed.
>'    cdoDSNSuccessFailOrDelay  14      Return a DSN if delivery succeeds, fails, or is delayed.
>
>    .DSNOptions = cdoDSNSuccessFailOrDelay
>    .DSNOptions = 14
>