¿Qué reemplazó VB la función "Establecer" con?

Question

He encontrado varios códigos aspx para formularios que incluyen el uso de una función "Establecer". Cuando los pruebo en el servidor de alojamiento, recibo un mensaje de error que indica que "Establecer ya no es compatible". ¿Alguien sabe qué reemplazó el comando "Establecer"?

Más específicamente, ¿cómo cambio esto:

Dim mail 
Set mail = Server.CreateObject("CDONTS.NewMail") 
mail.To = EmailTo 
mail.From = EmailFrom 
mail.Subject = Subject 
mail.Body = Body 
mail.Send 

para ser compatible VB.NET?

Answer 1

Si se refiere a la sintaxis de Visual Basic 6

Set obj = new Object 

entonces usted puede simplemente eliminar el Conjunto

obj = new Object() 

Answer 2

Set es una palabra clave en VB6, con el intrudction de VB.NET la palabra clave, como se usa en este contexto, fue eliminado.

Anteriormente, Set se usaba para indicar que se estaba asignando una referencia de objeto (Let era el valor predeterminado). Debido a que las propiedades predeterminadas ya no son compatibles a menos que acepten parámetros, estas declaraciones se han eliminado.

Module Module1 
    Sub Main() 

    Dim person As New Person("Peter") 
    Dim people As New People() 

    people.Add(person) 

    'Use the default property, provided we have a parameter' 

    Dim p = people("Peter") 

    End Sub 
End Module 

Public Class People 
    Private _people As New Dictionary(Of String, Person) 

    Public Sub Add(ByVal person As Person) 
    _people.Add(person.Name, person) 
    End Sub 

    Default Public ReadOnly Property Person(ByVal name As String) As Person 
    Get 
     Return _people(name) 
    End Get 
    End Property 
End Class 

Public Class Person 
    Private _name As String 

    Public Sub New(ByVal name As String) 
    _name = name 
    End Sub 

    Public ReadOnly Property Name() As String 
    Get 
     Return _name 
    End Get 
    End Property 
End Class 

Answer 3

Algunas cosas a tener en cuenta para .Net:

• No utilice nunca Server.CreateObject() en el código .NET. Nunca.
• NUNCA Reduzca una variable sin darle un tipo explícito. Excepto para los nuevos tipos Option Infer linq
• NUNCA utilice la palabra clave Establecer. Excepto cuando se define una propiedad.

De hecho, en .Net usted puede deshacerse de la dependencia probablemente CDONTS por completo, ya que tiene .Net un soporte incorporado mail:

Dim smtp As New System.Net.SmtpClient() 
Dim message As New System.Net.MailMessage(EmailFrom, EmailTo, Subject, Body) 
smtp.Send(message)