Visual Basic.NET - Añadir hipervinculo a imagen en correo vb.net

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

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.

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.Net
Imports 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder