Kuidas Outlooki meili koostamisel kiiresti kopeerida kõik kehas esinevad meiliaadressid väljale „CC”

Mõnikord soovite meili koostamisel saata selle meili koopia sõnumi sisus olevatele e-posti aadressidele. See artikkel juhendab teid selle kiireks hankimiseks.

Näiteks keegi küsib teilt mõne inimese kontaktteavet, näiteks e-posti aadresse. Sel juhul võiksite oma kontaktteabe teistele saatmisel neile isikutele sellest teada anda. Seetõttu soovite kopeerida e-posti aadressid sõnumi sisust väljale „CC”. Üldiselt peate seda tegema ükshaaval käsitsi. Kuid see on liiga tüütu ja tülikas. Seega tutvustame järgnevalt palju intelligentsemat viisi.

Kopeerige koostamisel kehas leiduvad meiliaadressid väljale „CC”.

1. Outlooki VBA redaktori käivitamiseks vajutage kohe alguses klahve Alt + F11.
2. Seejärel pange uues aknas tühja moodulisse järgmine VBA kood.

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

3. Pärast seda väljuge VBA redaktorist ja lisage see uus makro sõnumiakna kiirpääsu tööriistaribale, viidates jaotisele "Kuidas Outlookis VBA-koodi käivitada".
4. Lõpuks saate pildistada. Siin on minu tegelik näide.

• Kõigepealt koostan meili, mille kehas on virna e-posti aadresse.
• Seejärel klõpsake kiirjuurdepääsu tööriistaribal makronuppu.
• Kohe, kui makro on lõppenud, kopeeritakse kõik kehas olevad e-posti aadressid väljale „CC”, nagu alloleval ekraanipildil.

Mida teha, kui teie Outlooki andmed saavad kahjustatud?

On hästi teada, et Outlook võib sattuda ohtu mitmesuguste tegurite tõttu, nagu inimlikud vead, äkiline väljalülitamine, Outlooki tarkvara sisemised vead, aga ka arvuti riistvara tõrked ja nii edasi. Seetõttu on paljudel kasutajatel Outlookis kunagi olnud sarnaseid probleeme. Tunnistatakse, et most piinav ja tülikas probleem on Outlooki faili kahjustamine. Sellises olukorras peate pöörduma spetsialisti poole PST taastamine teenus või tarkvara, nagu DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom