Jak wysłać wiadomość e-mail, jeśli przycisk zostanie kliknięty w programie Excel?
Przypuśćmy, że musisz wysłać wiadomość e-mail za pośrednictwem programu Outlook, klikając przycisk w arkuszu programu Excel, jak możesz to zrobić? W tym artykule szczegółowo przedstawimy metodę VBA, aby to osiągnąć.
Wyślij e-mail po kliknięciu przycisku z kodem VBA
Wyślij e-mail po kliknięciu przycisku z kodem VBA
Aby wysłać wiadomość e-mail za pośrednictwem programu Outlook po kliknięciu przycisku polecenia w skoroszycie programu Excel, wykonaj następujące czynności.
1. Wstaw przycisk polecenia do arkusza, klikając Deweloper > wstawka > Przycisk polecenia (formant ActiveX). Zobacz zrzut ekranu:
2. Kliknij prawym przyciskiem myszy wstawiony przycisk polecenia, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy, jak pokazano poniżej.
3. W otwarciu Microsoft Visual Basic for Applications oknie, zamień oryginalny kod w oknie Kod na następujący skrypt VBA.
Kod VBA: wyślij wiadomość e-mail po kliknięciu przycisku w programie Excel
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Uwagi:
1). Zmień treść wiadomości e-mail zgodnie z potrzebą w xMailBody wiersz w kodzie.
2). Zastąp Adres e-mail z adresem e-mail odbiorcy .To = "Adres e-mail".
3). W razie potrzeby określ odbiorców DW i UDW .CC = „” i .Bcc = „” działy.
4). Zmień temat wiadomości e-mail w wierszu .Subject = "Przetestuj e-mail wysyłany przez kliknięcie przycisku".
4. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.
5. Wyłącz tryb projektowania, klikając Deweloper > Tryb projektowania. Zobacz zrzut ekranu:
Odtąd za każdym razem, gdy klikniesz przycisk polecenia, wiadomość e-mail będzie tworzona automatycznie z określonymi odbiorcami, tematem i treścią. Wyślij wiadomość e-mail, klikając Wyślij przycisk.
Uwagi: 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:
Podróż Ruta de la Plata w liczbach Wysyłać emaile użyteczność Kutools dla programu Excel pomaga w wysyłaniu e-maili przez Outlooka na podstawie pól utworzonej listy mailingowej w Excelu.
Pobierz i wypróbuj teraz! (30-dzień wolny szlak)
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 za pośrednictwem programu Outlook, gdy skoroszyt jest zapisany 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 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
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

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!



































