Che mi dite di questo?
codice:
With iMsg
Set .Configuration = iConf
.To = "<valid e-mail address>" 'ToDo: Type a valid e-mail address.
.From = "<valid e-mail address>" 'ToDo: Type a valid e-mail address.
.Subject = "This is a test CDOSYS message (Setting DSN options)"
.HTMLBody = strHTML
.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
.fields.update
.Send
End With