Como embalar e anexar rapidamente vários contatos a um e-mail do Outlook

Se você precisa enviar um grande número de contatos para alguém por e-mail, pode compactar e compactar esses contatos em um zip arquivo. Neste artigo, apresentaremos um método rápido para você.

Às vezes, pode ser necessário encaminhar vários contatos para alguém por e-mail. Nesse caso, se houver centenas de contatos a serem enviados, convém embalá-los e anexá-los como um zip arquivo para um e-mail, em vez de anexá-los separadamente a um e-mail. Então, aqui vamos compartilhar um meio rápido com você.

Empacote e anexe vários contatos a um e-mail

1. Para comotart, inicie o aplicativo Outlook.
2. Em seguida, acione o editor VBA do Outlook de acordo com “Como executar o código VBA no seu Outlook".
3. Em seguida, coloque o código a seguir em um módulo não utilizado.

Sub PackAttachMultipleContactsToEmail() Dim objSelection As Outlook.Selection Dim objItem As Object Dim objContact As Outlook.ContactItem Dim strFullName As String Dim varTempFolder As Variant Dim varZipFile As Variant Dim objShell As Object Dim objFileSystem As Object Dim objMail As Outlook.MailItem 'Obter os contatos selecionados Set objSelection = Outlook.Application.ActiveExplorer.Selection If Not (objSelection is Nothing) Then 'Criar uma pasta temporária varTempFolder = "E: \TempContacts" & Format(Now, "YYMMDDHHMMSS") MkDir (varTempFolder) varTempFolder = varTempFolder & "\" 'Salvar cada contato como arquivo vCard para cada objItem em objSelection Se TypeOf objItem for ContactItem, então defina objContact = objItem strFullName = objContact.FullName objContact.SaveAs varTempFolder & strFullName & ".vcf", olVCard End If Next 'Criar um ZIP arquivo varZipArquivo = "E:\Contatos.zip" abrir varZipArquivo para saída como #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Fechar #1 'Adicionar os arquivos vcard exportados para o ZIP arquivo Set objShell = CreateObject("Shell.Application") objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Itens On Error Resume Next Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count Application.Wait (Now + TimeValue("0:00:01")) Loop On Error GoTo 0 Set objFileSystem = CreateObject("Scripting.FileSystemObject") objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1) 'Anexar o zip arquivo para o novo e-mail Set objMail = Application.CreateItem(olMailItem) objMail.Attachments.Add varZipArquivo objMail.Display End If End Sub

4. Depois disso, adicione esta macro à barra de ferramentas de acesso rápido ou à faixa de opções.
5. Por fim, siga as etapas abaixo para tentar.

• Primeiro, selecione os contatos que você deseja.
• Em seguida, pressione o botão de macro na barra de ferramentas de acesso rápido ou na faixa de opções.
• Imediatamente, um novo e-mail será exibido, no qual você pode ver o anexo zip arquivo chamado “Contatos”, conforme a figura a seguir.

Prepare uma poderosa ferramenta de correção de PST

Como o arquivo de dados do Outlook é propenso a corrupção, você precisa aprender algumas maneiras de corrigir PST arquivo. Primeiro, você pode experimentar o Scanpst, o utilitário de reparo da caixa de entrada. No entanto, no caso de danos graves ao PST, você deve recorrer a uma ferramenta mais robusta, 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 recuperar Sql Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com