What do I need to add the code below to request a delivery confirmation and or read receipt!

Thanks



Sub SendMail

    Dim cdoMessage, cdoConfig, strFilename

    Const strMailServer = "outgoing.xxx.net"
    Const strUserName = ""
    Const strPassword = ""
    Const strFrom = """Matisyahu"" <[email protected]>"
    Const strBCC = "[email protected]"

    Set cdoMessage = Server.CreateObject("CDO.Message")
    Set cdoConfig = Server.CreateObject("CDO.Configuration")

    cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
    cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

    cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUserName
    cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassword
    cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    cdoConfig.Fields.Update




    Set cdoMessage.Configuration = cdoConfig

    cdoMessage.FROM = strFrom
    cdoMessage.To = strMailTo
    cdoMessage.BCC = strBCC
    cdoMessage.Subject = strSubject

    If intSendMode = cdoSendAttach Then

        strFilename = Request.ServerVariables("PATH_TRANSLATED")
        strFilename = Left(strFilename, InStrRev(strFilename, "\")) & strSubject & ".htm"

        'Create Attachment
        Dim fsoMyFSO, fsoMyTemplate
        Set fsoMyFSO = Server.CreateObject("Scripting.FileSystemObject")
        Set fsoMyTemplate = fsoMyFSO.CreateTextFile(strFilename, True)
        fsoMyTemplate.Write strTemplateBody
        fsoMyTemplate.Close

        Set fsoMyTemplate = Nothing
        Set fsoMyFSO = Nothing

        cdoMessage.AddAttachment strFilename
        cdoMessage.TextBody = ""
    Else
        cdoMessage.HTMLBody = strTemplateBody
    End If

    cdoMessage.Send()

    Set cdoMessage = Nothing
    Response.Write "Message sent successfully!"
    Set cdoConfig = Nothing

End Sub