Añadir hipervinculo a imagen en correo vb.net
Publicado por Leonel (4 intervenciones) el 24/11/2019 02:07:20
Hola buenas tardes,
Me dirijo a ustedes porque necesito una ayuda.. estoy tratando de mandar un correo por medio de vba.net, y quiero que se mande al final de todo el cuerpo, una foto incrustada sacada de una carperta en la laptop, y que esa imagen contenga un hipervinculo hacia un fomato de excel, por favor ayuda, no sé porque está mal, ya tengo activado el html al cuerpo, pero no incrusta ni la imagen, ni tampoco el hipervinculo.
La parte que tiene negritas es dónde se supone que coloca la imagen y pone el hipervinculo, por favor ayudenme.
Saludos.
Me dirijo a ustedes porque necesito una ayuda.. estoy tratando de mandar un correo por medio de vba.net, y quiero que se mande al final de todo el cuerpo, una foto incrustada sacada de una carperta en la laptop, y que esa imagen contenga un hipervinculo hacia un fomato de excel, por favor ayuda, no sé porque está mal, ya tengo activado el html al cuerpo, pero no incrusta ni la imagen, ni tampoco el hipervinculo.
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
Imports System.NetImports System.Net.Mail
Module Correo
Private correos As New MailMessage
Private envios As New SmtpClient
Sub enviarCorreo(ByVal emisor As String, ByVal password As String, ByVal mensaje As String, ByVal asunto As String, ByVal destinatario As String)
Dim MIHTML As String = "" 'TEXTO HTML QUE SE ENVIARA
Dim VISTAHTML As AlternateView = AlternateView.CreateAlternateViewFromString(MIHTML, Nothing, System.Net.Mime.MediaTypeNames.Text.Html)
Try
emisor = "correo"
password = "contraseña"
mensaje = "<html><body><font face=Calibri><font color=darkblue size=5><b>SALIDA DE EQUIPO DE CÓMPUTO</b></font><br><br>"
mensaje = mensaje + "<font face=Calibri><font size=3>Este mensaje es una <u>notificación informativa</u> de generación de permiso de salida de equipo de cómputo del equipo<font size=4.5><B> " & Form1.TextBox2.Text & "</b></font></font> solicitado por <font size=4><b>" & Form1.ComboBox1.Text & "</b></font>"
mensaje = mensaje + " del departamento de <font size=4><b>" & Form1.TextBox1.Text & "</b></font>. Con fecha del <font size=4><b>" & Form1.FechaInicio.Value & "</b></font> al <font size=4><b>" & Form1.FechaFin.Value & "</b></font>.<br>El motivo del requerimiento es: <font size=4><b>" & Form1.ComentarioUsuario.Text & "</b></font>"
mensaje = mensaje + "<br><br><font size=2>Si usted requiere algún apoyo o información adicional, favor de contactar al área de Tecnologías de Información.<br><br><br>"
mensaje = mensaje + "<font color=red><p style=text-align:center>Favor de hacer clic en el botón verde para autorizar o rechazar la solicitud.</P></font>"
mensaje = mensaje + "<table border=0 width=100% height=100%><tr>"
mensaje = mensaje + "<td width=100% height=100% align=center valign=center>"
mensaje = mensaje + "<a href=\\zs13900.nsmx.nidec-sankyo.local\NSMX-Folders\nsmx\IT\NSMX-FT-IT09.xlsm><img src='\\zs13900.nsmx.nidec-sankyo.local\NSMX-Folders\nsmx\IT\Images\boton-excel.png' width=400 height=120></a>"
mensaje = mensaje + "</td></tr></table></body></html>"
mensaje = "Solicitud - Salida de Equipo"
correos.To.Clear()
correos.Body = ""
correos.Subject = ""
correos.Body = mensaje
correos.Subject = asunto
correos.IsBodyHtml = True
correos.To.Add(Trim(destinatario))
correos.From = New MailAddress(emisor)
envios.Credentials = New System.Net.NetworkCredential(emisor, password)
envios.Host = "smtp.live.com"
envios.Port = 587
envios.EnableSsl = True
envios.Send(correos)
'MsgBox("El mensaje fue enviado correctamente. ", MsgBoxStyle.Information, "Mensaje")
Catch ex As Exception
MessageBox.Show(ex.Message, "Mensajeria 1.0 vb.net ®", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Module
La parte que tiene negritas es dónde se supone que coloca la imagen y pone el hipervinculo, por favor ayudenme.
Saludos.
Valora esta pregunta
0