**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