Как да изпратите пакетно всички отворени и съставени имейли във вашия Outlook

След като приключите със съставянето на някои имейли в Outlook, може да се надявате да ги изпратите наведнъж. Сега в тази статия ще ви научим как да го получите с помощта на VBA код.

Например, завършили сте някои нови имейли, но не сте ги изпратили, просто ги държите отворени. И след това искате да ги изпратите. По принцип трябва да щракнете върху бутона „Изпращане“ във всеки имейл един по един. При това обстоятелство трябва да копнеете за метод, който може да ви помогне да изпращате групово всички отворени и съставени имейли.

По-долу ще ви разкрием такъв ефективен начин. Той използва VBA. ако не знаете как да използвате VBA, можете да се обърнете към статията – “Как да стартирате VBA код във вашия Outlook”Междувременно.

Пакетно изпращане на всички отворени и съставени имейли

1. Като начало можете да пишете имейлите си както обикновено и да ги държите отворени.
2. След това натиснете „Alt + F11“ за достъп до редактора на VBA.
3. След това, в новия прозорец, копирайте следния VBA код в модул.

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. След това задействайте този макрос или чрез директно натискане на бутона „F5“.
5. Накрая, когато макросът завърши, ще получите подкана за броя имейли, които да бъдат изпратени.
6. Сега отворете Изходяща кутия, в която можете да видите, че всички отворени преди това имейли се изпращат.

Възстановете Outlook от неочаквана повреда

Сблъсквали ли сте се някога с повреда в Outlook? Много потребители са били обект на този проблем и са се оплаквали от него. Като цяло, ако направите навременни и ефективни решения, можете лесно да извлечете данни от Outlook от повреден PST файл. Например, ако имате актуализирани данни в Outlook, можете лесно да се върнете към архива. Разбира се, можете да се възползвате от отличен и надежден ремонтен инструмент, като например DataNumen Outlook Repair, който може да сканира повредения файл на Outlook и да възстанови максимум данни.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com