Z pewnych powodów możesz zapisać wiele roboczych wiadomości e-mail w swoim Outlooku. W tym artykule dowiesz się, jak zbiorczo wysyłać je wszystkie lub tylko wybrane za pomocą jednego kliknięcia, które jest tworzone za pomocą programu Outlook VBA.
Czasami możesz nie mieć nadziei na wysłanie wiadomości e-mail w tej chwili. Dlatego zapiszesz je w folderze poczty Drafts i zamierzasz wysłać je później. Jak zwykle, gdy chcesz wysłać wersje robocze, musisz je otwierać pojedynczo i po kolei wciskać przycisk „Wyślij”. Jeśli chcesz wysłać dużą liczbę wersji roboczych, będzie to dość czasochłonne. Dlatego wielu użytkowników ma nadzieję, że Outlook pozwoli im wysłać wszystkie wersje robocze, klikając jeden przycisk. Jednak domyślnie nie ma takiego przycisku. Ale możesz zastosować program Outlook VBA, aby go utworzyć. Oto skomplikowane kroki i kody VBA.
Wyślij zbiorczo wszystkie wersje robocze wiadomości e-mail
- Najpierw uruchom aplikację Outlook i naciśnij skróty „Alt + F11”.
- Następnie otworzysz okno edytora VBA, w którym powinieneś otworzyć nowy moduł.
- Następnie skopiuj i wklej do niego następujące kody 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
- Następnie możesz wyjść z edytora VBA i przystąpić do dodawania projektu VBA do paska narzędzi szybkiego dostępu lub wstążki. Jako przykład weźmiemy pasek narzędzi szybkiego dostępu.
- Najpierw przejdź do „Plik”> „Opcje”> „Pasek narzędzi szybkiego dostępu”.
- Następnie wykonaj kroki pokazane na poniższym obrazku, aby dodać nowe makro do paska narzędzi szybkiego dostępu.
- Wreszcie możesz wrócić do głównego okna Outlooka. Zobaczysz nowy przycisk na pasku narzędzi szybkiego dostępu.
- Jeśli w folderze Wersje robocze nie ma żadnego elementu, po kliknięciu przycisku zostanie wyświetlony komunikat podobny do poniższego zrzutu ekranu.
- Ale jeśli w folderze Wersje robocze znajdują się elementy, pojawi się monit, jak na poniższym obrazku. Jak tylko wybierzesz „Tak”, Outlook zacznie wysyłać wszystkie wersje robocze.
Wyślij zbiorczo wybrane wersje robocze wiadomości e-mail
Jeśli chcesz wysłać tylko wybrane wersje robocze, powyższe kody są nieodpowiednie. Zamiast tego możesz użyć następujących kodów.
- Najpierw skopiuj je do nowego modułu.
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
- Następnie jak zwykle dodaj nowe makro do paska narzędzi szybkiego dostępu.
- Następnie możesz wybrać plik tarpobierz wersje robocze wiadomości e-mail i naciśnij przycisk, pojawi się monit podobny do obrazu:
- Wreszcie, jeśli klikniesz „Tak”, wybrane wersje robocze wiadomości e-mail zostaną wysłane.
Pozbądź się irytujących problemów z programem Outlook
Być może napotkałeś wiele irytujących problemów z programem Outlook. Jak możesz się ich pozbyć? Jak zwykle możesz wypróbować wbudowane narzędzie naprawcze Scanpst.exe. Jest w stanie naprawić małe problemy z plikiem PST programu Outlook. Ale jeśli niestety spotkasz się z poważnymi problemami, np Uszkodzenie wiadomości e-mail PST, narzędzie skrzynki odbiorczej nie przyniesie efektów. W tym momencie nie masz innego wyjścia, jak tylko zastosować bardziej wybitne narzędzie, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa błędów mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com