Jak wysłać wiadomość e-mail z wieloma załącznikami załączonymi w programie Excel?
W tym artykule mowa o wysyłaniu wiadomości e-mail za pośrednictwem programu Outlook z wieloma załącznikami w programie Excel.
Wyślij wiadomość e-mail z wieloma załącznikami załączonymi w programie Excel z kodem VBA
Wyślij wiadomość e-mail z wieloma załącznikami załączonymi w programie Excel z kodem VBA
Aby wysłać wiadomość e-mail z wieloma załącznikami w programie Excel, wykonaj następujące czynności.
1. Wstaw przycisk polecenia, klikając Deweloper > wstawka > Przycisk polecenia (formant ActiveX). Zobacz zrzut ekranu:
2. Po wstawieniu przycisku polecenia kliknij go prawym przyciskiem myszy i wybierz Wyświetl kod z menu kontekstowego.
3. W otwarciu Microsoft Visual Basic for Applications kliknij Tools > Referencje jak pokazano na poniższym zrzucie ekranu.
4. w Referencje - VBAProject w oknie dialogowym, znajdź i zaznacz plik Biblioteka obiektów programu Microsoft Outlook opcję, a następnie kliknij OK przycisk.
5. Następnie zamień oryginalny kod w oknie Kod na poniższy kod VBA.
Kod VBA: wyślij wiadomość e-mail załączoną z wieloma załącznikami w programie Excel
Private Sub CommandButton1_Click()
Dim xStrFile As String
Dim xFilePath As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
If xFileDlg.Show = -1 Then
With xMailOut
.BodyFormat = olFormatRichText
.To = ""
.Subject = "test"
.HTMLBody = "test"
For Each xFileDlgItem In xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
Next xFileDlgItem
.Display
End With
End If
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Note: określ odbiorcę, temat i treść wiadomości e-mail, zmieniając wartość .Do = , .Subject = "test" i .HTMLBody = "test" wiersze w kodzie.
6. wciśnij inny + Q klucze razem, aby wyjść z Microsoft Visual Basic for Applications okno.
7. kliknij Deweloper > Tryb projektowania aby wyłączyć tryb projektowania. Zobacz zrzut ekranu:
8. Kliknij przycisk polecenia, aby uruchomić kod. W wyskakującym okienku Przeglądaj wybierz pliki, które chcesz załączyć do wiadomości e-mail, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
9. Następnie tworzony jest e-mail z wyszczególnionymi polami i załącznikami. Proszę kliknąć Wyślij przycisk, aby go wysłać. Zobacz zrzut ekranu:
Note: Kod VBA działa tylko wtedy, gdy używasz Outlooka jako programu pocztowego.
Z łatwością wysyłaj wiadomości e-mail przez Outlooka na podstawie pól utworzonej listy mailingowej w Excelu:
Połączenia Wysyłać emaile użyteczność Kutools dla programu Excel pomaga użytkownikom wysyłać wiadomości e-mail przez Outlooka na podstawie utworzonej listy mailingowej w Excelu.
Pobierz i wypróbuj teraz! (30-dniowy darmowy szlak)
Podobne artykuły:
- Jak wysłać wiadomość e-mail na adresy e-mail określone w komórkach w programie Excel?
- Jak wysłać wiadomość e-mail z kopiowaniem i wklejaniem określonego zakresu do treści wiadomości e-mail w programie Excel?
- Jak wstawić podpis do wiadomości e-mail programu Outlook podczas wysyłania przez VBA w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli termin został osiągnięty w programie Excel?
- Jak automatycznie wysyłać wiadomości e-mail na podstawie wartości komórki 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!