Trimiteți un e-mail către mai mulți destinatari și puneți unii dintre ei în câmpul „BCC”. Mai târziu, dacă doriți să trimiteți un al doilea e-mail numai destinatarilor BCC, puteți utiliza mijloacele împărtășite în acest articol.
Ați trimis vreodată e-mailuri Outlook către mai mulți destinatari cu unele în câmpul „BCC”? Uneori, după trimiterea unui astfel de e-mail, este posibil să doriți să trimiteți un al doilea unui anumit tip de destinatari, cum ar fi destinatarii BCC. De exemplu, doriți să le trimiteți câteva note suplimentare speciale. Acum, vă vom prezenta 2 moduri. Primul folosește copy and paste. Și acesta din urmă este de fapt mult mai eficient datorită codului VBA. Puteți alege oricare în funcție de nevoile dvs.
Metoda 1: Copiați manual destinatarii BCC pe e-mail nou
- În primul rând, în lista de e-mail a folderului „Articole trimise”, selectați e-mailul original.
- Apoi, faceți dublu clic pe acest e-mail pentru a-l deschide în propria fereastră de mesaje.
- Ulterior, în noua fereastră, selectați un destinatar în linia „BCC”.
- Apoi, apăsați „Ctrl + A” pentru a selecta toți destinatarii BCC.
- Mai târziu, faceți clic dreapta și alegeți „Copiere” din meniul contextual.
- După aceea, închideți acest e-mail.
- Apoi, creați un nou e-mail prin butonul „E-mail nou” din fila „Acasă”.
- În cele din urmă, inserați destinatarii BCC copiați în câmpul „Către” al acestui nou e-mail.
- În prezent, puteți compune și trimite acest nou e-mail după bunul plac
Metoda 2: Trimiteți un al doilea e-mail destinatarilor BCC prin VBA
- În primul rând, apăsați „Alt + F11” pentru a accesa editorul VBA.
- Apoi, puneți codul VBA de mai jos într-un modul neutilizat.
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
- Ulterior, adăugați această macrocomandă la Bara de instrumente Acces rapid, referindu-vă la „Cum să rulați codul VBA în Outlook".
- În cele din urmă, încercați această macrocomandă chiar acum.
- Pentru început, selectați sau deschideți e-mailul original.
- Apoi, faceți clic pe macrocomandă din Bara de instrumente Acces rapid.
- În continuare, va fi trimis un nou e-mail. Destinatarii săi sunt destinatarii BCC ai e-mailului original, ca în imaginea următoare.
Salvați datele Outlook la timp
Este foarte recomandabil să repara Outlook de îndată ce Outlook-ul dvs. este deteriorat. În primul rând, puteți apela la utilitarul de reparații încorporat – Scanpst. Cu toate acestea, uneori, este posibil să fiți supus defecțiunilor Scanpst, deoarece daunele au depășit ceea ce poate face instrumentul Inbox. În acel moment, ultima soluție este să utilizați un instrument de încredere și robust de la terți, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf deteriorat și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com