¿Cómo puedo hacer para que un usuario pueda mandarle un correo electrónico a un cliente con Visual?
Hola com están señores expertos.. Me podrían ayuda con el siguiente problema.. En un sistema que tengo un textbox.. Dentro este el usuario escribe la dirección del mail de cliente... La idea es que si es posible que por el ejemplo: el usuario quiere enviarle un mail al cliente tons lo único que tiene que hacer es darle un click en ese textbox donde esta escrito el mail.. Muchas gracias..!
1 Respuesta
Respuesta de leosoft
1
Eso lo puedes hacer fácilmente de esta manerta:
Agrega esto al procedimiento general del formulario:
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
ahora en el evento DobleClick del TextBox coloca esto:
Dim res As Long
Dim Direccion As String
Direccion = "mailto:" & Text1.Text
res = ShellExecute(Form1.hwnd, "open", Direccion, "", "", 1)
Así al hace doble click sobre le textbox te aparecerá la ventana de correo nuevo del Outlook o el programa de correo que tengas configurado por default.
Agrega esto al procedimiento general del formulario:
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
ahora en el evento DobleClick del TextBox coloca esto:
Dim res As Long
Dim Direccion As String
Direccion = "mailto:" & Text1.Text
res = ShellExecute(Form1.hwnd, "open", Direccion, "", "", 1)
Así al hace doble click sobre le textbox te aparecerá la ventana de correo nuevo del Outlook o el programa de correo que tengas configurado por default.
