Czy często musisz załączać określone pliki podczas wysyłania określonych wiadomości e-mail w Outlooku? Jeśli tak, ręczne dodawanie ich za każdym razem może być nudne. Z tego artykułu dowiesz się, jak szybko to osiągnąć za pomocą programu Outlook VBA.
W mojej codziennej pracy często muszę dołączać określone pliki do wysyłania określonych wiadomości e-mail. Na przykład co tydzień muszę wysyłać e-maile do swoich przełożonych, aby zgłosić swoją cotygodniową pracę. W tym e-mailu będę musiał załączyć określone pliki, w tym dzienniki pracy, niektóre raporty ze statystykami danych i tak dalej. Zazwyczaj aktualizuję te pliki co tydzień. W przeszłości zwykle najpierw tworzę treść wiadomości, a następnie ręcznie dodaję te pliki. Jednak obecnie znajduję mądrzejszą sztuczkę. Oznacza to użycie programu Outlook VBA do zautomatyzowania tego. Jeśli masz podobne wymagania, przeczytaj dalej, aby poznać konkretne kody VBA i szczegółowe operacje.
Automatycznie dołączaj określone pliki podczas wysyłania określonych wiadomości e-mail
- Na początek uruchom Outlooka i przejdź do zakładki „Deweloper”.
- Następnie możesz znaleźć i kliknąć przycisk „Visual Basic”, co spowoduje natychmiastowe wyświetlenie okna edytora VBA.
- W kolejnym oknie należy dwukrotnie kliknąć projekt „ThisOutlookSession” na liście projektów po lewej stronie.
- Następnie powinieneś skopiować i wkleić do niego następujące kody VBA.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- Następnie będziesz musiał przypisać certyfikat cyfrowy do nowego projektu.
- Najpierw kliknij przycisk „Narzędzie” na pasku narzędzi i wybierz „Podpis cyfrowy”.
- Następnie w wyskakującym oknie dialogowym „Podpis cyfrowy” naciśnij przycisk „Wybierz”,
- Następnie możesz wybrać istniejący certyfikat.
- Na koniec kliknij serię „OK”, aby go przypisać.
- Później musisz zmodyfikować ustawienia makr, aby po prostu zezwolić na makra podpisane cyfrowo.
- W końcu możesz spróbować.
- Po kliknięciu przycisku „Wyślij” w celu wysłania określonej wiadomości e-mail zawierającej określone słowa w temacie lub do określonego kontaktu zostanie wyświetlone okno komunikatu, jak na poniższym obrazku.
- Następnie możesz sprawdzić wysłaną wiadomość e-mail. Na pewno znajdziesz gotowe pliki załączone do wysłanej wiadomości.
Nigdy nie odkładaj naprawy błędów programu Outlook
Czasami, mimo że napotkasz komunikat o błędzie w Outlooku, po zamknięciu wiadomości nadal możesz kontynuować pracę. Ale w rzeczywistości nie jest to zalecane działanie. Powinieneś zrobić jak najszybciej ich wyeliminować, zamiast odkładać na bok. Narastające problemy spowodują poważną awarię. Jeśli Outlook ulegnie awarii, Twoje dane Outlook PST będą zagrożone. Powinieneś to wiedzieć uszkodzone dane PST programu Outlook jest raczej sękaty. W tym czasie nie masz innego wyjścia, jak skorzystać z doświadczonego i renomowanego narzędzia naprawczego, takiego 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 napraw uszkodzony SQL Server filet i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com