Cita:
Iniciado por Taribo007 
Si claro, prueba con esto:
'************************************************* *****************
Dim rst As DAO.Recordset
Dim VarEmails As String
Dim LngFichero As Long
Dim StrFichero As String
'Establcemos la ubicacion del fichero, en la misma que la bd
StrFichero = CurrentProject.Path & "\Direcciones.txt"
LngFichero = FreeFile
Set rst = CurrentDb.openrecordset("Select DirCorreoElectrónico from Clientes")
While Not rst.EOF
VarEmails = VarEmails & rst!DirCorreoElectrónico & ";"
rst.MoveNext
Wend
'Esto es por si quieres quitar el ; que quedara al final
If Nz(VarEmails, "") <> "" Then
VarEmails = Left(VarEmails, Len(VarEmails) - 1)
'Abrimos el fichero como escritura, si no existe lo crea
Open StrFichero For Output As #LngFichero
'escribimos en el fichero el contenido de la variable
Print #LngFichero, VarEmails
'cerramos el fichero
Close #LngFichero
Else
MsgBox "Ninguna direccion de correo seleccio nada"
End If
rst.Close
Set rst = Nothing
'************************************************* **********
Un saludo
Hola Taribo, estuve buscando por los foros y encontré esto que hiciste
como respuesta a Turquele y que me viene muy bien (lo cual agradezco enormemente), para armar un txt mas sencillo que con "especificación de importación/exportación" y realmente te felicito porque esto funciona rápido y simple.
Te pregunto: ¿Cómo puedo enviar desde Access por correo este archivo ("Direcciones.txt") creado por este procedimiento ?
Porque la acción enviar objeto (sendobject) solo permite enviar un objeto Access y no un txt (esto es lo que creo yo). Y si envío una tabla con DoCmd.SendObject en formato texto (acFormatTXT) lo que envía es la tabla completa (con los nombres de campos y las separaciones "|") que le dan visualmente aspecto de tabla parecido a lo de abajo:
----------------------------------------------------------------------------------------------
| IdCliente | NombreYApellid | Domicilio | Telefono |
----------------------------------------------------------------------------------------------
| 23659 | Juan Carlos Pexxx | fffff 23 | 02212-963xxx|
y yo necesito que el resultado final del txt a enviar adjunto sea como esto:
000022200022-12101/1210000-2220002215/01/20091253933333333333333
000000000222-61301/0610000-0000022215/01/20095039d22223565566693
222200000223-152002/1512222-0000022310/01/2009157,33333333333339
donde cada línea es un registro.
Esto lo consigo como te decía antes, mediante especificación de importación/exportación, pero parte del proceso hay que hacerlo manualmente.
Yo
no veo como automatizar esto y tampoco sé como enviar desde acces un txt adjunto por correo.
Vos que la tenés bien clara por lo que veo, me tiras un cable?, por favor.
Ojalá haya sido claro con la pregunta.
Desde ya gracias por tu tiempo y por tu respuesta.
Librero