[VB6] Inviare mail con CDO

[StegcO]

ho provato a modificaere il codice ASP di un mio sito ma mida errore ove evidenzio

Private Sub cmd_send_mail_Click()

Dim CDO As New CDO.Message
Dim Bug As String

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServer) = "tuo.server"
    .Item(cdoSMTPServerPort) = 25
    .Item(cdoSMTPConnectionTimeout) = 10
    .Update
End With

Bug = txt_bug.Text

With CDO

    .From = Username & "@XXX.com"
    .To = "XXX@XXX.com"
    .Subject = "XXX"
    .TextBody = Bug
    .Send
End With

MsgBox "E-Mail inviata correttamente!", vbOKOnly, "Bug Riportato"

txt_bug.Text = ""

End Sub