# Insertar entrada en outlook calendar

**URL:** <https://foros.velneo.com/t/insertar-entrada-en-outlook-calendar/11222>\
**Category:** Velneo\
**Created:** [9 Febrero, 2023 12:55 UTC](https://foros.velneo.com/t/insertar-entrada-en-outlook-calendar/11222 "2023-02-09T12:55:55Z")\
**Posts on this page:** 4\
**Page:** 1

<div class="post-metadata">

**Author:** ![manager](https://avatars.discourse-cdn.com/v4/letter/m/958977/32.png) [@manager](https://foros.velneo.com/u/manager)\
**Post date:** [9 Febrero, 2023 12:55 UTC](https://foros.velneo.com/t/insertar-entrada-en-outlook-calendar/11222/1 "2023-02-09T12:55:55Z")

</div>

Buenos días,  
Estoy buscando en la red documentación sobre el calendario de outlook.  
El usuario me pide que desde un proceso del programa genere una entrada en calendario.  
En su momento y gracias a Paco Satue, pude comunicar el programa con el correo de Outlook.  
Muchas gracias por vuestra ayuda.  
P.S.- El usuario no quiere usar el calendario fuera del que lleva Outlook.

Saludos

---

<div class="post-metadata">

**Author:** ![gontorre](https://yyz1.discourse-cdn.com/flex035/user_avatar/foros.velneo.com/gontorre/32/5728_2.png) [@gontorre](https://foros.velneo.com/u/gontorre)\
**Post date:** [13 Febrero, 2023 08:21 UTC](https://foros.velneo.com/t/insertar-entrada-en-outlook-calendar/11222/2 "2023-02-13T08:21:13Z")

</div>

Buenos días

Puedes hacerlo mediante un fichero VBS de Windows:

```auto
// Rem ( Crear un script para enviar un email mediante Outlook )
Set ( FIC, tempPath()+"/"+dateTimeToString(currentDateTime(), "yyyyMMdd_hhmmss_z")+".vbs")
Fichero: Abrir ( FIC_VBS, FIC, Lectura/escritura (Crea o limpia), OK, .Ninguno )
	Fichero: Grabar línea ( FIC_VBS, "Set objOutlook = CreateObject(\cOutlook.Application\c)", )
	Fichero: Grabar línea ( FIC_VBS, "Set objCal = objOutlook.CreateItem(1)", )
	Libre
	Fichero: Grabar línea ( FIC_VBS, "objCal.Subject = \c"+ASUNTO+"\c", )
	Fichero: Grabar línea ( FIC_VBS, "objCal.Start = \c"+dateTimeToString(TIM_INI, "dd/MM/yyyy hh:mm")+"\c", )
	Fichero: Grabar línea ( FIC_VBS, "objCal.End = \c"+dateTimeToString(TIM_FIN, "dd/MM/yyyy hh:mm")+"\c", )
	If ( isEmpty(CUERPO)=0 )
		Fichero: Grabar línea ( FIC_VBS, "objCal.body=\c"+replaceString(CUERPO, "\n", "\c & chr(13) &\c")+"\c", )
	Fichero: Grabar línea ( FIC_VBS, "objCal.ReminderSet = True", )
	Fichero: Grabar línea ( FIC_VBS, "objCal.Display", )
// Libre
Ejecutar documento ( "file:///"+FIC, )

```

Un saludo

---

<div class="post-metadata">

**Author:** ![manager](https://avatars.discourse-cdn.com/v4/letter/m/958977/32.png) [@manager](https://foros.velneo.com/u/manager)\
**Post date:** [14 Febrero, 2023 08:01 UTC](https://foros.velneo.com/t/insertar-entrada-en-outlook-calendar/11222/3 "2023-02-14T08:01:25Z")

</div>

Muchas gracias.  
Ya pruebo y te comento.

Saludos  
Vicente

---

<div class="post-metadata">

**Author:** ![manager](https://avatars.discourse-cdn.com/v4/letter/m/958977/32.png) [@manager](https://foros.velneo.com/u/manager)\
**Post date:** [1 Marzo, 2023 09:32 UTC](https://foros.velneo.com/t/insertar-entrada-en-outlook-calendar/11222/4 "2023-03-01T09:32:52Z")

</div>

Perfecto,  
Muchas gracias.  
¿Se puede registrar también en un calendario compartido?  
¿Como puedo identificar el calendario donde quiero escribir?

Muchas gracias