Du sender en e-post til flere mottakere og legger noen av dem i "BCC"-feltet. Hvis du senere vil sende en ny e-post kun til BCC-mottakerne, kan du bruke midlene som er delt i denne artikkelen.
Har du noen gang sendt Outlook-e-poster til flere mottakere med noen i BCC-feltet? Noen ganger, etter å ha sendt en slik e-post, vil du kanskje sende en ny til en bestemt type mottakere, for eksempel BCC-mottakere. Du vil for eksempel sende dem noen spesielle tilleggsnotater. Nå vil vi introdusere deg på 2 måter. Førstnevnte bruker kopier og lim inn. Og sistnevnte er faktisk mye mer effektiv på grunn av VBA-kode. Du kan velge enten etter dine behov.
Metode 1: Kopier BCC-mottakere til ny e-post manuelt
- Først, i e-postlisten til "Sendte elementer"-mappen, velg den opprinnelige e-posten.
- Dobbeltklikk deretter på denne e-posten for å åpne den i sitt eget meldingsvindu.
- Deretter, i det nye vinduet, velg en mottaker i "BCC"-linjen.
- Trykk deretter "Ctrl + A" for å velge alle BCC-mottakerne.
- Senere høyreklikker du og velger "Kopier" fra hurtigmenyen.
- Lukk deretter denne e-posten.
- Deretter oppretter du en ny e-post med "Ny e-post"-knappen på "Hjem"-fanen.
- Til slutt limer du inn de kopierte BCC-mottakerne i "Til"-feltet i denne nye e-posten.
- For øyeblikket kan du skrive og sende denne nye e-posten etter eget ønske
Metode 2: Send en ny e-post til BCC-mottakerne via VBA
- For det første, trykk "Alt + F11" for å få tilgang til VBA-editor.
- Deretter legger du VBA-koden nedenfor i en ubrukt modul.
Sub SendAnotherEmailToBCCRecipients()
Dim objOriginalMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim objNewMail As Outlook.MailItem
Dim objNewRecipient As Outlook.Recipient
'Get source email
Select Case TypeName(Application.ActiveWindow)
Case "Inspector"
Set objOriginalMail = ActiveInspector.CurrentItem
Case "Explorer"
Set objOriginalMail = ActiveExplorer.Selection.Item(1)
End Select
'Copy the BCC recipients to "To" field in new mail
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
For Each objRecipient In objOriginalMail.Recipients
If objRecipient.Type = olBCC Then
Set objNewRecipient = objNewMail.Recipients.Add(objRecipient)
objNewRecipient.Type = olTo
objNewRecipient.Resolve
End If
Next
'Change the new email details
With objNewMail
.Subject = "Additional Notes for " & objOriginalMail.Subject
.Body = "Type mail body here....."
.Attachments.Add ("E:\Dos & Don'ts.txt")
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Send
.Display
End With
End Sub
- Deretter legger du til denne makroen i verktøylinjen for hurtigtilgang med henvisning til "Hvordan kjøre VBA-kode i Outlook".
- Til slutt, prøv denne makroen akkurat nå.
- Til å begynne med, velg eller åpne den opprinnelige e-posten.
- Klikk deretter på makroen i verktøylinjen for hurtigtilgang.
- Deretter vil en ny e-post bli sendt ut. Mottakerne er BCC-mottakerne av den originale e-posten, som det følgende bildet.
Redd Outlook-dataene dine i tide
Det er sterkt tilrådelig å reparere Outlook så snart Outlook er skadet. Du kan først bruke det innebygde reparasjonsverktøyet - Scanpst. Men til tider kan du bli utsatt for Scanpst-feil ved at skaden har overskredet det innboksverktøyet kan gjøre. På den tiden er siste utvei å bruke et pålitelig og robust tredjepartsverktøy, som DataNumen Outlook Repair.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert skadet mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med





