Ak potrebujete extrahovať všetky e-mailové adresy uvedené vo všetkých tabuľkách e-mailu, môžete použiť metódu uvedenú v tomto článku. Môže vám to dovoliť dostať za okamih.
Dostanete e-mail, ktorý v tele správy obsahuje veľa e-mailových adries. Niektoré e-mailové adresy sú v tabuľkách, iné v textovom texte. Možno budete niekedy chcieť iba extrahovať e-mailové adresy z tabuliek. E-mailové adresy zvyčajne štandardným spôsobom musíte manuálne skopírovať. Bude však dosť ťažkopádne, ak sa v tomto e-maile nachádza príliš veľa tabuliek. Preto vás v nasledujúcich častiach zdieľame s prístupom, ktorý vám umožní získať ho hromadne.
Rýchlo extrahujte e-mailové adresy z tabuliek v e-maile
- Hneď na začiatku spustite aplikáciu Outlook.
- Potom stlačte kombináciu klávesov „Alt + F11“ a spustite editor VBA.
- Ďalej pridajte odkaz na „MS Word Object Library “čítaním„Ako pridať objekt Library Odkaz vo VBA".
- Potom skopírujte nasledujúci kód do nepoužívaného modulu.
Sub ExtractEmailAddressesFromAllTables () Dim objMail ako Outlook.MailItem Dim objMailDocument ako Word.Document Dim strEmailAddresses ako reťazec Dim objNewMail ako Outlook.MailItem Dim objNewMailDocument ako Word.Document 'Získať poštu Vybrať prípad Outlook.Application.ActiveWindow.Class Prípad olIn ActiveInspector.CurrentItem Case olExplorer Set objMail = ActiveExplorer.Selection.Item (1) End Select Set objMailDocument = objMail.GetInspector.WordEditor 'Nájsť všetky e-mailové adresy pomocou zástupných znakov s objMailDocument.Range pomocou .Find .ClearFormatting .Replacement.ClearFormatting. [Az, 0-9] {1,} \ @ [Az, 0-9,.] {1,} ".MatchWildcards = True. Forward = True. Wrap = wdFindStop. Execute End With 'Získajte e-mailové adresy v tabuľke Robiť, kým .Find.Found = False If .Information (wdWithInTable) = True Then strEmailAddresses = .Cells (1) .Range.Text & strEmailAddresses End If .Collapse wdCollapseEnd .Find.Execute Loop End With 'Vložte extrahované e-mailové adresy zo všetkých stoly do novej ma il Set objNewMail = Outlook.CreateItem (olMailItem) With objNewMail .Body = strEmailAddresses .Display With .GetInspector.WordEditor.Application.Selection .WholeStory .Range.Font.Size = 12 Koniec Koniec Koniec Sub
- Neskôr opustíte aktuálne okno.
- Následne postupujte podľa časti „Voliteľný krok“ v časti „Ako spustiť kód VBA v programe Outlook”Na pridanie tohto makra na panel s nástrojmi alebo na pás s nástrojmi Rýchly prístup.
- Nakoniec to môžete vyskúšať.
- Najskôr vyberte alebo otvorte e-mail.
- Potom spustite toto makro kliknutím na novo pridané tlačidlo na paneli nástrojov alebo páse s nástrojmi Rýchly prístup.
- Okamžite sa zobrazí nový e-mail, ktorý obsahuje všetky extrahované e-mailové adresy v tele správy, napríklad na nasledujúcom obrázku.
Obnova po zlyhaní Outlooku
Z času na čas môže Outlook neočakávane zlyhať. V najlepšom prípade sa nič zlé nestane. Jednoduché restart ho nemôže obnoviť. V horšom prípade však narazíte na vážnu korupciu v programe Outlook. V tom čase musíte opraviť Outlook spis. Môžete to vyskúšať pomocou nástroja na opravu doručenej pošty. Ak zlyhá, môžete sa uchýliť k silnejšiemu externému nástroju, ako je napr DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server zotavenie a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S
kliknite na nasledujúci web