Outlook элементтерінің әртүрлі түрлері үшін әртүрлі жылдам басу жалаушаларын орнату жолы

«Жылдам басу жалауы» Outlook элементінің жалауша бағанын бір рет басқан кездегі әдепкі жалаушаға сілтеме жасайды. Outlook бағдарламасы элемент түріне қарамастан бір жылдам басу жалаушасын орнатуға мүмкіндік береді. Сонымен, егер сіз элемент түрлері негізінде әртүрлі жылдам басу жалаушаларын орнатқыңыз келсе, осы мақалада келтірілген жолды пайдалана аласыз.

Жылдам басу жалауын орнату үшін элементтің «жалауша» бағанын тінтуірдің оң жақ түймешігімен нұқып, «Жылдам шертуді орнату» опциясын таңдауға болады. Содан кейін қалқымалы шағын тілқатысу терезесінде өз қалауыңыз бойынша жалаушаны таңдаңыз. Әдепкі бойынша, Outlook бұл жылдам басу жалауын элементтердің барлық түрлеріне қолданады. Дегенмен, шын мәнінде, пайдаланушылардың көпшілігі Outlook элементтерінің әртүрлі түрлеріне әртүрлі жылдам басу жалаушаларын қолдануға үміттенеді. Сондықтан, келесіде біз сізге электрондық пошталар мен контактілердің мысалы арқылы оны алуды үйретеміз.

Outlook элементтерінің әртүрлі түрлері үшін әртүрлі жылдам басу жалаушаларын орнатыңыз

1. Ең басында, сtart Outlook VBA редакторы «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
2. Содан кейін төмендегі VBA кодын «ThisOutlookSession» жобасына көшіріңіз.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
       Set objContact = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

3. Содан кейін курсорды «Application_Startup »ішкі программасын таңдап, осы макросты қосу үшін« F5 »пернесін басыңыз.
4. Ақыр соңында, сіз көріңіз.

• Электрондық поштаны таңдап, «Жалауша» бағанын басыңыз. Бірден электрондық поштаға «Ертең» жалауы қосылады.
• Содан кейін контактіні белгілеп, «Жалауша» бағанын басыңыз. Таңдалған контактіге бірден «Бүгін» жалауы қосылады.

Зиянды электрондық пошталарға тыйым салу

Макростар Outlook бағдарламасындағы жұмысымызға көп үлес қосқанымен, сіз әлі де макростарға, әсіресе сыртқы белгісіз электрондық пошталардан келгендерге назар аударасыз. Себебі макростарда Outlook деректеріне оңай шабуыл жасай алатын вирустар болуы мүмкін. Outlook файлына вирус жұққаннан кейін, вирустарды жоюдан басқа, Outlook файлын жөндеу керек. Әдетте кіріс жәшігін жөндеу құралы әсер етпейді. Сіздің жалғыз курортаңыз - анағұрлым күшті және несиеге қабілетті үшінші тарап Outlook түзетуі сияқты құрал DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com