Jak zbiorczo wysyłać wszystkie otwarte i złożone wiadomości e-mail w programie Outlook

Podziel się teraz:

Po zakończeniu tworzenia niektórych wiadomości e-mail w Outlooku możesz mieć nadzieję, że wyślesz je za jednym razem. Teraz w tym artykule nauczymy Cię, jak uzyskać to za pomocą kodu VBA.

Na przykład, skompletowałeś kilka nowych e-maili, ale ich nie wysłałeś, po prostu pozostawiając otwarte. A potem chcesz je wysłać. Ogólnie rzecz biorąc, musisz po kolei kliknąć przycisk „Wyślij” w każdym e-mailu. W tej sytuacji musisz tęsknić za metodą, która pomoże ci w zbiorczym wysyłaniu wszystkich otwartych i skomponowanych wiadomości e-mail.

Wysyłaj zbiorczo wszystkie otwarte i złożone wiadomości e-mail w programie Outlook

W dalszej części przedstawimy Ci tak skuteczny sposób. Używa VBA. jeśli nie wiesz, jak używać VBA, możesz zapoznać się z artykułem - „Jak uruchomić kod VBA w swoim Outlooku" W międzyczasie.

Wyślij zbiorczo wszystkie otwarte i złożone wiadomości e-mail

  1. Na początek możesz normalnie redagować e-maile i pozostawić je otwarte.Otwarte e-maile
  2. Następnie naciśnij „Alt + F11”, aby uzyskać dostęp do edytora VBA.
  3. Następnie w nowym oknie skopiuj następujący kod VBA do modułu.
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

Kod VBA - wysyłanie zbiorcze wszystkich otwartych i złożonych wiadomości e-mail

  1. Następnie uruchom to makro, naciskając bezpośrednio przycisk „F5”.
  2. Na koniec, gdy makro zakończy się, zostaniesz zapytany o liczbę e-maili do wysłania.Pytaj o liczbę otwartych wiadomości e-mail do wysłania
  3. Teraz otwórz skrzynkę nadawczą, w której możesz zobaczyć, że wysyłane są wszystkie wcześniej otwarte wiadomości e-mail.Wysyłane są wiadomości e-mail

Przywróć program Outlook po nieoczekiwanych uszkodzeniach

Czy kiedykolwiek spotkałeś się z uszkodzeniem programu Outlook? Wielu użytkowników było przedmiotem tego problemu i narzekało na to. Ogólnie rzecz biorąc, jeśli opracujesz terminowe i skuteczne rozwiązania, możesz łatwo pobrać dane programu Outlook z plików uszkodzony PST plik. Na przykład, jeśli masz zaktualizowane dane programu Outlook, możesz łatwo wrócić do kopii zapasowej. Oczywiście możesz skorzystać z doskonałego i niezawodnego narzędzia naprawczego, takiego jak DataNumen Outlook Repair, który może przeskanować uszkodzony plik programu Outlook i odzyskać maksymalną ilość danych.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com

Podziel się teraz:

Możliwość dodawania komentarzy nie jest dostępna.