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.
la linea que dice
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...
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.IOImports 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
Valora esta pregunta
0