Como envío un correo electrónico desde vb2008

Necesito su ayuda para saber como enviar un e-mail desde visual bacic 2008, por ejemplo un textbox sera el destinatario, otro el asunto, otro la dirección de correo electrónico, otro el texto del mensaje.. Un botón para enviar y otro para restablecer...
Soy estudiante de la Lic. En informática de la Universidad de Panamá y propuse en mi sistema de tesis enviar un correo desde un formulario en visual bacic 2008 usando como gestor de base de datos Mysql5.1..
Este es el código que poseo pero no me sirve porque no he podido configurar el mapi controllers..!
Private Sub cmdAdjunto_Click()
    'Para el archivo adjunto del Mail
    With CommonDialog1
        .ShowOpen
        If .FileName = "" Then
            Exit Sub
        End If
        lblAdjunto = .FileName
    End With
End Sub
Private Sub CmdEnviar_Click()
    'Borramos la ruta
    lblAdjunto = ""
    With MAPISession1
        .NewSession = False
        .SignOn
    End With
    With MAPIMessages1
        .SessionID = MAPISession1.SessionID
        ' Creamos el mensaje
        .Compose
        ' Asunto del mensaje
        .MsgSubject = txtasunto
        ' Mensaje
        .MsgNoteText = txtMensaje
        ' Nombre del Mail del destinatario
        .RecipDisplayName = txtdestinatario
        ' Archivo Adjunto
        If lblAdjunto <> "" Then
            .AttachmentPathName = lblAdjunto
        End If
        ' Enviamos el correo
        .Send False
    End With
    ' Cerramos la sesión abierta del Mapi
    MAPISession1.SignOff
End Sub
Private Sub Form_Load()
    Me.Caption = " Enviar Email con Mapi "
    cmdAdjunto.Caption = " Adjuntar archivo "
    CmdEnviar.Caption = " Enviar mail "
End Sub

End class
AGRADEZCO ME AYUDE... He VISITADO MUCHOS SITIOS DE INTERNET BUSCANDO INFORMACIÓN DE COMO ENVIAR CORREOS DESDE VB8 Y CREAR INFORMES Y NO He ENCONTRADO NADA... Todo lo que encuentro es de visual basic 6..
1

1 respuesta

Respuesta
1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas