La Asociación Deportiva y Cultural de Empleados de Ford España, S.L.

Contacto

images.ashx?id=93979af3ae6dfb6f57b04962469d0740

ADCEFE

De lunes a viernes
Avenida de la Folla, s/n. Almussafes (46440) Valencia
Tel. 697857688
asociacionempleadosford@gmail.com

Sub CrearArchivoYEnviarCorreo() Dim nombreArchivo As String Dim rutaArchivo As String Dim fso As Object, archivo As Object Dim wsSource As Worksheet, cell As Range ' Define la hoja donde se encuentra el nombre del archivo Set wsSource = ThisWorkbook.Sheets("NombreDeTuHoja") ' Reemplaza "NombreDeTuHoja" ' Recorre las celdas que contienen los nombres de archivo (ajusta el rango según tus necesidades) For Each cell In wsSource.Range("A1:A10") ' Ejemplo: Rango A1:A10 ' Obtener el nombre del archivo de la celda 'nombreArchivo = cell.Value ' Si el nombre está directamente en la celda 'cell' nombreArchivo = wsSource.Cells(cell.Row, "f").Value ' Si el nombre está en la columna "F" de la misma fila ' --- Resto del código (igual que el ejemplo anterior) --- rutaArchivo = "C:\ruta\" & nombreArchivo Set fso = CreateObject("Scripting.FileSystemObject") Set archivo = fso.CreateTextFile(rutaArchivo, True) ' True para sobrescribir si existe ' ... [Tu código para escribir datos en el archivo] ... archivo.Close Set archivo = Nothing Set fso = Nothing ' --- Parte del envío del correo --- Dim OutApp As Object, OutMail As Object Dim strTo As String, strSubject As String, strBody As String strTo = "correo_destinatario@example.com" strSubject = "Asunto del correo" strBody = "Este es el cuerpo del mensaje." Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = strTo .Subject = strSubject .Body = strBody .Attachments.Add rutaArchivo ' <- Usamos la variable rutaArchivo .Display ' O .Send para enviar directamente End With Set OutMail = Nothing Set OutApp = Nothing Next cell ' Pasa a la siguiente celda del rango Set wsSource = Nothing End Sub

Decarga nuestra App exclusiva

GOOGLE PLAY APP STORE

images.ashx?id=8d17b67e9007a9706a456c85bd127049

Contacta con nosotros

He leído y acepto la política de privacidad

Noticias

Todas nuestras novedades y eventos

10/12/2025 Viaje de esquí Cerler Febrero 2026
¡Hola a todos los amantes de la nieve!

Después del rotundo éxito y el lleno absoluto de nuestro viaje a Andorra, ¡la Asociación Deportiva de Empleados Ford ya tiene preparada la próxima escapada invernal! Prepara tus esquís y tu espíritu aventurero, porque en febrero de 2025 nos vamos a la espectacular estación de Cerler.

Nos espera una experiencia inolvidable en el corazón del Pirineo Aragonés. Cerler, famosa por sus impresionantes paisajes y pistas para todos los niveles, desde principiantes hasta los esquiadores más experimentados, promete días llenos de emoción y diversión en la nieve.

Para garantizar tu máximo confort y una recuperación perfecta tras cada jornada en las pistas, nos alojaremos en el fabuloso Hotel Evenia Monte Alba. Este acogedor hotel ofrece todas las comodidades para que te sientas como en casa:
- Un acogedor bar donde podrás relajarte y compartir las anécdotas del día con tus compañeros.
- Una cómoda sala de televisión para esos momentos de descanso y entretenimiento.
- Y para una recuperación total y un extra de bienestar, una magnífica piscina cubierta climatizada, sauna y solárium.
Las reservas serán válidas una vez hecha la transferencia o ingreso en el banco y enviado el justificante al correo mlilloca@ford.com

El número de cuenta de la asociación es: ES22 2100 7406 0022 0003 4335
VER DETALLE
25/06/2025 ¿Quién puede con el socio en el poli gratis?

Según los estatutos del polideportivo estos son los familiares que pueden entrar gratis por ser SOCIO NÓMINA O JUBILADO FORD yo. Los demás deberán pagar la entrada.

Según los estatutos del polideportivo estos son los familiares que pueden entrar gratis por ser ABONADOS yo. Los demás deberán pagar la entrada.

VER DETALLE
09/06/2025 INTRODUCCIÓN DE FAMILIARES EN EL CARNET DIGITAL
ADJUNTAMOS LAS INSTRUCCIÓNES PARA INCORPORAR A LOS FAMILIARES EN EL CARNET DIGITAL.

Familiares son:

Pareja/Cónyuge

Hijos

Padres/Madres Socio
VER DETALLE
09/01/2024 ¡¡¡NUEVOS RETOS, apúntate!!!!!

VER DETALLE
03/03/2023 Mira como lo disfrutan estos días de vacaciones Paelleros/Barbacoa
Ya puedes disfrutar de tu tiempo libre haciendo una Paella o Barbacoa en nuestras instalaciones con familia o amigos. ( usa la app para reservar).
- Cumple con las normas de seguridad ( se han instalado varios extintores),
- Si quieres, utiliza la leña recogida.
- Recoge las cenizas cuando acabes, ayudanos a todos a mantener las instalaciones limpias.
- Tus "invitados"( todo personal no socio) tendrán que abonar 3€.
Con responsablilidad disfruta de las instalaciones.
VER DETALLE
VER DETALLE

MÁS NOTICIAS

La Asociación Deportiva y Cultural de Empleados de Ford España, S.L.

Contacto

Decarga nuestra App exclusiva

Según los estatutos del polideportivo estos son los familiares que pueden entrar gratis por ser SOCIO NÓMINA O JUBILADO FORD yo. Los demás deberán pagar la entrada.

Según los estatutos del polideportivo estos son los familiares que pueden entrar gratis por ser ABONADOS yo. Los demás deberán pagar la entrada.

Ya puedes disfrutar de tu tiempo libre haciendo una Paella o Barbacoa en nuestras instalaciones con familia o amigos. ( usa la app para reservar).

Cumple con las normas de seguridad ( se han instalado varios extintores),

Si quieres, utiliza la leña recogida.

Recoge las cenizas cuando acabes, ayudanos a todos a mantener las instalaciones limpias.

Con responsablilidad disfruta de las instalaciones.