Jak wysłać wiadomość e-mail za pośrednictwem programu Outlook, gdy skoroszyt jest zapisany w programie Excel?
W tym artykule mowa jest o wysyłaniu wiadomości e-mail za pośrednictwem programu Outlook, gdy określony skoroszyt jest zapisywany w programie Excel. Postępuj zgodnie z instrukcją.
Wyślij wiadomość e-mail za pośrednictwem programu Outlook, gdy skoroszyt jest zapisywany z kodem VBA
Wyślij wiadomość e-mail za pośrednictwem programu Outlook, gdy skoroszyt jest zapisywany z kodem VBA
Aby wysłać wiadomość e-mail za pośrednictwem programu Outlook, gdy skoroszyt jest zapisany w programie Excel, wykonaj następujące czynności.
1. Najpierw zapisz skoroszyt jako skoroszyt programu Excel z włączoną obsługą makr. Kliknij filet > Zapisz jako, w Zapisz jako W oknie dialogowym wybierz folder do zapisania skoroszytu, nadaj mu nazwę w polu Nazwa pliku, wybierz Skoroszyt Excel z włączoną obsługą makr z Zapisz jako typ listę rozwijaną, a następnie kliknij plik Zapisz przycisk. Zobacz zrzut ekranu:
2. Otwórz skoroszyt programu Excel z włączoną obsługą makr, który właśnie zapisałeś, i naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij dwukrotnie Ten zeszyt na lewym pasku, a następnie skopiuj i wklej poniższy kod VBA do pliku Ten zeszyt okno kodu. Zobacz zrzut ekranu:
Kod VBA: wyślij wiadomość e-mail po zapisaniu skoroszytu
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
Note: Proszę wymienić Adres e-mail z adresem e-mail odbiorcy .To = "Adres e-mail", zmień pola Cc, Subject i body w kodzie VBA według potrzeb.
3. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.
Odtąd, po zaktualizowaniu skoroszytu i zapisaniu go, wiadomość e-mail zostanie utworzona automatycznie z załączonym zaktualizowanym skoroszytem. Proszę kliknąć Wyślij przycisk, aby wysłać wiadomość e-mail. Zobacz zrzut ekranu:
Note: Kod VBA działa tylko wtedy, gdy używasz Outlooka jako programu pocztowego.
Podobne artykuły:
- Jak automatycznie wysyłać wiadomości e-mail na podstawie wartości komórki w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli określona komórka zostanie zmodyfikowana w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli przycisk zostanie kliknięty w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli termin został osiągnięty w programie Excel?
- Jak wysłać e-mail z przypomnieniem lub powiadomieniem, jeśli skoroszyt jest aktualizowany w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!