Claudia
02 de Junio del 2004

Este es el codigo que utilizo: pero en la parte en donde tiene mailto: solamente me pone una direccion y esa direccion se la tengo que poner yo ,lo que yo quiero es que me ponga toda una lista de direcciones que tengo en un recordset. espero y me puedad ayudar. Gracias


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

Private Const SW_SHOW = 5



ShellExecute hwnd, "open", "mailto:[email protected]", vbNullString, vbNullString, SW_SHOW

Victor Licea
02 de Junio del 2004

Concatena en una variable string o variant (ej: varemails) los registros de tu tabla, separalos con ; al final antes de mandar llamar el shell haz lo siguiente:

varemails="mailto:" & varemails

quedando la llamada al shell asi:
ShellExecute hwnd, "open", varemails, vbNullString, vbNullString, SW_SHOW


Suerte...


p.d. si requieres mas información, avisame.