Ejemplos usando el Api de windows para Visual basic

58 - Abrir el cliente de correo con ShellExecute y automáticamente agregarle el mail, asunto y mensaje

Este ejemplo lo rescaté de un código en Delphi y lo pasé a visual basic.

Lo que hace es, mediante una llamada al Api ShellExecute, poder abrir el cliente de correo predeterminado y automáticamente añadirle el destinatario, el asunto y el cuerpo del mensaje y que quede listo para poder enviarlo.

Para especificar todos estos datos, se deben pasarselos al tercer parámetro de ShellExecute y este String debe ser una cadena que contiene la unión del mail, asunto y mensaje.

El correo se hace con mailto:elcorreo , pero hay que añadirle el signo de interrogación "?" al final.

Luego hay que concatenar esa cadena anterior para indicar el asunto. Por último se conacatena el mensaje.

El problema es que si el mensaje (lo mas factible) tiene saltos de líneas, no se puede especificar el mismo con VbCrlf o con vbNewLine, si no que hay que hacerlo con esta cadena: %0D%0A.

Para hacerlo mas fácil, supongamos que el mensaje está escrito en un textbox multilinea, podemos utilizar la función Replace para reemplazar los saltos de línea por este juego de caracteres.

Ejemplo:

Colocar 3 textBox: Un TextBox llamado txtMail para especificar el correo del destinatario. Un TextBox llamado txtAsunto para el asunto del mensaje y un txtMensaje.
Por último agregar un Command1 que ejecuta el Api ShellExecute con la unión de la cadena anterior y abre el cliente de correo ya listo para enviarlo.

Código en un formulario:

'Api ShellExecute Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long 'Esta constante le indica a ShellExecute que abra _ el programa de correo con la ventana maximizada Const SW_SHOWNORMAL = 1 'Constante para los saltos de línea o saltos de carro en el cuerpo del mensaje Const saltoLinea As String = "%0D%0A" Private Sub Command1_Click() Dim InfoEmail As String Dim Email As String Dim Asunto As String 'Debemos terminar la cadena con el signo de interrogación Email = "mailto:" & txtMail & "?" Asunto = "subject=" & txtAsunto 'Los saltos de línea los debemos marcar con este juego de caractereres: %0D%0A mensaje = Chr(38) & "body=" & Replace(txtMensaje, vbCrLf, saltoLinea) 'Unimos todo lo antrerior en la variable InfoMail InfoEmail = Email & Asunto & mensaje 'Le enviamos a ShellExecute en el primer parámetro el hwnd del formulario _ que hace la llamada y en el tercer parámetro toda la cadena en la variable infoMAil ShellExecute Me.hwnd, vbNullString, InfoEmail, _ vbNullString, "C:\", SW_SHOWNORMAL End Sub Private Sub Form_Load() Command1.Caption = "Abrir correo" End Sub

Enlaces relacionados

Buscar en Recursos vb