Como anexar vários compromissos em lote como arquivos iCalendar (.ics) ao seu e-mail do Outlook

Por padrão, você pode facilmente anexar um compromisso como um arquivo iCalendar (.ics) a um e-mail. Mas, se você deseja anexar vários compromissos em lote como arquivos ics, deve usar o método apresentado neste artigo.

Para anexar um compromisso como arquivo iCalendar (.ics) a um e-mail, você pode consultar nosso artigo anterior – “Como enviar um compromisso do Outlook para outras pessoas”. Basta abrir um compromisso e selecionar “Avançar” > “Avançar como iCalendar”. É muito fácil. No entanto, o Outlook não oferece suporte para enviar muitos compromissos como anexos de arquivo iCalendar. Assim, a seguir, vamos ensinar-lhe uma outra maneira.

Lote anexar vários compromissos como arquivos iCalendar (.ics) para e-mail

1. Para começar, abra o aplicativo Outlook.
2. Depois de entrar na janela principal do Outlook, você pode pressionar as teclas “Alt + F11”.
3. Em seguida, a janela do editor VBA do Outlook será aberta, na qual você precisa abrir um módulo que não está em uso.
4. Em seguida, você pode copiar o seguinte código VBA para esta janela do módulo.

Sub BatchAttachMultipleAppointmentsAsiCalendarFiles()
    Dim objSelection As Outlook.Selection
    Dim objAppointment As Outlook.AppointmentItem
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strTempFile As String
    Dim objNewMail As Outlook.MailItem
 
    'Get the selected appointments
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\"
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objAppointment In objSelection
        'Save the appointments as ics files to local folder
        strTempFile = strTempFolder & objAppointment.Subject & ".ics"
        objAppointment.SaveAs strTempFile, olICal
 
        'Attach the ics files to the new email
        objNewMail.Attachments.Add strTempFile
  
        'delete the temp ics files
        objFileSystem.DeleteFile (strTempFile)
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Depois disso, você precisa adicionar a nova macro à Barra de Ferramentas de Acesso Rápido para acesso conveniente futuro.

• Primeiro, vá para “Arquivo” > “Opções” > “Barra de Ferramentas de Acesso Rápido”.
• Em seguida, siga as etapas mostradas na captura de tela abaixo para obtê-lo.

6. Mais tarde, você deve alterar o nível de segurança de macro do Outlook para baixo.
7. Em última análise, você pode tentar.

• Para começar, acesse uma pasta de calendário.
• Em seguida, selecione os compromissos que deseja anexar como arquivos ics.
• Em seguida, pressione o novo botão de macro na Barra de Ferramentas de Acesso Rápido.
• Imediatamente, um novo e-mail aparecerá, no qual todos os compromissos previamente selecionados foram anexados como arquivos ics. Parece a seguinte imagem:

Corrigir erros de PST em tempo hábil

Você nunca deve deixar os erros de PST sozinhos. Acumular erros pode finalmente resultar na falha do Outlook. Nesse ponto, você certamente sofrerá corrupção de PST. Você pode pensar que ferramenta de reparo da caixa de entrada pode ajudá-lo a se livrar desse problema. No entanto, na realidade, esse tipo de problema está muito além da capacidade do Scanpst.exe. Portanto, você deve recorrer a uma ferramenta mais potente 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 SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com