Барлық ашық және құрама хаттарды Outlook бағдарламасында қалай жіберуге болады

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

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

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

Барлық ашық және құралған электрондық хаттарды Outlook бағдарламасына жіберу

Келесіде біз сізге осындай тиімді әдісті ашамыз. Ол VBA қолданады. егер сіз VBA-ны қалай қолдануды білмесеңіз, онда сіз «» мақаласына сілтеме жасай аласыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады»Бұл арада.

Барлық ашық және құрастырылған электрондық хаттарды пакеттік жіберу

  1. Бастапқыда сіз өзіңіздің электрондық поштаңызды әдеттегідей құра аласыз және оларды ашық ұстай аласыз.Электрондық хаттар ашылды
  2. Содан кейін VBA редакторына кіру үшін «Alt + F11» пернелерін басыңыз.
  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

VBA коды - барлық ашық және құрастырылған электрондық хаттарды пакеттік жіберу

  1. Осыдан кейін макросты «F5» батырмасын тікелей басу арқылы іске қосыңыз.
  2. Сонымен, макро аяқталғаннан кейін, сізге жіберілетін электрондық пошта саны туралы хабарлама келеді.Жіберілетін ашық хаттар саны туралы хабарлау
  3. Енді шығыс жәшігін ашыңыз, онда сіз бұрын ашылған барлық хаттардың жіберіліп жатқанын көре аласыз.Электрондық хаттар жіберілуде

Outlook бағдарламасын күтпеген зақымдан қалпына келтіріңіз

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

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

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

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

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