Hola a todos, necesito enviar un correo desde VB 6.0, el correo debe ser solo texto no es nesesario enviar archivos adjuntos, es solo el correo, tengo este codigo de Visual.Net pero no se como hacerlo funcionar en VB 6.0.
este codigo funciona en visual.net
Código:
Sub Mail()
Dim miCorreo As New System.Net.Mail.MailMessage
miCorreo.IsBodyHtml = False
miCorreo.From = New System.Net.Mail.MailAddress("[email protected]") 'mail desde donde se envía
miCorreo.To.Add("[email protected]") 'Mail del destinatario
miCorreo.Subject = "Notificación del Sistema de lecturas. [Gestión de la Medida]" 'Asunto
miCorreo.Body = "mensaje de sistemas." 'Cuerpo del mensaje
miCorreo.Priority = System.Net.Mail.MailPriority.High 'Prioridad
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "servidorSMTP"
'smtp.Port = 587
'smtp.EnableSsl = True
'para las credenciales debo pasarle la cuenta y la clave desde donde se envía
smtp.Credentials = New System.Net.NetworkCredential("[email protected]", "la calve de mi correo")
Try
smtp.Send(miCorreo)
MsgBox("Mensaje enviado.", MsgBoxStyle.OkOnly, "texto")
Catch ex As Exception
MsgBox("ERROR: " & ex.Message, MsgBoxStyle.OkOnly, "Error!")
End Try
ayuda por favor si alguien sabe como hacerlo o como tengo que arregalr este codigo...