Como converter uma reunião em um compromisso com o Outlook VBA

Muitos usuários anseiam por um método para converter uma reunião do Outlook em um compromisso comum. Este artigo apresentará um método rápido para realizá-lo rapidamente por meio do Outlook VBA.

Na verdade, uma reunião do Outlook também é um item de compromisso. A principal diferença entre eles é que a reunião contém participantes, mas o compromisso não. Assim, é muito fácil converter um compromisso comum em uma reunião. Basta abrir o compromisso e clicar no botão "Convidar participantes" na guia "Compromisso".

No entanto, o Outlook não nos permite converter facilmente uma reunião em um compromisso. Ele não oferece suporte nativo para remover participantes. Portanto, em geral, se você quiser fazer isso, a solução alternativa é criar manualmente um novo compromisso com os mesmos detalhes da reunião. Isso pode ser bastante demorado. Felizmente, com o VBA do Outlook, você pode fazer isso com extrema facilidade. Continue lendo para obter os códigos VBA e os passos detalhados.

Converter uma reunião em um compromisso com o Outlook VBA

1. Para começar, acesse a guia "Desenvolvedor" e clique no botão "Visual Basic".
2. Em seguida, na nova janela “Microsoft Visual Basic for Applications”, você precisa inserir um novo módulo.
3. Em seguida, copie e cole os seguintes códigos VBA nele.

Sub ConvertMeetingtoAppt()
    Dim olSel As Selection
    Dim obj As Object
    Dim olMeeting As AppointmentItem
    Dim Recips As Recipients
    Dim Recip As Recipient
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each obj In olSel
        If TypeName(obj) = "AppointmentItem" Then
           Set olMeeting = obj
           If olMeeting.MeetingStatus <> olNonMeeting Then
              If MsgBox("Are you sure to convert the selected meeting into an appointment?", vbYesNo + vbQuestion, "Confirm Convert") = vbYes Then
                 Set Recips = olMeeting.Recipients
                 For Each Recip In Recips
                     Recip.Delete
                 Next
                 olMeeting.MeetingStatus = olNonMeeting
                 olMeeting.Save
              End If
           End If
        End If
    Next
End Sub

4. Posteriormente, você pode voltar para a janela principal do Outlook e continuar a adicionar a nova macro à Barra de Ferramentas de Acesso Rápido.
5. Eventualmente, você pode tentar este código.

• Em primeiro lugar, abra a pasta correta do Calendário e apresente a reunião de origem.
• Em seguida, pressione o botão macro na Barra de Ferramentas de Acesso Rápido.
• Mais tarde, você receberá uma caixa de mensagem, perguntando se tem certeza de converter.
• Ao selecionar “Sim”, a reunião será transformada em um compromisso de uma só vez.

Não despreze o backup de dados do Outlook

O Outlook é vulnerável a vários fatores, incluindo vírus, malware, falta de energia e assim por diante. Com isso, para prevenir Danos aos dados do Outlook PST, você deve persistir em fazer backups regulares para seus dados do Outlook. É de grande importância. Nunca o ignore. Além disso, sugere-se obter uma ferramenta de reparo potente, que será útil, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar corrompido SQL Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com