cabecera_outlook_csv

    S SEPACOMA=","
    S FICOUTL="\contactos_socios_para_outlook.CSV"
    O FICOUTL:"WN":5
    U FICOUTL W "Nombre"_SEPACOMA_"Puesto"_SEPACOMA_"Calledeltrabajo"_SEPACOMA_"Ciudaddetrabajo"_SEPACOMA_"Provinciaoestadodetrabajo"_SEPACOMA_"Códigopostaldeltrabajo"_SEPACOMA_"Paísdetrabajo"_SEPACOMA_"Teléfonodeltrabajo"_SEPACOMA_"Móvil"_SEPACOMA_"E-mailAddress"_SEPACOMA_"E-mailType"_SEPACOMA_"Nombredepantalladecorreoelectrónico",!
....
....
    I BAJA="" I TCLI=0 I EMAIL'="" S DOM=$TR(DOM,","," ") U FICOUTL W NOM_SEPACOMA_CL_SEPACOMA_DOM_SEPACOMA_POB_SEPACOMA_PRV_SEPACOMA_CP_SEPACOMA_"España"_SEPACOMA_TEL_SEPACOMA_MOVIL_SEPACOMA_EMAIL_SEPACOMA_"SMTP"_SEPACOMA_EMAIL,!