none
Ajuda com inserção de Evento no Outlook RRS feed

  • Pergunta

  • Amigos,
     
    Estou precisando inserir um evento no Outlook, conforme este trecho de código abaixo.
     
    Mas preciso saber como fazer estas operações:
    - criar uma categoria nova
    - verificar os eventos existentes para localizar um em especial (a fim detectar se ele já está inserido)
    - atualizar as informações de um evento em especial
    - exibir o Outlook, já no modo Calendário e filtrado por uma ou mais categorias em especial
     
    Abaixo está o trecho de código que comecei a fazer...
     
    -----------------------------------------------------------------------------------------
        Dim RefOutlook As New Outlook.Application, x As Integer
        Dim RefItem As AppointmentItem, RefCat As Category
        On Error GoTo OcorreuErro
        Set RefItem = RefOutlook.CreateItem(olAppointmentItem)
        ' Criar a categoria
        '       ... faltando ....
       
        ' Verificar eventos existentes para evitar duplicidade
        '       ... faltando ....
       
        ' Adicionar evento - se ele não existir!
        RefItem.Categories = "Categoria Teste"
        RefItem.AllDayEvent = True
        RefItem.Start = CDate("04/09/2006")
        RefItem.End = CDate("20/09/2006") + 1
        RefItem.ReminderSet = False
        RefItem.Subject = "Primeiro teste de evento no Outlook"
        RefItem.Save
        ' Atualizar evento - se ele existir!
        '       ... faltando ....
       
        ' Exibir o Outlook já com o Calendário filtrado pela(s) categoria(s) criada(s)
        '       ... faltando ....
    ------------------------------------------------------------------
     
    sábado, 9 de setembro de 2006 12:12