Visual Basic - Eliminar cita email

Life is soft - evento anual de software empresarial
   
Vista:

Eliminar cita email

Publicado por Roberto (2 intervenciones) el 31/01/2018 13:16:51
Hola a todos.

¿Me gustaría saber como podría eliminar una cita del outlook, vía vba?

Con los parámetros de fecha, hora y el Asunto como parámetros de búsqueda.

¿Sería posible?

Muchas gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Eliminar cita email

Publicado por Roberto (2 intervenciones) el 31/01/2018 15:42:55
Hola de nuevo.

He encontrado el siguiente código. Funciona bien, salvo que cuando tengo varias citas y quiero borrar más de una debo lanzarlo varias veces hasta que elimina todas... ¿Alguna idea del error?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Function a()
 
Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim objAppointment As Outlook.AppointmentItem
Dim lngDeletedAppointements As Long
Dim strSubject As String
Dim strLocation As String
Dim dteStartDate As Date
 
'******************************** Set Criteria for DELETION here ********************************
strSubject = "hj"
strLocation = "España"
dteStartDate = #3/12/2018#
'************************************************************************************************
 
Set objOutlook = Outlook.Application
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
 
 
For Each objAppointment In objFolder.Items
  If objAppointment.subject = strSubject And objAppointment.Location = strLocation Then
       objAppointment.Delete
         lngDeletedAppointements = lngDeletedAppointements + 1
  End If
Next
 
MsgBox lngDeletedAppointements & " appointment(s) DELETED.", vbInformation, "DETETE Appointments"
 
 
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar