| Pregunta: | 1527 - ABRIR UN NUEVO CORREO EN BLANCO PARA ENVIAR |
| Autor: | Carlos Rivera Delgado |
| Hola soy Carlos y mi pregunta es la siguiente: ¿Alguien sabe como mandar llamar la pantalla del Outlook Express para generar un nuevo mensage desde VB 5.0? La pantalla a la que me refiero es a la que al dar un click en algún vínculo de dirección de correo aparece esa pantalla para solo teclear el "Subject" y el "Message" y en caso de tener un "Attach", seleccionarlo con el clip?. Espero que alguien me pueda ayudar, mil gracias | |
| Respuesta: | Xavi |
| Hola Carlos, para ello tienes que utilizar la API ShellExecute, la cual te abrira un mensaje nuevo del correo predeterminado que estes utilizando en tu ordenador... eso si, para ello tienes que saber que correo envia el mensaje... Funcion API para el modulo 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 En el programa... Dim CadenaResultante As Long CadenaResultante = ShellExecute(hwnd, "open", "mailto:direccion@correo", "", "", 1) De esta manera, te abre un correo nuevo... Espero que te sirva. | |