2 greiti būdai, kaip išsiųsti antrąjį el. laišką tik „Outlook“ el. pašto BCC gavėjams

Išsiunčiate el. laišką keliems gavėjams ir kai kuriuos įdedate į lauką „BCC“. Vėliau, jei norite išsiųsti antrą laišką tik BCC gavėjams, galite naudoti šiame straipsnyje nurodytas priemones.

Ar kada nors siuntėte „Outlook“ el. laiškus keliems gavėjams, kai kurie buvo „BCC“ lauke? Kartais, išsiuntę tokį el. laišką, galbūt norėsite nusiųsti antrąjį tam tikro tipo gavėjams, pvz., BCC gavėjams. Pavyzdžiui, norite nusiųsti jiems tam tikrų papildomų pastabų. Dabar mes jums pristatysime 2 būdus. Pirmasis naudoja kopijavimą ir įklijavimą. Ir pastarasis iš tikrųjų yra daug efektyvesnis dėl VBA kodo. Galite pasirinkti bet kurį pagal savo poreikius.

1 būdas: nukopijuokite BCC gavėjus į naują el. laišką rankiniu būdu

1. Pirmiausia aplanko „Išsiųstos prekės“ el. pašto sąraše pasirinkite pradinį el. laišką.
2. Tada dukart spustelėkite šį laišką, kad atidarytumėte jį atskirame pranešimų lange.
3. Tada naujame lange „BCC“ eilutėje pasirinkite vieną gavėją.
4. Tada paspauskite „Ctrl + A“, kad pasirinktumėte visus BCC gavėjus.
5. Vėliau dešiniuoju pelės mygtuku spustelėkite ir kontekstiniame meniu pasirinkite „Kopijuoti“.
6. Po to uždarykite šį el. laišką.
7. Tada sukurkite naują el. laišką spustelėdami mygtuką „Naujas el. paštas“, esantį skirtuke „Pagrindinis“.
8. Galiausiai įklijuokite nukopijuotus BCC gavėjus į šio naujo el. laiško lauką „Kam“.
9. Šiuo metu galite rašyti ir siųsti šį naują laišką

2 būdas: išsiųskite antrą el. laišką BCC gavėjams per VBA

1. Pirmiausia paspauskite „Alt + F11“, kad pasiektumėte VBA redaktorių.
2. Tada įdėkite toliau pateiktą VBA kodą į nenaudojamą 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

3. Vėliau pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos, nurodydami „Kaip paleisti VBA kodą „Outlook“.".
4. Galiausiai išbandykite šią makrokomandą dabar.

• Norėdami pradėti, pasirinkite arba atidarykite pradinį el.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandą.
• Tada bus išsiųstas naujas el. Jo gavėjai yra pirminio el. laiško BCC gavėjai, kaip ir toliau pateiktame paveikslėlyje.

Išsaugokite savo „Outlook“ duomenis laiku

Labai patartina pataisyti Outlook kai tik jūsų „Outlook“ bus sugadintas. Pirmiausia galite pasinaudoti integruota taisymo programa – Scanpst. Tačiau kartais gali kilti „Scanpst“ gedimų, nes žala viršija tai, ką gali padaryti gautųjų įrankis. Tuo metu paskutinė išeitis yra naudoti patikimą ir patikimą trečiosios šalies įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com