いま ASP（非.NET）で
----------------
Sub SendMail(ToAddr, FromAddr, Subject, Body)
　　Dim objCDOConfig, configFields
　　Set objCDOConfig = Server.CreateObject("CDO.Configuration")
　　Set configFields = objCDOConfig.Fields
　　With configFields
　　　.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPホスト名"
　　　.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
　　　.Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2
　　　.Update
　　End With

　　Dim objCDO, flds
　　Set objCDO = Server.CreateObject("CDO.Message")
　　With objCDO
　　　.Configuration = objCDOConfig
　　　.To = ToAddr
　　　.From = FromAddr
　　　.Subject = Subject
　　　.TextBody = Body
　　　.Send
　　End With
　　Set objCDO = nothing
End Sub
----------------

て感じの関数を作ってメール送信に使ってるのですがこれに
エンベロープfromを指定して送るように改造するとなるとどういう感じになるのでしょう？

要は、配信先不明などでバウンスされるメールの返り先を指定したい、のですが。
ご存知の方、おしえてケロンチョ。