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
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 Zaoszczędź 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 SubUwagi: 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:
Uwagi: Kod VBA działa tylko wtedy, gdy używasz Outlooka jako programu pocztowego.
