Insertar entrada en outlook calendar

Velneo
1

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

2

Buenos días

Puedes hacerlo mediante un fichero VBS de Windows:

// 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

3

Muchas gracias.
Ya pruebo y te comento.

Saludos
Vicente

4

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

Muchas gracias