Estava creando en vb6 un fake puse este codigo

Pero creo que no es de vb6, aver si me lo podrian pasar el codigo correcto :D

roke escribió:Estava creando en vb6 un fake puse este codigo

Código: Seleccionar todo

Private Sub Command1_Click()
'Dim MyMailMessage As New MailMessage()
'Try
'MyMailMessage.From = New MailAddress("[email protected]")
MyMailMessage.To.Add ("[email protected]")
MyMailMessage.Subject = TextBox1.Text
MyMailMessage.Body = TextBox1.Text
MyMailMessage.Body = TexBox2.Text
'Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
'SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "tu pass")
SMTP.Send (MyMailMessage)
TextBox2.Text = ""
'Catch ex As Exception
'End Try
End Sub

Pero creo que no es de vb6, aver si me lo podrian pasar el codigo correcto :D