Note: The other languages of the website are Google-translated. Back to English

Jak automatycznie utworzyć zadanie podczas wysyłania wiadomości e-mail w Outlooku?

Czasami może być konieczne automatyczne utworzenie zadania wiadomości e-mail podczas wysyłania jej w programie Outlook. Tutaj przedstawiamy metodę szybkiego wykonania tego.

Automatyczne tworzenie zadań podczas wysyłania wiadomości e-mail w programie Outlook za pomocą VBA


Automatyczne tworzenie zadań podczas wysyłania wiadomości e-mail w programie Outlook za pomocą VBA

Za pomocą poniższego kodu VBA możesz automatycznie utworzyć zadanie na podstawie wysyłanej wiadomości e-mail w programie Outlook. Wykonaj następujące czynności.

1. Uruchom program Outlook, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, skopiuj poniższy kod VBA do pliku Ta sesja programu Outlook okno kodu.

Kod VBA: Automatyczne tworzenie zadania podczas wysyłania wiadomości e-mail w programie Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

Uwagi: Odbiorcy wiadomości i treść wiadomości zostaną automatycznie dodane do treści zadania. Datą rozpoczęcia zadania jest data wysłania wiadomości, a termin wykonania zadania za 3 dni. Przypomnisz o zadaniu o 9 rano po jednym dniu. Możesz je zmieniać według potrzeb.

3. Zapisz kod i naciśnij inny + Q klawisze, aby zamknąć okno Microsoft Visual Basic for Applications.

4. Od teraz, po kliknięciu Wyślij przycisk w oknie nowej wiadomości e-mail lub z odpowiedzią, a Utwórz zadanie pojawi się okno dialogowe, jak pokazano na zrzucie ekranu, kliknij Tak aby wysłać wiadomość e-mail i automatycznie utworzyć zadanie, lub kliknij Nie wysłać wiadomość e-mail bez tworzenia zadania.


Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (3)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób na zmodyfikowanie tego, aby zawierał więcej linków do wysłanej poczty niż tylko adresatów i temat? tj. dodać wysłaną wiadomość jako załącznik?
Ten komentarz został zminimalizowany przez moderatora na stronie
HI,

Działało to przez kilka dni, a teraz już nie działa.

Czy jest powód?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Terri Amos,
Włącz opcję Włącz wszystkie makra i Zastosuj ustawienia zabezpieczeń makr do zainstalowanych dodatków, jak pokazano na poniższym zrzucie ekranu. Następnie uruchom ponownie program Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL