Siz bir neçə alıcıya e-poçt göndərirsiniz və onlardan bəzilərini “BCC” sahəsinə yerləşdirirsiniz. Daha sonra, yalnız BCC alıcılarına ikinci məktub göndərmək istəyirsinizsə, bu məqalədə paylaşılan vasitələrdən istifadə edə bilərsiniz.
Siz heç bir Outlook e-poçtunu "BCC" sahəsində olan bir neçə alıcıya göndərmisiniz? Bəzən belə bir e-poçtu göndərdikdən sonra siz BCC alıcıları kimi müəyyən bir alıcı növünə ikincisini göndərmək istəyə bilərsiniz. Məsələn, siz onlara bəzi əlavə qeydlər göndərmək istəyirsiniz. İndi sizə 2 üsul təqdim edəcəyik. Birincisi kopyala və yapışdırır. Və sonuncu əslində VBA koduna görə daha effektivdir. İstəyinizə uyğun olaraq seçim edə bilərsiniz.
Metod 1: BCC alıcılarını əl ilə yeni e-poçta kopyalayın
- Birincisi, “Göndərilmiş əşyalar” qovluğunun e-poçt siyahısında orijinal e-poçtu seçin.
- Sonra bu məktubu öz Mesaj pəncərəsində açmaq üçün üzərinə iki dəfə klikləyin.
- Sonra, yeni pəncərədə "BCC" sətirində bir alıcı seçin.
- Sonra, bütün BCC alıcılarını seçmək üçün "Ctrl + A" düyməsini basın.
- Daha sonra, sağ klikləyin və kontekst menyusundan "Kopyala" seçin.
- Bundan sonra bu e-poçtu bağlayın.
- Sonra, "Ev" sekmesinde "Yeni E-poçt" düyməsi ilə yeni e-poçt yaradın.
- Nəhayət, kopyalanmış BCC alıcılarını bu yeni e-poçtun "Kimə" sahəsinə yapışdırın.
- Hazırda bu yeni məktubu öz istəyinizlə tərtib edib göndərə bilərsiniz
Metod 2: VBA vasitəsilə BCC Alıcılarına İkinci E-poçt göndərin
- İlk növbədə, VBA redaktoruna daxil olmaq üçün "Alt + F11" düyməsini basın.
- Sonra, aşağıdakı VBA kodunu istifadə olunmamış modula qoyun.
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
- Daha sonra, bu makronu “Tez Giriş Alətlər Panelinə əlavə edin”Outlook-da VBA kodunu necə işlətmək olar".
- Nəhayət, bu makronu indi sınayın.
- Başlamaq üçün orijinal e-poçtu seçin və ya açın.
- Sonra, Tez Giriş Alətlər Panelində makroya klikləyin.
- Sonra yeni e-poçt göndəriləcək. Onun alıcıları aşağıdakı şəkil kimi orijinal e-poçtun BCC alıcılarıdır.
Outlook məlumatlarınızı vaxtında xilas edin
etmək çox məqsədəuyğundur Outlook-u təmir edin Outlook zədələnən kimi. Əvvəlcə daxili təmir proqramına müraciət edə bilərsiniz - Scanpst. Bununla belə, bəzən Scanpst uğursuzluqlarına məruz qala bilərsiniz, çünki zərər gələnlər qutusu alətinin edə biləcəyini aşmışdır. Bu zaman son çarəniz etibarlı və etibarlı üçüncü tərəf alətindən istifadə etməkdir, məsələn DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com





