Outlook бағдарламасында қайта жібергеннен кейін электрондық поштаны белгілі бір қалтаға қалай автоматты түрде жылжытуға болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Пошта жәшігіңізді ретке келтіру үшін белгілі бір қалтада арнайы электрондық пошталарды сақтауға дағдылануыңыз мүмкін. Бұл мақалада электрондық поштаны қайта жібергеннен кейін оны автоматты түрде жылжыту үшін Outlook VBA пайдалану жолы айтылады.

Ұқсас электрондық пошталарды белгілі бір пошта қалтасында сақтау электрондық пошталардың үлкен көлемін басқару үшін жақсы кеңес болып табылады. Әртүрлі пайдаланушылардың поштаны жіктеу мен басқарудың өз критерийлері болуы керек. Мысалы, сіз электрондық хаттарды жауап беру, қайта жіберу немесе басқалар сияқты олардағы кейінгі әрекеттеріңізге қарай жіктеуді қалауыңыз мүмкін. Электрондық поштаны басқа қалтаға автоматты түрде жылжытқыңыз келсе, мысалы, оны қайта жіберген кезде, оны жылдам алу үшін келесі әрекеттерді және VBA кодтарын қолдануға болады.«Қайта жіберілген» пошта қалтасы

Электрондық поштаны қайта жібергеннен кейін оны белгілі бір қалтаға автоматты түрде жылжыту

  1. Бірінші кезекте Outlook бағдарламасын іске қосыңыз.
  2. Содан кейін «Әзірлеуші» қойындысына ауысыңыз.

Ескерту: Бұл қойындыны таба алмасаңыз, алдымен оны қосу үшін «Файл» > «Параметрлер» > «Таспаны теңшеу» тармағына өтуіңіз керек.

  1. Бұл қойынды көрінгеннен кейін оның астындағы «Visual Basic» түймесін тауып, басуға болады.
  2. Содан кейін жаңа «Қолданбаларға арналған Microsoft Visual Basic» терезесі пайда болады. Онда оны ашу үшін сол жақтағы «ThisOutlookSession» жобасын екі рет басу керек.
  3. Осыдан кейін оған келесі VBA кодтарын көшіріп, қоюға болады.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

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

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

VBA кодтары - электрондық поштаны қайта жібергеннен кейін белгілі бір қалтаға автоматты түрде жылжыту

  1. Кейінірек сізден жаңа VBA жобасына қол қою қажет болады.
  • Біріншіден, цифрлық сертификат жасау үшін «VBA жобаларына арналған цифрлық сертификаттар» кірістірілген құралын пайдаланыңыз.
  • Содан кейін келесі скриншот сияқты осы макросқа сертификатты тағайындаңыз:Жаңа VBA жобасына сандық қол қою
  1. Кейінірек сандық қол қойылған макростарға рұқсат беру үшін макрос параметрлерін өзгертуге болады.
  2. Соңындаtart Жаңа макросты белсендіру үшін Outlook. Енді электрондық поштаны таңдап, «Алға жіберу» түймесін басқанда, электрондық пошта бірден «Қайта жіберілген» қалтасына жылжытылады.

Қажет емес Outlook PST деректерінің бүлінуін болдырмаңыз

Олардың біреуіost Outlook пайдаланушыларын ұзақ уақыт мазалап жүрген мәселелер Outlook бағдарламасының сыбайлас жемқорлыққа бейім болуы болып табылады. Яғни, азап шегу PST зақымдануы ортақ мәселе. Сондықтан, болжам деректерінің жоғалуын болдырмау үшін PST деректерінің дәйекті және жаңартылған сақтық көшірмесін жасағаныңыз жөн.

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

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

Қазір бөлісу:

Пікірлер жабылды.