Às vezes, você pode querer editar ou adicionar notas aos seus e-mails no Outlook. Este artigo apresentará uma maneira eficaz de realizar essa função.
De "4 métodos fáceis para inserir uma nota em suas mensagens do Outlook“, você pode aprender a inserir notas em e-mails por meio de funções nativas do Outlook, como usar sinalizadores personalizados, digitar nota no assunto ou no corpo ou anexar itens de nota existentes a este e-mail. No entanto, todos eles são apenas soluções alternativas. Aqui, vamos ensinar-lhe um método muito mais eficaz. Por meio dele, você poderá adicionar notas a e-mails e editar ou excluir notas existentes à vontade.
Adicionar notas aos e-mails do Outlook
- Para começar, acesse o editor VBA pressionando “Alt + F11” no Outlook.
- Em seguida, clique em “Inserir” > “Formulário de usuário”.
- Em seguida, no novo UserForm, crie uma caixa de texto como a imagem abaixo.
- Em seguida, altere o “Nome” da caixa de texto para “txtNotes”, como na captura de tela.
- Depois disso, crie dois botões de comando no formulário.
- Em seguida, selecione “CommandButton 1”. Altere seu “Nome” para “btnOK” e altere sua “Legenda” para “OK”.
- Depois altere o “Nome” do “CommandVutton 2” para “btnCancel” e o “Legenda” para “Cancelar”.
- Em seguida, selecione todo o UserForm e modifique seu “Nome” para “frmAddNote” e “Legenda” para “Digite sua nota”.
- Posteriormente, clique com o botão direito do mouse em “fromAddNote” e escolha “View Code”.
- Na nova tela, copie o código a seguir.
Private Sub btnOK_Click()
Dim strNote As String
Dim objMail As Outlook.MailItem
Dim objNote As Outlook.NoteItem
strNote = txtNotes.Text
Set objMail = Application.ActiveExplorer.Selection.Item(1)
Set objNote = Application.CreateItem(olNoteItem)
objNote.Body = strNote
objNote.Save
objMail.Attachments.Add objNote
objMail.Save
objNote.Delete
Unload Me
End Sub
Private Sub btnCancel_Click()
Unload Me
End Sub
- Posteriormente, coloque o código VBA abaixo em um módulo não utilizado.
Sub AddNote()
frmAddNote.Show
End Sub
- Por fim, vá para “Arquivo”> “Opções”> “Personalizar Faixa de Opções” para adicionar esta macro à faixa de opções.
- Agora, você pode tentar. Selecione um e-mail e clique no novo botão "Adicionar nota" na faixa de opções.
- Na caixa de diálogo pop-up, você pode inserir sua nota e clicar em "OK".
- Imediatamente, uma nova nota será adicionada ao e-mail selecionado.
Editar ou excluir notas existentes para e-mails do Outlook
Às vezes, você pode querer editar ou excluir quaisquer notas existentes em um e-mail. Você pode seguir os passos abaixo.
- Primeiro, crie outro formulário de usuário e nomeie-o como “frmEditNote” e modifique sua legenda para “Editar sua nota”.
- Em seguida, insira uma nova caixa de texto no formulário e altere seu “Nome” para “txtNotas”.
- Em seguida, adicione dois botões de comando – “OK” e “Cancelar”.
- Depois disso, clique com o botão direito do mouse em “frmEditNote” e selecione “Exibir código”.
- Na nova página de código de “frmEditNote”, coloque o seguinte código.
Private Sub UserForm_Initialize()
Dim objAttachNote As Outlook.Attachment
Dim objTempNote As Outlook.NoteItem
Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
Set objMail = objAttachNote.Parent
If Right(objAttachNote.FileName, 3) = "msg" Then
strTempFolder = Environ("Temp")
strFilePath = strTempFolder & "\" & objAttachNote.FileName
objAttachNote.SaveAsFile strFilePath
End If
Set objTempNote = Session.OpenSharedItem(strFilePath)
txtNotes.Text = objTempNote.Body
objTempNote.Close olDiscard
End Sub
Private Sub btnOK_Click()
Dim strNote As String
Dim objMail As Outlook.MailItem
Dim objAttachNote As Outlook.Attachment
Dim objNewNote As Outlook.NoteItem
strNote = txtNotes.Text
Set objNewNote = Application.CreateItem(olNoteItem)
Set objMail = Application.ActiveExplorer.Selection.Item(1)
Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
objAttachNote.Delete
objNewNote.Body = strNote
objNewNote.Save
objMail.Attachments.Add objNewNote
objMail.Save
objNewNote.Delete
Unload Me
End Sub
Private Sub btnCancel_Click()
Unload Me
End Sub
- Depois disso, abra um módulo e copie o código VBA para ele.
Sub EditNote()
frmEditNote.Show
End Sub
Sub DeleteNotes()
Dim objSelectedAttachments As Outlook.AttachmentSelection
Dim objAttachment As Outlook.Attachment
Dim objMail As Outlook.MailItem
Set objSelectedAttachments = Application.ActiveExplorer.AttachmentSelection
For Each objAttachment In objSelectedAttachments
If Right(objAttachment.FileName, 3) = "msg" Then
objAttachment.Delete
End If
Next
Set objMail = Application.ActiveExplorer.Selection.Item(1)
objMail.Save
End Sub
- Por fim, você pode adicionar as macros “EditNote” e “DeleteNotes” à faixa de opções.
- Por fim, após clicar em “OK” e retornar à janela principal, você pode tentar editar uma nota.
- Selecione uma nota e clique no botão "Editar nota".
- Em seguida, uma nova caixa de diálogo aparecerá, na qual você pode editar a nota selecionada.
- Após a edição, clique em “OK”. A nota será atualizada.
- Além disso, você pode tentar excluir quaisquer notas.
- Selecione a nota que deseja excluir.
- Clique no botão "Excluir notas" na faixa de opções.
- Esta nota será excluída imediatamente.
Impedir que o Outlook perca dados
Você está procurando uma solução poderosa para bloquear a perda de dados do Outlook? Para ser honesto, desde que você faça backups regulares dos dados do Outlook, poderá evitar a perda de dados PST com facilidade. Por exemplo, mesmo que o PST seja danificado, você ainda pode facilmente recuperar PST dados do arquivo PST de backup como uma brisa.
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 recuperar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com