Czy często używasz nazwy załącznika jako tematu wiadomości e-mail w Outlooku? Jeśli tak, musisz mieć nadzieję, że program Outlook może je automatycznie ukończyć. W tym artykule przedstawimy przydatną metodę realizacji tego zadania za pomocą programu Outlook VBA.
Wielu użytkowników jest przyzwyczajonych do ręcznego wpisywania nazwy załącznika w temacie wiadomości e-mail. W takim scenariuszu, jeśli Outlook może to zrobić automatycznie, będzie to znacznie wygodniejsze. Ponadto niektórzy użytkownicy często zapominają o wypełnieniu tematu. Dlatego po naciśnięciu przycisku „Wyślij” otrzymają ostrzeżenie „brak tematu”. W takim przypadku, jeśli Outlook może automatycznie wypełnić temat nazwą załącznika, będzie mógł uniknąć irytującego ostrzeżenia „brak tematu”. Krótko mówiąc, uważa się, że wielu użytkowników Outlooka tęskni za taką metodą, która pozwoli Outlookowi automatycznie wypełniać wiersz tematu wiadomości nazwą załącznika. Na szczęście przy pomocy Outlook VBA możemy to osiągnąć za pomocą utmost łatwość. Oto rozbudowane kody i kroki VBA.
Automatycznie wypełnij wiersz tematu wiadomości e-mail nazwą załącznika
- Po pierwsze, możesz start Outlook i przejdź do zakładki „Developer”.
- Następnie w tej zakładce należy kliknąć przycisk „Visual Basic”, co spowoduje wyświetlenie edytora VBA.
- W kolejnym oknie powinieneś najpierw zlokalizować projekt „ThisOutlookSession” na liście projektów po prawej stronie.
- Następnie kliknij dwukrotnie, aby otworzyć ten projekt. A następnie skopiuj do niego następujące kody.
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem
Private Sub Initialize_handlers()
Set olInspectors = Application.Inspectors
End Sub
Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
Dim olItem As Object
Set olItem = Inspector.CurrentItem
If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub
Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
If olMail.Subject = "" Then
'If you don't want the prompt,
'Just delete the Msgbox line and its corresponding "End if".
If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
olMail.Subject = Attachment.DisplayName
End If
End If
End Sub
- Następnie musisz normalnie przypisywać certyfikat cyfrowy do bieżącego projektu VBA.
- Po pierwsze, użyj wbudowanego narzędzia „Certyfikaty cyfrowe dla projektów VBA”, aby wygenerować certyfikat cyfrowy.
- Następnie możesz podpisać bieżące makro.
- Później zamknij edytor VBA i zmień ustawienia makr na „Powiadomienia dla makr podpisanych cyfrowo, wszystkie inne makra wyłączone”.
- Wreszcie możesz spróbować.
- Utwórz nową wiadomość e-mail.
- Jeśli nie wypełniłeś tematu i zamierzasz załączyć plik, otrzymasz wiadomość, jak na poniższym obrazku:
- Po wybraniu „Tak” temat zostanie od razu wypełniony nazwą załącznika.
Radzenie sobie z częstymi problemami z Outlookiem
Zakładając, że używasz Outlooka od dziesięcioleci, musisz napotkać wiele problemów z Outlookiem. Jakie działania zazwyczaj podejmujesz, spotykając się z nimi? Sugeruje się, aby jak najszybciej je odkryć i wyeliminować. Dzieje się tak, ponieważ kumulowanie się problemów może w dowolnym momencie spowodować uszkodzenie danych programu Outlook. Dlatego nawet jeśli Outlook może działać normalnie, lepiej zastosuj narzędzie do naprawy skrzynki odbiorczej lub zewnętrzne Narzędzie do naprawy błędów PST programu Outlook, lubić DataNumen Outlook Repair, aby przeskanować pliki PST w celu wykrycia i rozwiązania błędów.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw uszkodzony SQL Server baza danych i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com