Jeśli używasz reguły Outlooka do automatycznej odpowiedzi, odkryjesz, że automatyczna odpowiedź nie może zawierać oryginalnej wiadomości w treści. W tym artykule przedstawimy prostą metodę, która umożliwia wstawienie oryginalnej wiadomości e-mail i wstępnie zdefiniowanego tekstu do treści automatycznej odpowiedzi za pośrednictwem programu Outlook VBA.
W Outlooku konta Exchange pozwalają użytkownikom ustawić automatyczne odpowiedzi bezpośrednio za pomocą przycisku „Odpowiedzi automatyczne” w zakładce „Informacje” w menu „Plik”, jak na poniższym zrzucie ekranu:
Ale jeśli korzystasz z internetowego konta e-mail, bez względu na protokół IMAP czy POP3, przycisk „Odpowiedzi automatyczne” nie jest dostępny. Jedynym sposobem włączenia automatycznej odpowiedzi jest utworzenie reguły automatycznej odpowiedzi, pokazanej na poniższym obrazku:
Jednak tego typu automatyczna odpowiedź w programie Outlook nie może automatycznie uwzględniać oryginalnej wiadomości. W rzeczywistości większość osób chciałaby dołączyć oryginalną wiadomość do treści automatycznej odpowiedzi. W takich przypadkach reguła automatycznej odpowiedzi z pewnością nie jest w stanie tego zrobić. Dlatego powinniśmy skorzystać z kodów VBA programu Outlook. Jeśli jesteś zainteresowany, czytaj dalej, aby poznać szczegółowe instrukcje i kody VBA.
Automatyczna odpowiedź z oryginalną wiadomością e-mail i wstępnie zdefiniowanym tekstem
- Najpierw należy przejść do zakładki „Developer” i kliknąć przycisk „Visual Basic”.
- Następnie w nowym oknie „Microsoft Visual Basic for Applications” należy dwukrotnie kliknąć projekt „ThisOutlookSession” po lewej stronie.
- Następnie zostanie otwarty projekt „ThisOutlookSession”. Teraz powinieneś skopiować i wkleić do niego następujące kody VBA.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim olReply As MailItem
If Item.Class = olMail Then
Set olReply = Item.Reply
Else
Exit Sub
End If
With olReply
'Type Your Own Auto Reply
'Change "John Smith" to Your Own Name
.Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
.Send
End With
End Sub
- Następnie powinieneś podpisać ten kod jak zwykle i kontynuować zmianę ustawień makr, aby zezwalać tylko na makra podpisane cyfrowo.
- Wreszcie, po wykonaniu powyższych kroków, Outlook automatycznie wyśle odpowiedź z oryginalnymi informacjami o wiadomości w treści. Wyglądałoby to tak, jak na poniższym obrazku:
Uwaga: Bez względu na automatyczną odpowiedź za pomocą reguły lub automatyczną odpowiedź przy użyciu kodów VBA, oba mogą działać tylko wtedy, gdy Outlook jest uruchomiony.
Zajmij się błędami danych programu Outlook
Bez wątpienia Outlook nie może być odporny na błędy. Dlatego ważne jest, aby zwykli użytkownicy programu Outlook mogli uzyskać kilka sztuczek, aby je rozwiązać. Oczywiście najlepszy sposób, aby sobie z tym poradzić Uszkodzenie danych programu Outlook regularnie tworzy kopię zapasową. Dopóki masz skuteczną kopię zapasową, będziesz spać spokojnie nawet w przypadku awarii programu Outlook. Oczywiście poza ubezpieczeniem lepiej też mieć pod ręką potężne narzędzie do naprawy.
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 uszkodzenia pliku mdf SQL i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com