Kako brzo kopirati sve adrese e-pošte koje se pojavljuju u tijelu u polje "CC" prilikom sastavljanja Outlook e-pošte

Ponekad, kada sastavljate e-poruku, možda ćete htjeti poslati CC ovu poruku na adrese e-pošte u tijelu poruke. Ovaj će vam članak pomoći da to brzo dobijete.

Na primjer, netko vas pita za kontakt podatke nekih osoba, kao što su adrese e-pošte. U tom slučaju, možda biste željeli obavijestiti te osobe o tome kada drugima šaljete njihove podatke za kontakt. Stoga biste željeli kopirati adrese e-pošte iz tijela poruke u polje "CC". Općenito, morate to učiniti jedan po jedan ručno. Ali to je previše zamorno i glomazno. Dakle, u nastavku ćemo predstaviti daleko inteligentniji način.

Kopirajte adrese e-pošte koje se pojavljuju u tijelu u polje "CC" tijekom pisanja

1. Na samom početku pritisnite tipke “Alt + F11” za pokretanje Outlook VBA editora.
2. Zatim u novom prozoru stavite sljedeći VBA kod u prazan 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

3. Nakon toga izađite iz VBA uređivača i dodajte ovu novu makronaredbu na alatnu traku za brzi pristup prozora s porukama pozivajući se na “Kako pokrenuti VBA kod u vašem Outlooku".
4. Na kraju, možete pucati. Evo mog stvarnog primjera.

• Prvo, sastavljam e-poruku koja sadrži hrpu adresa e-pošte u tijelu.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Odmah, kada makronaredba završi, sve adrese e-pošte u tijelu bit će kopirane u polje "CC", kao na snimci zaslona u nastavku.

Što ako se vaši Outlook podaci oštete

Dobro je poznato da Outlook može biti kompromitiran zbog raznih čimbenika, poput ljudskih pogrešaka, iznenadnog gašenja, grešaka unutarnjeg softvera Outlooka, kao i kvarova hardvera vašeg računala i tako dalje. Stoga su se mnogi korisnici susreli sa sličnim problemima u Outlooku. Priznaje se da je najuznemirujući i najproblematičniji problem oštećenje Outlook datoteka. U toj situaciji morat ćete se obratiti profesionalcima. PST oporavak uslugu ili softver, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com