Hola a todos,
Estoy tratando de enviar un archivo a los usuarios de la intranet, con la finalidad de que al ejecutar o guardar este archivo, se guarden los cumpleaños dentro del outlook como un evento.
Los datos de los usuarios los leo desde el Active Directory y genero un archivo de texto con extension .CSV
El problema viene que solo quisiera generar un archivo que contenga todos los eventos, y no un archivo por evento.
Este es parte del codigo para generar el vcs,
Set fs = CreateObject("Scripting.FileSystemObject")
Set arch = fs.CreateTextFile("ruta\Cumple2006.vcs" , True)
arch.WriteLine("BEGIN:VCALENDAR")
arch.WriteLine("PRODID:-//Microsoft Corporation//Outlook 11.0 MIMEDIR//EN")
arch.WriteLine("VERSION:2.0")
arch.WriteLine("METHOD:PUBLISH")
arch.WriteLine("BEGIN:VEVENT")
arch.WriteLine("ORGANIZER:MAILTO:
[email protected] m.mx")
arch.WriteLine("DTSTART:"&anioActual&cumple&"T0600 00Z")
arch.WriteLine("DTEND:"&anioActual&cumple&"T060000 Z")
arch.WriteLine("LOCATION:Corporativo")
arch.WriteLine("TRANSP:OPAQUE")
arch.WriteLine("SEQUENCE:0")
arch.WriteLine("UID:040000008200E00074C5B7101A82E0 080000000000DE1DEC17F1C6010000000000000000100")
arch.WriteLine(" 000008DBF3C76E2AA0B45B7ED3AEA8013D443")
arch.WriteLine("DTSTAMP:"&aviso&"T162234Z")
arch.WriteLine("SUMMARY:PruebaCumple3")
arch.WriteLine("PRIORITY:5")
arch.WriteLine("X-MICROSOFT-CDO-IMPORTANCE:1")
arch.WriteLine("CLASS:PUBLIC")
arch.WriteLine("BEGIN:VALARM")
arch.WriteLine("TRIGGER
T15M")
arch.WriteLine("ACTION:DISPLAY")
arch.WriteLine("DESCRIPTION:Reminder")
arch.WriteLine("END:VALARM")
arch.WriteLine("END:VEVENT")
arch.WriteLine("END:VCALENDAR")
Alguien tiene idea de como hacerlo? o si existe otra forma de programar esto se los agradeceré muchisisimo
Gracias