Si të dërgoni në grup të gjitha emailet e hapura dhe të kompozuara në Outlook tuaj

Pasi të përfundoni së shkruari disa emaile në Outlook, mund të shpresoni t'i dërgoni ato menjëherë. Tani, në këtë artikull, ne do t'ju mësojmë se si ta merrni atë me ndihmën e kodit VBA.

Për shembull, ju keni përfunduar disa emaile të reja, por nuk i keni dërguar ato, thjesht i mbani hapur. Dhe më pas, ju dëshironi t'i dërgoni ato. Në përgjithësi, duhet të klikoni butonin "Dërgo" në çdo email një nga një. Në këtë rrethanë, ju duhet të dëshironi një metodë që mund t'ju mbështesë për të dërguar të gjitha emailet e hapura dhe të kompozuara në masë.

Në vijim, ne do t'ju ekspozojmë një mënyrë kaq efektive. Ai përdor VBA. nëse nuk dini si të përdorni VBA, mund t'i referoheni artikullit - "Si të ekzekutoni kodin VBA në Outlook tuaj" ndërkohë.

Dërgoni në grup të gjitha emailet e hapura dhe të përbëra

1. Si fillim, mund t'i kompozoni emailet tuaja si zakonisht dhe t'i mbani të hapura.
2. Pastaj, shtypni "Alt + F11" për të hyrë në redaktuesin VBA.
3. Më pas, në dritaren e re, kopjoni kodin e mëposhtëm VBA në një modul.

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

4. Pas kësaj, aktivizoni këtë makro ose duke shtypur butonin "F5" drejtpërdrejt.
5. Më në fund, kur makro të përfundojë, do t'ju kërkohet numri i emaileve që do të dërgohen.
6. Tani, hapni Outbox, në të cilën mund të shihni që të gjitha emailet e hapura më parë po dërgohen.

Rikthe Outlook nga dëmtimi i papritur

A keni hasur ndonjëherë më parë në korrupsionin e Outlook? Shumë përdorues i janë nënshtruar kësaj çështjeje dhe janë ankuar për të. Në përgjithësi, nëse bëni zgjidhje në kohë dhe efektive, mund t'i rikuperoni lehtësisht të dhënat e Outlook PST e dëmtuar dosje. Për shembull, nëse keni të dhëna të përditësuara të Outlook, mund të ktheheni lehtësisht në kopje rezervë. Sigurisht, ju mund të përdorni një mjet riparimi të shkëlqyer dhe të besueshëm, si p.sh DataNumen Outlook Repair, i cili mund të skanojë skedarin e korruptuar të Outlook dhe të rikuperojë të dhënat maksimale.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com