Enviar mail con VB 6.0

proteus8 · #1 (**permalink**) 10/12/2009, 11:18

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...

pana99 · #2 (**permalink**) 11/12/2009, 08:12

Hola, aca te paso un codigo que uso y funciona usando la sesion de mail de tu cuenta en outlook.

Tenes poner estos dos componentes en el formulario (MAPIMessages, MAPISession). Tenes que agregar desde proyecto, el componente Microsoft Mapi Controls 5.0

Espero te sirva

Código:

Private Sub Command1_Click()
 With MAPISession1
        .NewSession = False
        .SignOn
    End With
    With MAPIMessages1
        .SessionID = MAPISession1.SessionID
        ' Creamos el mensaje
        .Compose
        ' Asunto del mensaje
        .MsgSubject = "Tu Asunto"
        ' Mensaje
        .MsgNoteText = "Tu Mensaje"
        ' Nombre del Mail del destinatario
        .RecipDisplayName = "[email protected]"
        ' Enviamos el correo
        .Send False
    End With
    ' Cerramos la sesión abierta del Mapi
    MAPISession1.SignOff
End Sub

romanriquelme · #3 (**permalink**) 12/12/2009, 23:35

Busca informacion sobre la referencia CDO...
Ahi envias emails desde un correo GMAIL.
Es lo que yo uso y va perfecto.