E-mailt küld több címzettnek, és néhányat a „BCC” mezőbe helyez. Később, ha csak a BCC-címzetteknek szeretne második levelet küldeni, használhatja az ebben a cikkben megosztott eszközöket.
Küldött már Outlook e-mailt több címzettnek, amelyek közül néhány a „BCC” mezőben szerepel? Egy ilyen e-mail elküldése után előfordulhat, hogy egy másikat is szeretne küldeni egy adott típusú címzettnek, például a BCC-címzetteknek. Például bizonyos kiegészítő megjegyzéseket szeretne küldeni nekik. Most 2 módszert mutatunk be. Az előbbi másolást és beillesztést használ. Utóbbi pedig a VBA kód miatt valójában sokkal hatékonyabb. Igényei szerint bármelyiket választhatja.
1. módszer: Másolja át a BCC-címzetteket az új e-mailbe manuálisan
- Először is, az „Elküldött tételek” mappa e-mail listájában válassza ki az eredeti e-mailt.
- Ezután kattintson duplán erre a levélre, hogy megnyissa a saját Üzenet ablakában.
- Ezt követően az új ablakban válasszon ki egy címzettet a „BCC” sorban.
- Ezután nyomja meg a „Ctrl + A” gombot az összes BCC-címzett kiválasztásához.
- Később kattintson a jobb gombbal, és válassza a „Másolás” lehetőséget a helyi menüből.
- Ezt követően zárja be ezt az e-mailt.
- Ezután hozzon létre egy új e-mailt a „Főoldal” fül „Új e-mail” gombjával.
- Végül illessze be a másolt BCC-címzetteket az új e-mail „Címzett” mezőjébe.
- Jelenleg tetszés szerint összeállíthatja és elküldheti ezt az új levelet
2. módszer: Küldjön egy második e-mailt a BCC címzetteknek VBA-n keresztül
- Először nyomja meg az „Alt + F11” gombot a VBA-szerkesztő eléréséhez.
- Ezután helyezze be az alábbi VBA-kódot egy nem használt modulba.
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
- Ezt követően adja hozzá ezt a makrót a Gyorselérési eszköztárhoz a következőre hivatkozva:A VBA kód futtatása az Outlookban".
- Végül most azonnal próbálja ki ezt a makrót.
- Kezdésként válassza ki vagy nyissa meg az eredeti e-mailt.
- Ezután kattintson a makróra a Gyorselérési eszköztárban.
- Ezután egy új e-mailt küldünk ki. Címzettjei az eredeti e-mail titkos másolati címzettjei, például a következő képen.
Mentse Outlook adatait időben
Nagyon ajánlatos javítás Outlook amint az Outlook megsérül. Először is igénybe veheti a beépített javítóprogramot – a Scanpst. Időnként azonban előfordulhat, hogy a Scanpst meghibásodik, mivel a kár meghaladja a beérkező levelek eszköz által képessé tett mértéket. Ebben az időben az utolsó lehetőség egy megbízható és robusztus harmadik féltől származó eszköz, például DataNumen Outlook Repair.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com