Outlook VBA көмегімен бірнеше жобалық хаттарды пакеттік жіберу жолы

Outlook шешімдері Қыркүйек 29, 2025

Кейбір себептерге байланысты Outlook бағдарламасында көптеген электрондық хаттардың жобаларын сақтауға болады. Бұл мақала Outlook VBA көмегімен жасалған бір рет басу арқылы олардың барлығын немесе таңдалғандарын пакеттік жіберуді үйретеді.

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

Барлық нобай электрондық пошталарын пакеттік жіберу

Алдымен Outlook қолданбасын іске қосыңыз және «Alt + F11» пернелер тіркесімін басыңыз.
Содан кейін сіз VBA редакторының терезесін ашасыз, онда сіз жаңа модульді ашуыңыз керек.
Кейіннен оған келесі VBA кодтарын көшіріңіз және қойыңыз.

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

Осыдан кейін сіз VBA өңдегішінен шығып, VBA жобасын жылдам қол жеткізу құралдар тақтасына немесе таспаға қосуды жалғастыра аласыз. Мұнда мысал ретінде жылдам қол жеткізу құралдар тақтасын аламыз.

Алдымен, «Файл» > «Параметрлер» > «Жылдам кіру құралдар тақтасы» қойындысына өтіңіз.
Содан кейін жылдам қол жеткізу құралдар тақтасына жаңа макросты қосу үшін төмендегі суретте көрсетілген қадамдарды орындаңыз.

Соңында негізгі Outlook терезесіне оралуға болады. Жылдам кіру құралдар тақтасында жаңа түймені көресіз.

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

Таңдалған нобай электрондық пошталарын пакеттік жіберу

Таңдалған нобайларды ғана жібергіңіз келсе, жоғарыдағы кодтар жарамсыз. Оның орнына келесі кодтарды пайдалануға болады.

Біріншіден, оларды жаңа модульге көшіріңіз.

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

Содан кейін әдеттегідей Жылдам кіру құралдар тақтасына жаңа макросты қосыңыз.
Одан кейін таңдай аласыз tarэлектрондық хаттардың жобасын алыңыз және түймені басыңыз, сіз суреттегідей сұрау аласыз:
Соңында, «Иә» түймесін басқаныңызда, таңдалған нобай электрондық хаттар жіберіледі.

Тітіркендіргіш Outlook мәселелерін жойыңыз

Мүмкін сізде Outlook бағдарламасының көптеген жағымсыз мәселелеріне тап болған шығарсыз. Олардан қалай құтылуға болады? Әдеттегідей, оның Scanpst.exe енгізілген жөндеу құралын қолданып көруге болады. Ол шағын Outlook PST файл мәселелерін шеше алады. Бірақ егер сіз, өкінішке орай, ауыр қиындықтарға тап болсаңыз, мысалы PST электрондық поштасының зақымдалуы, кіріс жәшігі құралы әсерлер жасамайды. Бұл кезде сізде ең танымал құралды пайдаланудан басқа таңдау жоқ DataNumen Outlook Repair.

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

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