Noen ganger, når du skriver en e-post, vil du kanskje sende denne e-posten til e-postadressene i meldingsteksten. Denne artikkelen vil veilede deg for å få det raskt.
For eksempel ber noen deg om noen personers kontaktinformasjon, for eksempel e-postadressene. I dette tilfellet kan det være lurt å informere disse personene om denne saken når du sender kontaktinformasjonen deres til andre. Derfor vil du kopiere e-postadressene fra meldingsteksten til "CC"-feltet. Generelt må du gjøre det én etter én manuelt. Men det er for kjedelig og tungvint. Så i det følgende vil vi introdusere en langt mer intelligent måte.
Kopier e-postadresser som forekommer i brødteksten til "CC"-feltet når du skriver
- Helt i begynnelsen, trykk "Alt + F11"-tastene for å starte Outlook VBA-redigering.
- Deretter, i det nye vinduet, legger du følgende VBA-kode inn 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
- Avslutt deretter VBA-editoren og legg til denne nye makroen til Quick Access Toolbar of Message-vinduet ved å referere til "Hvordan kjøre VBA-kode i Outlook".
- Til slutt kan du ta et skudd. Her er mitt faktiske eksempel.
- Først og fremst skriver jeg en e-post som inneholder en stabel med e-postadresser i brødteksten.
- Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
- Umiddelbart, når makroen er ferdig, vil alle e-postadressene i brødteksten bli kopiert til "CC"-feltet, som skjermbildet nedenfor.
Hva hvis Outlook-dataene dine blir skadet
Det er velkjent at Outlook kan bli kompromittert på grunn av en rekke faktorer, som menneskelige feil, plutselig nedleggelse, indre Outlook-programvarefeil samt maskinvarefeil og så videre. Dermed har i virkeligheten mange brukere vært utsatt for lignende problemer i Outlook. Det innrømmes at most irriterende og plagsomt problem er skade på Outlook-filen. I den situasjonen må du ty til profesjonelle PST gjenoppretting tjeneste eller programvare, som DataNumen Outlook Repair.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf-fiks og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med