hola este es mi primer post soy nuevo en este temas de macros espero alguien me pueda orientar con la duda siguiente desde vba excel intento crear y Eliminar Citas en el calendario de outlook buscando adapte este codigo y puedo crear sin problema una cita pero no puedo eliminar la cita, espero algun maestro de aqui o alma caritativa de este foro me pueda ayudar orientandome gracias
Dim ol As Outlook.Application
Dim ns As Outlook.Namespace
Dim Respuesta As VbMsgBoxResult
Dim itmApoint As Outlook.AppointmentItem
Sub Botón1_Haga_clic_en()
Set ns = ol.GetNamespace("MAPI")
Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem)
With itmApoint
.Start = "2014-07-11 13:00:00"
.End = "2014-07-11 14:00:00"
.Subject = "Prueba"
.Body = "Prueba"
.Importance = olImportanceNormal
.Save
End With
MsgBox "Se creó el recordatorio en Outlook", vbInformation, "Mensaje"
End Sub
Sub Botón2_Haga_clic_en()
Dim sBusq1 As String
sBusq1 = "Prueba"
Set ol = CreateObject("Outlook.Application")
Set ns = myOlApp.GetNamespace("MAPI")
Set myfolder = ns.GetDefaultFolder(olFolderCalendar)
For Each myItem In myfolder.Items
If myItem.Subject = sBusq1 Then
myItem.Delete
End If
Next myItem
End Sub
[/CODE]
hola este es mi primer post soy nuevo en este temas de macros espero alguien me pueda orientar con la duda siguiente desde vba excel intento crear y Eliminar Citas en el calendario de outlook buscando adapte este codigo y puedo crear sin problema una cita pero no puedo eliminar la cita, espero algun maestro de aqui o alma caritativa de este foro me pueda ayudar orientandome gracias
Excel-outlook.rar