Crear Recordset

[SuRpRiSe18]

Hola buenas!

Estoy intentando crear una acción por la cual al hacer click en el botón, access abra un nuevo e-mail de Outlook e inserte en el apartado CCO, todas las direcciones de e-mail de una tabla.

Hasta ahora ya he conseguido que access abra el mensaje de Outlook y agregue una dirección en concreto... pero necesito que agregue todas las de una tabla.

Os presento el código que tengo de momento, lo que me hace falta es el recordset que añada las direcciones de la tabla:

Código:

 
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myItem.Recipients.Add([email protected])
myRecipient.Type = olBCC
myItem.Display

Espero que alguien me pueda ayudar!

Muchas gracias de antemano!

[Teri]

Y si donde pones "Set myRecipient = myItem.Recipients.Add([email protected])" esa durección fuera una variable, y esa variable la rellenaras mediante un bucle con los nombre que quieres separados por punto y coma (;)

Un saludo

[SuRpRiSe18]

Teri gracias por responder!!!

La solucion que me das es justo lo que pretendo conseguir, pero no se como hacerlo. Me podrias ayudar?

Muchas gracias de antemano!

[Teri]

Pero qué parte es la que no sabes hacer????

[SuRpRiSe18]

El bucle con los e-mails separados por ";"

[Teri]

Declaras un recordset, abres la tabla donde tengas las direcciones de correo y recorres el bucle rellenando la variable.


Pero esto te lo resuelven mejor en el Foro de programación.

Ah... y qué versión de Access estás utilizando??

[SuRpRiSe18]

Estoy con el access 2002 y 2003 depende del ordenador con el que me ponga (casa o trabajo)

Gracias. Recurrire al foro de programacion a ver que me cuentan por ahi!