Ibland, när du skriver ett e-postmeddelande, kanske du vill kopiera det här meddelandet till e-postadresserna i meddelandetexten. Den här artikeln kommer att vägleda dig för att få det snabbt.
Till exempel ber någon dig om personers kontaktinformation, t.ex. e-postadresserna. I det här fallet kanske du vill meddela dessa personer om detta när du skickar deras kontaktinformation till andra. Därför vill du kopiera e-postadresserna från meddelandetexten till fältet "CC". I allmänhet måste du göra det manuellt. Men det är för tråkigt och besvärligt. Så i det följande kommer vi att introducera ett mycket mer intelligent sätt.
Kopiera e-postadresser som förekommer i huvuddelen till “CC” -fältet när du skriver
- I början trycker du på “Alt + F11” för att starta Outlook VBA-redigeraren.
- Sedan, i det nya fönstret, placera följande VBA-kod i en tom 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
- Stäng sedan VBA-redigeraren och lägg till det här nya makrot i snabbåtkomstverktygsfältet i meddelandefönstret genom att hänvisa till “Hur du kör VBA-kod i din Outlook".
- Så småningom kan du ta ett skott. Här är min verkliga instans.
- För det första skriver jag ett e-postmeddelande som innehåller en stapel e-postadresser i kroppen.
- Klicka sedan på makroknappen i verktygsfältet Snabbåtkomst.
- Omedelbart när makrot är klart kommer alla e-postadresser i kroppen att kopieras till “CC” -fältet, som skärmdumpen nedan.
Vad händer om dina Outlook-data skadas
Det är välkänt att Outlook kan komprometteras på grund av en mängd olika faktorer, som mänskliga fel, plötslig avstängning, interna programfel i Outlook samt fel på datorns hårdvara och så vidare. Därför har många användare i verkligheten någonsin drabbats av liknande problem i Outlook. Det är medgett att det mest besvärliga problemet är skador på Outlook-filer. I den situationen måste du tillgripa professionell hjälp. PST-återhämtning tjänst eller programvara, som DataNumen Outlook Repair.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive MDF-fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com