Sådan kopieres hurtigt alle e-mail-adresser, der forekommer i kroppen til "CC" -feltet, når du sammensætter en Outlook-e-mail

Nogle gange, når du skriver en e-mail, kan det være en god idé at CC denne mail til e-mail-adresserne i meddelelsesteksten. Denne artikel vil guide dig til at få det hurtigt.

For eksempel beder nogen dig om nogle persons kontaktoplysninger, såsom e-mail-adresserne. I dette tilfælde vil du muligvis fortælle disse personer, når de sender deres kontaktoplysninger til andre. Derfor vil du gerne kopiere e-mail-adresserne fra meddelelsesteksten til feltet "CC". Generelt skal du gøre det en efter en manuelt. Men det er for kedeligt og besværligt. Så i det følgende vil vi introducere en langt mere intelligent måde.Kopier alle e-mail-adresser, der forekommer i kroppen til "CC" -feltet, når du sammensætter en Outlook-e-mail

Kopier e-mail-adresser, der forekommer i kroppen til "CC" -feltet, når du komponerer

  1. I begyndelsen skal du trykke på “Alt + F11” -tasterne for at starte Outlook VBA-editor.
  2. Derefter skal du i det nye vindue sætte følgende VBA-kode i et tomt modul.
Sub CopyEmailAddresses_FromBodyToCCField()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Object
    Dim objDocRange As Object
    Dim objRecipient As Outlook.Recipient
 
    'Get the current mail
    Set objMail = Application.ActiveInspector.CurrentItem
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocRange = objMailDocument.Range
 
    'Extract email addresses from mail body
    With objDocRange.Find
         .ClearFormatting
         .Replacement.ClearFormatting
         .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
         .MatchWildcards = True
         .Wrap = wdFindStop
         .Execute
    End With
 
    'Add the found email addresses as CC recipients
    While objDocRange.Find.Found
          Set objRecipient = objMail.Recipients.Add(objDocRange.Text)
          objRecipient.Type = olCC
          objDocRange.Collapse wdCollapseEnd
          objDocRange.Find.Execute
    Wend
 
    'Resolve all recipients
    objMail.Recipients.ResolveAll
End Sub

VBA-kode - Kopier e-mail-adresser, der forekommer i kroppen til "CC" -feltet

  1. Derefter skal du afslutte VBA-editoren og tilføje denne nye makro til Quick Access Toolbar i meddelelsesvinduet ved at henvise til “Sådan køres VBA-kode i din Outlook".
  2. Til sidst kan du tage et skud. Her er min egentlige forekomst.
  • For det første komponerer jeg en e-mail, der indeholder en stak e-mail-adresser i kroppen.
  • Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.Kør makro
  • Umiddelbart, når makroen er færdig, kopieres alle e-mail-adresserne i kroppen til "CC" -feltet, som skærmbilledet nedenfor.E-mail-adresser kopieret til "CC" -feltet

Hvad hvis dine Outlook-data bliver beskadiget

Det er velkendt, at Outlook kan blive kompromitteret på grund af en række faktorer, såsom menneskelige fejl, pludselig nedlukning, interne Outlook-softwarefejl samt computerhardwarefejl og så videre. Derfor har mange brugere i virkeligheden nogensinde oplevet lignende problemer i Outlook. Det er indrømmet, at det mest irriterende og besværlige problem er beskadigelse af Outlook-filer. I den situation skal du ty til en professionel. PST-genopretning service eller software, ligesom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.