insertar varios correos en campo para: outlook vb
Publicado por Claudia (2 intervenciones) el 01/06/2004 02:57:06
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
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
Valora esta pregunta
0