თქვენ უგზავნით ელ.წერილს რამდენიმე მიმღებს და ათავსებთ ზოგიერთ მათგანს "BCC" ველში. მოგვიანებით, თუ გსურთ მეორე წერილის გაგზავნა მხოლოდ BCC მიმღებებისთვის, შეგიძლიათ გამოიყენოთ ამ სტატიაში გაზიარებული საშუალებები.
ოდესმე გიგზავნიათ Outlook-ის ელფოსტა რამდენიმე მიმღებს, რომელთაგან ზოგიერთი "BCC" ველშია? ზოგჯერ, ასეთი ელფოსტის გაგზავნის შემდეგ, შეიძლება დაგჭირდეთ მეორე გაგზავნოთ კონკრეტული ტიპის მიმღებებისთვის, როგორიცაა BCC მიმღებები. მაგალითად, გსურთ მათ გაუგზავნოთ გარკვეული დამატებითი შენიშვნები. ახლა გაგაცნობთ 2 გზას. პირველი იყენებს კოპირებას და ჩასმას. და ეს უკანასკნელი რეალურად ბევრად ეფექტურია VBA კოდის გამო. თქვენ შეგიძლიათ აირჩიოთ რომელიმე თქვენი საჭიროების მიხედვით.
მეთოდი 1: დააკოპირეთ BCC მიმღებები ახალ ელფოსტაზე ხელით
- პირველ რიგში, "გაგზავნილი ნივთების" საქაღალდის ელ.ფოსტის სიაში აირჩიეთ ორიგინალური ელ.წერილი.
- შემდეგ, ორჯერ დააწკაპუნეთ ამ ფოსტაზე, რომ გახსნათ იგი საკუთარი შეტყობინების ფანჯარაში.
- შემდეგ, ახალ ფანჯარაში, აირჩიეთ ერთი მიმღები "BCC" ხაზში.
- შემდეგი, დააჭირეთ "Ctrl + A" ყველა BCC მიმღების შესარჩევად.
- მოგვიანებით, დააწკაპუნეთ მარჯვენა ღილაკით და აირჩიეთ "ასლი" კონტექსტური მენიუდან.
- ამის შემდეგ დახურეთ ეს ელფოსტა.
- შემდეგ შექმენით ახალი ელფოსტა „ახალი ელ. ფოსტა“ ღილაკით „მთავარი“ ჩანართზე.
- და ბოლოს, ჩასვით კოპირებული BCC მიმღებები ამ ახალი ელფოსტის „To“ ველში.
- ამჟამად, შეგიძლიათ სურვილისამებრ შეადგინოთ და გაგზავნოთ ეს ახალი წერილი
მეთოდი 2: მეორე ელფოსტის გაგზავნა BCC მიმღებებს VBA-ს საშუალებით
- პირველ რიგში, დააჭირეთ "Alt + F11" VBA რედაქტორზე წვდომისთვის.
- შემდეგ ჩადეთ VBA კოდი ქვემოთ გამოუყენებელ მოდულში.
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
- შემდგომში, დაამატეთ ეს მაკრო სწრაფი წვდომის ინსტრუმენტთა პანელში, მითითებით „როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
- საბოლოო ჯამში, სცადეთ ეს მაკრო ახლავე.
- დასაწყისისთვის აირჩიეთ ან გახსენით ორიგინალური ელფოსტა.
- შემდეგ დააწკაპუნეთ მაკროზე სწრაფი წვდომის ინსტრუმენტთა პანელში.
- შემდეგი, ახალი ელ.წერილი გაიგზავნება. მისი მიმღებები არიან ორიგინალური ელფოსტის BCC მიმღებები, როგორიცაა შემდეგი სურათი.
შეინახეთ თქვენი Outlook მონაცემები დროულად
უაღრესად მიზანშეწონილია Outlook-ის შეკეთება როგორც კი თქვენი Outlook დაზიანდება. პირველ რიგში შეგიძლიათ მიმართოთ ჩაშენებულ სარემონტო პროგრამას - Scanpst. თუმცა, ხანდახან, თქვენ შეიძლება დაექვემდებაროს Scanpst-ის წარუმატებლობას, რადგან ზიანი აღემატება იმას, რაც შეუძლია შემოსულების ხელსაწყოს. ამ დროს, თქვენი უკანასკნელი საშუალებაა გამოიყენოთ სანდო და ძლიერი მესამე მხარის ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული მდფ და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად





