Kiedy użytkownicy wysyłają e-maile do swoich klientów lub szefów, dość trudno jest śledzić ich losy. W takim przypadku z pomocą przychodzi Excel. Dlatego "wyślij automatyczną wiadomość e-mail z Excel do Perspektywy" okazało się, że jest to podejście oszczędzające czas. Makra VBA w programie Excel i HYPERLINK Funkcja może wysyłać automatyczne wiadomości e-mail lub tworzyć projekty za pomocą wpisów w Excelu.

Powiedzmy, że mamy Pracownik zrestrukturyzowany Wynagrodzenie dane w Excelu i chcemy wysłać automatycznego maila używając Outlook .

W tym artykule demonstrujemy wiele wariantów Makra VBA i HYPERLINK funkcja do wysyłania automatycznych wiadomości e-mail z Excel do Outlook .

Pobierz skoroszyt Excela

⧭ Otwieranie Microsoft Visual Basic i wstawianie kodu do modułu

Przed przystąpieniem do demonstracji jakichkolwiek metod, konieczne jest poznanie sposobów otwierania i wstawiania Moduł w Microsoft Visual Basic w Excelu.

🔄 Otwarcie Microsoft Visual Basic: Istnieją głównie 3 sposoby otwierania Microsoft Visual Basic okno.

1) Używanie skrótów klawiaturowych: Naciśnij ALT+F11 w sumie do otwarcia Microsoft Visual Basic okno.

2. Korzystanie z zakładki Developer: W arkuszu Excel przejdź do Zakładka Deweloper > Wybierz Visual Basic . Microsoft Visual Basic Pojawia się okno.

3. korzystając z zakładki Worksheet: Przejdź do dowolnego arkusza, Kliknij prawym przyciskiem myszy na to> Wybierz Wyświetl kod (od. Kontekst Menu ).

🔄 Wstawianie modułu w Microsoft Visual Basic: Istnieją 2 sposoby na wstawienie Moduł w Microsoft Visual Basic okno,

1. Using Sheet's Options: Po otwarciu Microsoft Visual Basic w oknie, wybierz Arkusz roboczy > Kliknij prawym przyciskiem myszy na to> Wybierz Wkładka (od. Menu kontekstowe )> następnie wybierz Moduł .

2. Korzystanie z paska narzędzi: Można to również zrobić wybierając Wkładka (od. Pasek narzędzi )> następnie wybierając Moduł .

4 proste sposoby na automatyczne wysyłanie wiadomości e-mail z Excela do Outlooka

Metoda 1: Użycie makra VBA do automatycznego wysyłania wiadomości e-mail za pomocą programu Outlook do wybranych odbiorców

Chcemy stworzyć Makro wykonanie Przycisk dzięki któremu w prosty sposób możemy wysłać pocztę do wybranych odbiorców za pomocą jednego kliknięcia.

Krok 1: Idź do Wkładka tab> Kształty > Wybierz dowolny z oferowanych kształtów (tj, Prostokątny: Zaokrąglone narożniki ).

Krok 2: Przeciągnij Plus Ikona gdziekolwiek chcesz wstawić Kształt jak pokazano na poniższym obrazku.

Krok 3: Wybierz preferowany Kształt Wypełnienie oraz Zarys Kolor następnie kliknij na nią prawym przyciskiem myszy. kliknij na Edycja tekstu aby wstawić tekst.

Krok 4: Użyj instrukcja otworzyć Microsoft Visual Basic i wstawić Moduł Wklej następujące Makro do Moduł .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' Możesz użyć .Send End With Next r End Sub 

➤ w kodeksie,

1 - rozpoczynamy procedurę makra deklarując zmienne jako Obiekt oraz String .

2 - uruchomić VBA DLA pętla dla każdego wiersza w wyborze, aby przypisać Email's Wyślij do , Przedmiot oraz Ciało za pomocą wpisów w wierszach.

3 - przypisać zmienne.

4 - wykonywać VBA Z oświadczenie, aby wypełnić Outlook elementy takie jak Wyślij do , Poczta Przedmiot itd. Tutaj makro wykonuje tylko Wyświetl polecenie, aby wydobyć Outlook z projektem maila. Jednak jeśli Wyślij polecenie jest używane zamiast lub po Wyświetl, Outlook wyśle utworzoną wiadomość e-mail do wybranych odbiorców.

5 - zakończyć VBA DLA pętla.

Krok 5: Wróć do arkusza. Kliknij prawym przyciskiem myszy na Kształt następnie wybierz Przypisz Makro od Menu kontekstowe opcje.

Krok 6: Wybierz Makro (tj, ExcelToOutlookSR ) pod Nazwa makra i wybrać Makro w opcja jako Ten podręcznik . kliknij na OK .

Krok 7: Teraz w arkuszu wybierz jednego lub kilku pracowników, a następnie kliknij na Shape Button .

Krok 8: Podpowiedzi Excela Outlook do lunchu i tworzy lub wysyła wiadomości e-mail do wybranych pracowników. Jako że wybierasz dwóch pracowników, Outlook generuje dwa różne projekty wiadomości e-mail gotowe do wysłania.

Ponieważ makro zapewnia tylko Wyświetl polecenie, Outlook wyświetla tylko wersję roboczą wiadomości bez jej wysyłania. Użyj Wyślij polecenie automatycznego wysyłania e-maili z Excel do Outlook używając wpisów do komórek.

Read More: Makro Excel do wysyłania wiadomości e-mail automatycznie (3 odpowiednie przykłady)

Metoda 2: Automatyczne wysyłanie wiadomości e-mail z programu Excel do programu Outlook w zależności od określonej wartości komórki

Co jeśli chcemy wysłać automatycznego maila po osiągnięciu celów z Excel do Outlook Kod Macro może wykonać to zadanie z łatwością.

Załóżmy, że mamy Dane o sprzedaży kwartalnej jak przedstawiono poniżej, po osiągnięciu celu (tj, Sprzedaż> 2000 ) automatycznie podpowie Outlook aby wysłać wiadomość e-mail z programu Excel na przypisany identyfikator e-mail.

Krok 1: Wpisz następujący kod makra w dowolnym Moduł .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If End Sub Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =.CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Pozdrawiam Pana" & vbNewLine & vbNewLine & _ "Nasza placówka ma kwartalną sprzedaż większą niż cel." & vbNewLine & _ "To jest mail potwierdzający." & vbNewLine & vbNewLine & _ "Regards" & vbNewLine & _ "Outlet Team" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Powiadomienie o osiągnięciu celu sprzedaży" .Body = mMailBody .Display 'lub możesz użyć .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Z powyższego obrazu, w sekcjach,

1 - przypisać komórkę (tj, F17 ) w zakresie, aby wykonać VBA IF Jeżeli wynikiem tego stwierdzenia jest Prawdziwe , makro wywołuje inne makro do wykonania.

2 - zadeklarować typy zmiennych i przypisać je do wypełnienia Outlook 'wpisy.

3 - koncertować VBA Z aby przypisać zmienne do wpisów e-mail. Użyj polecenia Wyślij polecenie zamiast Wyświetl w przypadku, gdy chcesz bezpośrednio wysyłać e-maile bez ich przeglądania. E-mail odbiorcy jest wstawiany wewnątrz makra. Użyj alternatywnych metod w przypadku, gdy chcesz automatycznego wstawienia identyfikatora e-mail odbiorcy.

4 - wyczyścić pewne zmienne z przypisania.

Krok 2: Użyj F5 za chwilę Excel pobierze Outlook z automatycznie utworzoną wersją roboczą e-maila, jak pokazano na poniższym rysunku. Możesz kliknąć na Wyślij lub automatycznego wysyłania za pomocą Wyślij polecenie w makrze.

Read More: Automatycznie wysyłaj wiadomości e-mail z programu Excel na podstawie zawartości komórek (2 metody)

Podobne lektury

• Jak sprawdzić, kto jest we współdzielonym pliku Excela (szybkie kroki)
• Włącz udostępnianie skoroszytu w programie Excel
• Jak udostępnić plik programu Excel dla wielu użytkowników
• Jak zastosować makro do wysyłania e-maili z Excela z załącznikiem

Metoda 3: Używanie makra VBA do wysyłania wiadomości e-mail z aktywnym arkuszem z programu Excel przez Outlook

Alternatywnie, mogą wystąpić przypadki, w których musimy wysłać cały Aktywny arkusz na przypisany adres e-mail. W takim przypadku możemy użyć opcji Funkcja niestandardowa VBA do wywołania wewnątrz makra.

Krok 1: Wstaw poniższe makro do Moduł .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean On Error Resume Next Dim mAPP As Object Dim rItem As Object Set mAPP = CreateObject("Outlook.Application") Set rItem = mAPP.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'lub można użyć .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Dane o sprzedaży kwartalnej" mBd = "Pozdrawiam Pana" & vbNewLine & vbNewLine & _ "Uprzejmie proszę o znalezienie danych o sprzedaży kwartalnej Outlooka załączonych do tego maila." & vbNewLine & _ "To mail z powiadomieniem." & vbNewLine & vbNewLine & _ "Pozdrawiam" &vbNewLine & _ "Zespół Outlet" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Pomyślnie utworzono projekt poczty lub Wysłano" End If End Sub 

➤ Z powyższego obrazka wynika, że sekcje kodu,

1 - zadeklarować i ustawić zmienne.

2 - przypisać polecenia za pomocą VBA Z oświadczenie. Użyj Wyświetl lub Wyślij polecenie do przeglądania lub bezpośredniego wysyłania e-maili odpowiednio.

3 - wyczyścić wcześniej ustawione zmienne.

4 - przypisać VBA Z polecenia z tekstami.

5 - realizować Funkcja niestandardowa VBA .

Krok 2: Aby wykonać makro, naciśnij F5 i natychmiast Excel wydobywa z nich Outlook z projektem maila do przejrzenia podobnym do poniższego obrazka, po czym możesz go wysłać.

Read More: Jak wysłać masową wiadomość e-mail z programu Outlook za pomocą programu Excel (3 sposoby)

Metoda 4: Wysyłanie automatycznych wiadomości e-mail z programu Excel do programu Outlook przy użyciu funkcji HYPERLINK

Na stronie HYPERLINK Funkcja generuje klikalne łącze w komórkach Excela, aby sprowadzić Outlook jako medium do wysyłania automatycznych maili z Excela.

Krok 1: Wpisz w komórce następującą formułę H5 .

Na stronie HYPERLINK funkcja bierze "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 jako łącze_lokalizacji oraz "Kliknij tutaj" jako przyjazny_nazwa .

Krok 2: Hit ENTER aby wkleić link, a następnie kliknij na link.

Krok 3: Excel zabiera cię do Outlook . And you see all the Outlook wpisy są wypełnione przypisanymi danymi z Excela.Kliknij na Wyślij .

Krok 4: Przeciągnij Uchwyt do napełniania aby zastosować formułę do innych komórek.

Read More: Jak wysłać e-mail automatycznie po spełnieniu warunku w Excelu

Wniosek

Warianty makr VBA oraz HYPERLINK Funkcja może być pomocna podczas wysyłania automatycznych wiadomości e-mail z Excela do Outlooka. Mam nadzieję, że znajdziesz swoją preferowaną metodę w ramach tych opisanych powyżej. Skomentuj, jeśli masz dalsze pytania lub masz coś do dodania.