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

След като изпратите имейл с бутони за гласуване, ще получите отговорите за гласуване от получателите. И все пак понякога може да има някои получатели, които не са гласували. В този случай може да се надявате да им изпратите известие по пощата. Тази статия ще ви помогне да го получите бързо.

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

Изпратете известие по имейл до тези, които не са гласували

1. В самото начало натиснете „Alt + F11“, за да задействате редактора на Outlook VBA.
2. След това копирайте и поставете следния код в неизползван модул.

Sub SendNotification_ThoseNotVoted()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objNotification As Outlook.MailItem
 
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection(1)
    End Select
 
    'Create a notification email
    Set objNotification = Outlook.Application.CreateItem(olMailItem)
 
    'Add those who haven't voted to the notification email as recipients
    For Each objRecipient In objMail.Recipients
        If objRecipient.TrackingStatus = olTrackingNone Then
           objNotification.Recipients.Add objRecipient.Address
        Else
           If objRecipient.AutoResponse = "" Then
              objNotification.Recipients.Add objRecipient.Address
           End If
        End If
    Next
 
    'Set the notification email details
    With objNotification
         .Recipients.ResolveAll
         .Subject = "Please Vote!!!"
         .Body = "Please vote as soon as possible!!"
         .Attachments.Add objMail
         '.Send ==> To directly send out
         .Display
    End With
End Sub

3. След това, за по-късно удобство, добавете този макрос към лентата с инструменти за бърз достъп с позоваване на „Как да стартирате VBA код във вашия Outlook".
4. В крайна сметка предприемете операциите по-долу, за да стартирате този макрос.

• Първо, изберете или отворете оригиналния имейл с бутони за гласуване.
• След това щракнете върху бутона за макрос в лентата с инструменти за бърз достъп.
• Веднага ще се покаже нов имейл, като екранната снимка по-долу. Включени са оригиналните получатели, които не са гласували в полето „До“. И неговият предмет и тяло са зададени според предварително зададените стойности в кода.

Справете се с досадни проблеми с Outlook

Подобно на други приложения, Outlook може да бъде обект на различни проблеми, като например срив, замразяване, чести съобщения за грешки и т.н., без никакви съмнения, никой не желае да се сблъска с тях. Все пак е трудно да ги избегнем. Това, което можете да направите, е да се придържате към архивиране на вашия файл на Outlook редовно, така че дори ако вашият PST файл е повреден, пак можете да получите обратно ценни данни на Outlook, без да е необходимо ремонт PST.

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

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