En el evento OnSelect de un botón, podemos agregar el siguiente código para enviar un email con un enlace a una página web.
Utilizaremos Office365Outlook.SendEmailV2(), desglosáremos el contenido de email y agregamos la línea donde se incluirá el enlace, para finalizar tecleáramos {IsHtml:true}, que indica que el formato es HTML.
Office365Outlook.SendEmailV2("usuario@email.com",
"Solicitud no." & folio & " ha sido autorizada",
"<br>Comentarios: " & TextInput_autoriza.Text &
"<br>Ingresa a <a href='https://vbpuntonet.blogspot.com/'>VBpuntoNET</a>" &
"<br>Gracias",
{IsHtml:true}
);
Si deseas un poco más de formato, puedes utilizar:
Office365Outlook.SendEmailV2(
"usuario@email.com",
"Solicitud no." & folio & " ha sido autorizada",
"<div style='font-family: Arial, sans-serif; color: #333; padding: 10px; border: 1px solid #ddd; border-radius: 8px; background-color: #f9f9f9;'>
<h2 style='color: #d9534f;'>Solicitud autorizada</h2>
<p><strong>Comentarios:</strong></p>
<p style='background: #fff; padding: 8px; border: 1px solid #ddd; border-radius: 5px;'>" & TextInput_autoriza.Text & "</p>
<p>Ingresa a <a href='https://vbpuntonet.blogspot.com/' style='color: #0275d8; text-decoration: none;'>VBpuntoNET</a></p>
<p style='margin-top: 15px;'>Gracias</p>
<p><em>Equipo de Soporte</em></p>
</div>
",
{IsHtml:true}
);
Te dejo 3 plantillas.
APROBADO
"usuario@email.com",
"Solicitud no." & folio & " ha sido aprobada",
"<div style='font-family: Arial, sans-serif; color: #155724; padding: 15px; border: 1px solid #c3e6cb; border-radius: 8px; background-color: #d4edda;'>
<h2 style='color: #155724;'>Solicitud Aprobada</h2>
<p><strong>Comentarios:</strong></p>
<p style='background: #fff; padding: 8px; border: 1px solid #c3e6cb; border-radius: 5px;'>" & TextInput_autoriza.Text & "</p>
<p>Ingresa a <a href='https://vbpuntonet.blogspot.com/' style='color: #155724; font-weight: bold;'>VBpuntoNET</a></p>
<p style='margin-top: 15px;'>Gracias,</p>
<p><em>Equipo de Soporte</em></p>
</div>
",
{IsHtml:true}
);
PENDIENTE
Office365Outlook.SendEmailV2(
"usuario@email.com",
"Solicitud no." & folio & " está pendiente",
"<div style='font-family: Arial, sans-serif; color: #856404; padding: 15px; border: 1px solid #ffeeba; border-radius: 8px; background-color: #fff3cd;'>
<h2 style='color: #856404;'>Solicitud pendiente</h2>
<p><strong>Comentarios:</strong></p>
<p style='background: #fff; padding: 8px; border: 1px solid #ffeeba; border-radius: 5px;'>" & TextInput_pendiente.Text & "</p>
<p>Ingresa a <a href='https://vbpuntonet.blogspot.com' style='color: #856404; font-weight: bold;'>VBpuntoNET</a></p>
<p style='margin-top: 15px;'>Gracias,</p>
<p><em>Equipo de Soporte</em></p>
</div>
",
{IsHtml:true}
);
RECHAZADO
Office365Outlook.SendEmailV2(
"usuario@email.com",
"Solicitud no." & folio & " ha sido rechazada",
"<div style='font-family: Arial, sans-serif; color: #721c24; padding: 15px; border: 1px solid #f5c6cb; border-radius: 8px; background-color: #f8d7da;'>
<h2 style='color: #721c24;'>Solicitud rechazada</h2>
<p><strong>Comentarios:</strong></p>
<p style='background: #fff; padding: 8px; border: 1px solid #f5c6cb; border-radius: 5px;'>" & TextInput_rechazo.Text & "</p>
<p>Ingresa a <a href='https://vbpuntonet.blogspot.com/' style='color: #721c24; font-weight: bold;'>VBpuntoNET</a></p>
<p style='margin-top: 15px;'>Gracias,</p>
<p><em>Equipo de Soporte</em></p>
</div>
",
{IsHtml:true}
);