Como converter várias anotações em e-mails separados de uma vez no Outlook?
Às vezes, você pode querer criar novos e-mails separados com o conteúdo das notas no Outlook. Normalmente, você pode arrastar todas as notas para o ícone Mail no painel de navegação, mas todas as notas serão inseridas em um único e-mail. Como você poderia converter várias anotações em novos e-mails separadamente no Outlook?
Converta várias notas em e-mails separados de uma só vez com o código VBA
Converta várias notas em e-mails separados de uma só vez com o código VBA
Para criar vários e-mails separados com base no conteúdo das notas, aplique o seguinte código VBA:
1. Vá para o painel Notas e selecione as notas que deseja converter em emails.
2. Então, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. E então, clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto:
Código VBA: converta várias anotações em e-mails separados de uma vez:
Sub BatchCreateEmailsFromNotes()
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xItem As Object
Dim xNote As Outlook.NoteItem
Dim xMail As Outlook.MailItem
Dim xYesNo As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection Is Nothing Or xSelection.Count = 0 Then Exit Sub
xYesNo = MsgBox("Are you sure to convert the selected notes to emails?", vbOKCancel + vbQuestion, "Kutools for Outlook")
If xYesNo = VbMsgBoxResult.vbCancel Then
Exit Sub
End If
For Each xItem In xSelection
If xItem.Class = olNote Then
Set xNote = xItem
Set xMail = Outlook.Application.CreateItem(OlMailItem)
With xMail
.Subject = "Note: " & Mid(xNote.Body, 1, 10)
.Body = xNote.Body
.Attachments.Add xNote
.Display
End With
End If
Next
End Sub
4. Então aperte F5 para executar este código e uma caixa de mensagem aparecerá para lembrá-lo se você deseja converter anotações em e-mails, clique OK, veja a captura de tela:
5. E então, todas as notas selecionadas foram convertidas em e-mails, como mostrado a seguir:
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.