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 poželjeti da pošaljete CC ovu poštu na adrese e-pošte u tijelu poruke. Ovaj članak će vas uputiti da ga dobijete u kratkom roku.

Na primjer, neko vas pita za kontakt informacije neke osobe, kao što su adrese e-pošte. U ovom slučaju, možda ćete željeti obavijestiti te osobe o ovom pitanju kada šalju njihove kontakt informacije drugima. Stoga biste željeli kopirati adrese e-pošte iz tijela poruke u polje „CC“. Općenito, morate to raditi jedan po jedan ručno. Ali previše je dosadno i glomazno. Dakle, u nastavku ćemo uvesti daleko inteligentniji način.

Kopirajte adrese e-pošte koje se pojavljuju u tijelu u polje “CC” prilikom komponovanja

1. Na samom početku pritisnite tipke “Alt + F11” da pokrenete Outlook VBA editor.
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 editora i dodajte ovaj novi makro na alatnu traku za brzi pristup prozora poruka 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-poštu koja sadrži gomilu adresa e-pošte u tijelu.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Odmah, kada se makro završi, sve adrese e-pošte u tijelu bit će kopirane u polje „CC“, kao na slici ispod.

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

Dobro je poznato da Outlook može biti kompromitovan zbog raznih faktora, kao što su ljudske greške, iznenadno gašenje, kvarovi unutrašnjeg softvera Outlooka, kao i kvarovi hardvera vašeg računara i tako dalje. Stoga su se, u stvarnosti, mnogi korisnici ikada suočili sa sličnim problemima u Outlooku. Priznaje se da je najuznemirujući i najteži problem oštećenje Outlook datoteka. U toj situaciji, morat ćete se obratiti profesionalcima. PST oporavak usluga ili softvera, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com