Kai naudotojai siunčia el. laiškus savo klientams ar viršininkams, gana sunku juos sekti. Tokiu atveju praverčia "Excel". Todėl "siųsti automatinį el. laišką iš "Excel" į "Outlook" įrodyta, kad tai padeda taupyti laiką. "Excel" VBA makrokomandos ir HYPERLINK funkcija gali siųsti automatinius el. laiškus arba sukurti juodraštį naudodama "Excel" įrašus.

Tarkime, kad turime Darbuotojo restruktūrizuotas darbo užmokestis duomenis "Excel" programoje ir norime siųsti automatinį el. "Outlook" .

Šiame straipsnyje demonstruojame kelis variantus VBA makrokomandos ir HYPERLINK funkcija siųsti automatinį el. laišką iš "Excel" į "Outlook" .

Atsisiųsti "Excel" darbaknygę

⧭ "Microsoft Visual Basic" atidarymas ir kodo įterpimas į modulį

Prieš pradedant demonstruoti bet kokius metodus, būtina žinoti, kaip atidaryti ir įterpti Modulis į "Microsoft Visual Basic "Excel" programoje.

🔄 "Microsoft Visual Basic" atidarymas: Daugiausia yra 3 atidarymo būdai "Microsoft Visual Basic langas.

1. Klaviatūros sparčiųjų klavišų naudojimas: Paspauskite ALT+F11 iš viso atidaryti "Microsoft Visual Basic langas.

2. Naudodami skirtuką Kūrėjas: "Excel" darbalapyje eikite į Kūrėjo skirtukas > Pasirinkite "Visual Basic . "Microsoft Visual Basic rodomas langas.

3. Naudodami skirtuką Worksheet (Darbalapis): Eikite į bet kurį darbalapį, Dešiniuoju pelės klavišu spustelėkite ant jo> Pasirinkite Peržiūrėti kodą (iš Kontekstas Meniu ).

🔄 Modulio įterpimas Microsoft Visual Basic: Yra 2 būdai įterpti Modulis svetainėje "Microsoft Visual Basic langas,

1. Lapo parinkčių naudojimas: Atidarius "Microsoft Visual Basic langą, pasirinkite Darbalapis > Dešiniuoju pelės klavišu spustelėkite ant jo> Pasirinkite Įdėkite (iš Kontekstinis meniu )> tada pasirinkite Modulis .

2. Įrankių juostos naudojimas: Taip pat galite tai padaryti pasirinkę Įdėkite (iš Įrankių juosta )> tada pasirenkant Modulis .

4 paprasti būdai siųsti automatinį el. laišką iš "Excel" į "Outlook

1 būdas: naudojant VBA makrokomandą automatiškai siųsti el. laiškus naudojant "Outlook" pasirinktiems gavėjams

Norime sukurti makrokomandos vykdymą Mygtukas kuriuo galime paprasčiausiai siųsti laiškus pasirinktiems gavėjams vos vienu spustelėjimu.

1 žingsnis: Eikite į Įdėkite skirtukas> Formos > Pasirinkite bet kurią iš siūlomų formų (pvz., Stačiakampio formos: užapvalintais kampais ).

2 žingsnis: Vilkite Plius piktograma ten, kur norite įterpti Forma kaip parodyta toliau pateiktame paveikslėlyje.

3 veiksmas: Pasirinkite pageidaujamą Formos užpildymas ir Kontūras Spalva tada spustelėkite dešiniuoju pelės klavišu ant jo. Spustelėkite Redaguoti tekstą įterpti tekstą.

4 veiksmas: Naudokite instrukcija atidaryti "Microsoft Visual Basic ir įterpkite Modulis . Įterpkite šią makrokomandą į Modulis .

 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 ' Galite naudoti .Send End With Next r End Sub 

➤ kodas,

1 - pradėkite makro procedūrą deklaruodami kintamuosius kaip Objektas ir Stygos .

2 - paleisti VBA FOR ciklas kiekvienai pasirinkimo eilutei priskirti el. pašto Siųsti į , Tema , ir Kūnas naudojant eilutės įrašus.

3 - priskirti kintamuosius.

4 - atlikti VBA su teiginį, kad užpildytų "Outlook" elementai, pvz. Siųsti į , Pašto tema , ir t. t. Šiuo atveju makrokomandoje vykdomas tik Ekranas komandą išvesti "Outlook" su el. laiško projektu. Tačiau, jei Siųsti komanda naudojama vietoj arba po Ekranas, "Outlook" išsiųs sukurtą el. laišką pasirinktiems gavėjams.

5 - užbaigti VBA FOR kilpa.

5 veiksmas: Grįžkite į darbalapį. Dešiniuoju pelės klavišu spustelėkite Forma tada pasirinkite Priskirti makrokomandą iš Kontekstinis meniu galimybės.

6 veiksmas: Pasirinkite makrokomandą (t. y, ExcelToOutlookSR ) pagal Makro pavadinimas ir pasirinkite "Macro in parinktį kaip Šis sąsiuvinis . Spustelėkite GERAI .

7 veiksmas: Dabar darbalapyje pasirinkite vieną ar kelis darbuotojus, tada spustelėkite Formos mygtukas .

8 veiksmas: "Excel" raginimai "Outlook" pietums ir sukuria arba išsiunčia el. laiškus pasirinktiems darbuotojams. Pasirinkę du darbuotojus, "Outlook" sukuria du skirtingus el. pašto juodraščius, paruoštus siuntimui.

Kadangi makrokomandoje pateikiamas tik Ekranas komanda, "Outlook" tik parodo el. laiško juodraštį, bet jo neišsiunčia. Siųsti komanda automatiškai siųsti el. laiškus iš "Excel" į "Outlook" naudojant langelių įrašus.

Skaityti daugiau: "Excel" makrokomandos automatinis el. pašto siuntimas (3 tinkami pavyzdžiai)

2 būdas: Automatinis el. pašto siuntimas iš "Excel" į "Outlook" priklausomai nuo konkrečios ląstelės vertės

Ką daryti, jei norime siųsti automatinį el. laišką pasiekus tikslus iš "Excel" į "Outlook" ? Šį darbą lengvai atliksite naudodami makrokomandos kodą.

Tarkime, turime Ketvirčio pardavimų duomenys kaip pavaizduota toliau, pasiekus tikslą (t. y, Pardavimai> 2000 m. ) bus automatiškai paprašyta "Outlook" siųsti el. laišką iš "Excel" į priskirtą el. pašto ID.

1 žingsnis: Įveskite šį makrokomandos kodą į bet kurią Modulis .

 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 If End Sub 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 = "Sveikinimai, pone" & vbNewLine & vbNewLine & _ "Mūsų parduotuvė ketvirtį pardavė daugiau nei planuota." & vbNewLine & _ "Tai patvirtinimo laiškas." & vbNewLine & vbNewLine & _ "Su pagarba" & vbNewLine & _ "Parduotuvės komanda" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Pranešimas apie pasiektą pardavimų tikslą" .Body = mMailBody .Display 'arba galite naudoti .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Iš pirmiau pateikto paveikslėlio, skyriuose,

1 - priskirti langelį (t. y, F17 ) diapazone, kad būtų įvykdyta VBA IF Jei teiginys duoda rezultatą Tiesa , makrokomanda iškviečia vykdyti kitą makrokomandą.

2 - deklaruoti kintamųjų tipus ir priskirti juos užpildyti "Outlook" "įrašus.

3 - atlikti VBA su priskirti kintamuosius el. pašto įrašams. Naudokite Siųsti komandą vietoj Ekranas jei norite tiesiogiai siųsti el. laiškus jų neperžiūrėdami. Gavėjo el. pašto adresas įterpiamas į makrokomandą. Naudokite alternatyvius metodus, jei norite automatiškai įterpti gavėjo el. pašto ID.

4 - išvalyti tam tikrus kintamuosius nuo priskyrimo.

2 žingsnis: Naudokite F5 paleisti makrokomandą. Po akimirkos "Excel" parsisiunčia "Outlook" su automatiškai sukurtu el. laiško projektu, kaip parodyta toliau. Galite spustelėti Siųsti arba automatiškai siųsti naudojant Siųsti makrokomandą.

Skaityti daugiau: Automatinis el. laiškų siuntimas iš "Excel" pagal ląstelių turinį (2 metodai)

Panašūs skaitiniai

• Kaip sužinoti, kas yra bendrinamame "Excel" faile (greiti žingsniai)
• Įgalinti bendrinti darbaknygę programoje "Excel
• Kaip bendrinti "Excel" failą keliems naudotojams
• Kaip taikyti makrokomandą siųsti el. laišką iš "Excel" su priedu

3 metodas: naudojant VBA makrokomandą siųsti el. laišką su aktyviu darbalapiu iš "Excel" pagal "Outlook

Taip pat gali pasitaikyti atvejų, kai reikia siųsti visą Aktyvus lapas į priskirtą el. pašto adresą. Tokiu atveju galime naudoti VBA pasirinktinė funkcija kuris turi būti iškviestas makrokomandoje.

1 žingsnis: Įterpkite toliau pateiktą makrokomandą į Modulis .

 Funkcija ExcelOutlook(mTo, mSub As String, Neprivaloma mCC As String, Neprivaloma 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 'arba galite naudoti .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 = "Ketvirčio pardavimų duomenys" mBd = "Sveikinimai, pone" & vbNewLine & vbNewLine & _ "Kindly find Outlet's Quarterly Sales data attached with this mail." & vbNewLine & _ "It's a notification mail." & vbNewLine & vbNewLine & _ "Regards" &vbNewLine & amp; _ "Išėjimo komanda" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Sėkmingai sukurtas pašto juodraštis arba išsiųstas" End If End Sub 

➤ Iš pirmiau pateikto paveikslėlio matyti, kad kodo skyriai,

1 - deklaruoti ir nustatyti kintamuosius.

2 - priskirti komandas naudojant VBA su teiginys. Naudokite Ekranas arba Siųsti komanda, skirta atitinkamai peržiūrėti arba tiesiogiai siųsti el. laiškus.

3 - ištrinti anksčiau nustatytus kintamuosius.

4 - priskirti VBA su komandas su tekstais.

5 - vykdyti VBA pasirinktinė funkcija .

2 žingsnis: Norėdami įvykdyti makrokomandą, paspauskite F5 , ir "Excel" iš karto pateikia "Outlook" su el. laiško projektu, kurį reikia peržiūrėti, panašiai kaip toliau pateiktame paveikslėlyje. Po to galite jį išsiųsti.

Skaityti daugiau: Kaip siųsti masinį el. laišką iš "Outlook" naudojant "Excel" (3 būdai)

4 metodas: Automatinis el. pašto siuntimas iš "Excel" į "Outlook" naudojant HYPERLINK funkciją

Svetainė HYPERLINK funkcija sukuria "Excel" ląstelėse spustelėjamą nuorodą, kad "Outlook" kaip priemonę automatiniams el. laiškams siųsti iš "Excel".

1 žingsnis: ląstelėje įveskite šią formulę H5 .

Svetainė HYPERLINK funkcija priima "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 kaip link_location , ir "Spauskite čia" kaip draugiškas_vardas .

2 žingsnis: Paspauskite ĮVESKITE norėdami įklijuoti nuorodą. Tada spustelėkite nuorodą.

3 veiksmas: "Excel" perkelia jus į "Outlook" . Ir jūs matote visus "Outlook" įrašai užpildomi priskirtais duomenimis iš "Excel". Spustelėkite Siųsti .

4 veiksmas: Vilkite Užpildymo rankena taikyti formulę kitoms ląstelėms.

Skaityti daugiau: Kaip automatiškai siųsti el. laišką, kai "Excel" įvykdyta sąlyga

Išvada

VBA makrokomandų variantai ir HYPERLINK funkcija gali būti naudinga siunčiant automatinius el. laiškus iš "Excel" į "Outlook". Tikimės, kad rasite pageidaujamą metodą pirmiau aprašytuose. Komentuokite, jei turite papildomų klausimų arba norite ką nors pridėti.