Visual Basic.NET - CONFIRMACION DE LECTURA MAIL

 
Vista:
sin imagen de perfil
Val: 25
Ha disminuido su posición en 5 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

CONFIRMACION DE LECTURA MAIL

Publicado por Juan Enrique (14 intervenciones) el 08/10/2018 22:02:28
El codigo completo envia el mensaje sin problemas y pregunta al usuario que lee el correo si desea confirmar al igual que acepta archivos adjuntos, esa parte la omiti si les interesa la escribo despues completo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Imports System.IO
 
Imports EASendMail   'se usa para enviar correos
 
 
 
Public Class Form1
 
 
 
 
 
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim Mail As New SmtpMail("TryIt")
        Dim oSmtp As New SmtpClient()
        If TextBox1.Text = "" Then
            MsgBox("Agregar correo de destino")
        Else
            Try
                Mail.From = New MailAddress("correo que envia")
                Mail.To.Add(TextBox1.Text)
                Mail.Subject = (TextBox2.Text)
                Mail.TextBody = (RichTextBox1.Text)
 
                Mail.ReadReceipt = True
 
 
                Mail.DeliveryNotification = DeliveryNotificationOptions.OnFailure Or DeliveryNotificationOptions.OnSuccess
 
 
                'servidor de salida
                Dim servidor As New SmtpServer("smtp.office365.com")
                servidor.Port = 587
 
 
                servidor.ConnectType = SmtpConnectType.ConnectSSLAuto
 
 
 
                servidor.User = "correo"
                servidor.Password = "contraseña"
 
 
 
 
                If txtRuta.Text <> "" Then
                    Mail.AddAttachment(txtRuta.Text)
 
                End If
 
                Try
 
                    RichTextBox2.Text = "start to send email ..."
                    oSmtp.SendMail(servidor, Mail)
                    RichTextBox2.Text = "email was sent successfully!"
 
                Catch ex As Exception
                    MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    RichTextBox2.Text = "failed to send email with the following error:"(ex.Message)
 
                End Try
 
 
 
            Catch ex As Exception
                MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub
 
 
 
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            TextBox1.Clear()
            TextBox2.Clear()
            RichTextBox1.Clear()
            RichTextBox2.Clear()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            'La linea de abajo adjunta un archivo
            Me.OpenFileDialog1.ShowDialog()
            If Me.OpenFileDialog1.FileName <> "" Then
                txtRuta.Text = Me.OpenFileDialog1.FileName
            End If
 
 
            Dim nombreArchivo As String = Path.GetFileName(txtRuta.Text)
            LBnombreFile.Text = nombreArchivo
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
 
 
End Class



la linea que dice
1
Mail.ReadReceipt = True
se encarga de enviar el mensaje o la ventana emergente que aparecera al usuario cuando abra el correo, dandole a elegir si desea confirmar que le llego el correo o no.... hay alguna otra manera en que yo pueda saber algo estilo whatsapp que me indique que mi correo fue leido sin tener que enviarle el recuadro de confirmacion...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder