Ինչպե՞ս խմբաքանակով ուղարկել բոլոր բաց և կազմված էլ.փոստերը ձեր Outlook- ում

Կիսվել հիմա ՝

Outlook- ում որոշ էլ.փոստեր կազմելն ավարտելուց հետո, միգուցե հույս ունենաք դրանք միանգամից ուղարկել: Այժմ, այս հոդվածում մենք կսովորեցնենք ձեզ, թե ինչպես կարելի է այն ձեռք բերել VBA կոդի միջոցով:

Օրինակ ՝ դուք լրացրել եք մի քանի նոր նամակներ, բայց չեք ուղարկել դրանք ՝ պարզապես դրանք բաց պահելով: Դրանից հետո ուզում եք նրանց ուղարկել: Ընդհանուր առմամբ, յուրաքանչյուր էլ-նամակում մեկ առ մեկ պետք է կտտացնել «Ուղարկել» կոճակին: Այս պայմաններում դուք պետք է փափագեք մի մեթոդ, որը կարող է աջակցել ձեզ բոլոր բաց և կազմված էլ-նամակները սորուն ուղարկել:

Փաթեթն ուղարկեք բոլոր բաց և կազմված էլ-նամակները ձեր Outlook- ում

Հետևյալ հոդվածներում մենք կբացահայտենք ձեզ նման արդյունավետ միջոցը: Այն օգտագործում է VBA: եթե չգիտեք, թե ինչպես օգտագործել VBA- ն, կարող եք հղում կատարել հոդվածին ՝ «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում" միեւնույն ժամանակ.

Ուղարկել բոլոր բաց և կազմված էլ. Փոստերը

  1. Սկսելու համար, դուք կարող եք կազմել ձեր էլ-նամակները, ինչպես միշտ, և դրանք բաց պահել:Բացված էլ
  2. Դրանից հետո սեղմեք «Alt + F11» ՝ VBA խմբագիր մուտք գործելու համար:
  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. Այժմ բացեք Outbox- ը, որում կտեսնեք, որ ուղարկվում են նախկինում բացված բոլոր էլ.Նամակները ուղարկվում են

Վերականգնեք Outlook- ը անսպասելի վնասից

Նախկինում երբևէ բախվել եք Outlook կոռուպցիայի հետ: Շատ օգտվողներ ենթարկվել են այս խնդրին և բողոքել են դրա համար: Ընդհանուր առմամբ, եթե ժամանակին և արդյունավետ լուծումներ եք տալիս, կարող եք պատրաստակամորեն վերցնել Outlook- ի տվյալները վնասված PST- ն ֆայլ Օրինակ, եթե ունեք թարմացված Outlook տվյալներ, կարող եք հեշտությամբ վերադառնալ պահուստային տարբերակի: Իհարկե, դուք կարող եք օգնության ձեռք բերել հիանալի և հուսալի վերանորոգման գործիք, ինչպիսին է DataNumen Outlook Repair, որը կարող է սկանավորել կոռումպացված Outlook ֆայլը և վերականգնել առավելագույն տվյալները:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql վերականգնում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: