Šajā pamācībā tiks parādīts, kā izmantot Excel makro, lai automātiski nosūtītu e-pastu. Mēs varam konfigurēt mūsu pasta sūtīšanas funkciju, izmantojot VBA makro. Tātad, izmantojot VBA makro mēs varam sūtīt e-pastu vairākiem lietotājiem vienlaicīgi. Mums ir jābūt Outlook instalēta mūsu ierīcē, lai automātiski nosūtītu e-pastu ar makro. Tā kā kods, ko mēs ievietosim, izmantosim Outlook lai nosūtītu e-pasta ziņojumus saņēmējiem.

Lejupielādēt Practice Workbook

Prakses darba burtnīcu varat lejupielādēt no šejienes.

3 Piemēroti Excel makroekspluatācijas piemēri, lai automātiski nosūtītu e-pastu

Šajā rakstā mēs demonstrēsim 3 Piemēroti piemēri, kā izmantot excel makro, lai automātiski nosūtītu e-pastu saņēmējiem. Pirms sākt ilustrēt piemēru, mums ir nepieciešams noteikt kādu lietu mūsu excel lapā. Pirms piemērot makro, lai automātiski nosūtītu e-pastu, izpildiet turpmāk norādītos soļus.

PASĀKUMI:

• Vispirms no savas datu kopas dodieties uz cilne Izstrādātājs . Izvēlieties opciju Visual Basic .

• Pēc tam dodieties uz Rīks cilni un atlasiet opciju Atsauces .

• Tiek atvērts jauns dialoglodziņš ar nosaukumu Atsauces - VBAProject ' tiks atvērts.
• Visbeidzot, atzīmējiet opciju Microsoft Office 16.0 objektu bibliotēka ' un noklikšķiniet uz LABI .

1. Pielietojiet Excel VBA makro, lai automātiski nosūtītu e-pastu, pamatojoties uz šūnas vērtību

Pirmkārt un galvenokārt, mēs izmantosim Excel VBA makro, lai automātiski nosūtītu e-pastu, pamatojoties uz noteiktu šūnas vērtību mūsu datu kopā. Lai ilustrētu šo piemēru, mēs izmantosim šādu datu kopu. Mēs uzrakstīsim kodu, kas automātiski nosūtīs e-pastu, ja šūnas vērtība šūnā D6 ir lielāks par 400 .

Apskatīsim šīs darbības veikšanas soļus.

PASĀKUMI:

• Vispirms, pa labi - noklikšķiniet uz uz lapas Pamatojoties uz Cell '.
• Turklāt izvēlieties opciju Skatīt kodu '.

• Iepriekš minētā darbība atvērs tukšu VBA Cits veids, kā atvērt šīs darblapas koda logu, ir nospiest pogu Alt + F11 .
• Turklāt šajā koda logā ievadiet šādu kodu:

 Dim rg As Range Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Cells.Count> 1 Then Exit Sub Set rg = Intersect(Range("D6"), Target) If rg Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value> 400 Then Call send_mail_outlook End If End If Sub Sub Sub send_mail_outlook() Dim z As Object Dim y As Object Dim b As String Set z =CreateObject("Outlook.Application") Set y = z.CreateItem(0) b = "Hello!" & vbNewLine & vbNewLine & vbNewLine & _ "Hope you are well" & vbNewLine & _ "Visit our site Exceldemy" On Error Resume Next With y .To = "Address" .cc = "" .BCC = "" .Subject = "send mail based on cell value" .Body = b .Display End With On Error GoTo 0 Set y = Nothing Set z = Nothing End Sub 

• Pēc tam noklikšķiniet uz Palaist vai nospiediet pogu F5 taustiņu, lai palaistu kodu.

• Tiek atvērts jauns dialoglodziņš ar nosaukumu Makroprocesori parādīsies.
• Pēc tam Makro nosaukums lauciņā atlasiet makro send_mail_outlook '.
• Tagad noklikšķiniet uz Palaist pogu.

• Visbeidzot, no šī brīža, kad šūnas vērtība šūnā D6> 400 e-pasta vēstuli Outlook tiks automātiski ģenerēts ar konkrētiem saņēmējiem. Mums ir tikai jānoklikšķina uz Sūtīt pogu, lai nosūtītu e-pastu.

Lasīt vairāk: Automātiska e-pasta sūtīšana no Excel, pamatojoties uz šūnu saturu (2 metodes)

2. Automātiska e-pasta sūtīšana, pamatojoties uz izpildes termiņu, izmantojot VBA makrokontroli

Otrajā metodē mēs izmantosim Excel VBA makro, lai automātiski nosūtītu e-pasta vēstuli, ja tuvojas kāda projekta izpildes termiņš. Tas ir kaut kas līdzīgs atgādinājumam. Lai ilustrētu šo piemēru, mēs izmantojam šādu datu kopu. Datu kopa satur dažādu pārdevēju e-pasta vēstules, ziņojumus un viņu projektu izpildes termiņu.

Lai veiktu šo metodi, izpildiet tālāk norādītās darbības.

PASĀKUMI:

• Vispirms ar peles labo pogu noklikšķiniet uz lapas Datums .
• Pēc tam atlasiet opciju Skatīt kodu '.

• Tas atver tukšu VBA aktīvās darblapas koda logu. Mēs varam arī nospiest Alt + F11 lai iegūtu šo koda logu.
• Pēc tam šajā koda logā ievietojiet šādu kodu:

 Public Sub Based_on_Date() Dim aRgDate As Range Dim aRgSend As Range Dim aRgSend As Range Dim aRgText As Range Dim aRgDone As Range Dim aOutApp As Object Dim aMailItem As Object Dim aLastRow As Long Dim CrLf As String Dim aMailBody As String Dim zRgDateVal As String Dim zRgSendVal As String Dim zRgSubject As String Dim j As Long On Error Resume Next Set aRgDate = Application.InputBox("izvēlieties kolonnu duedate:", _ "Sūtīt pastu pēc datuma", , , , , , , , 8) Ja aRgDate Is Nothing Then Exit Sub Set aRgSend = Application.InputBox("Izvēlieties e-pasta saņēmēju kolonnu:", _ "Sūtīt pastu pēc datuma", , , , , , , , 8) Ja aRgSend Is Nothing Then Exit Sub Set aRgText = Application.InputBox("Izvēlieties e-pasta satura kolonnu:", _ "Sūtīt pastu pēc datuma", , , , , , , 8) Ja aRgText Is Nothing Then Exit Sub aLastRow =aRgDate.Rows.Count Set aRgDate = aRgDate(1) Set aRgSend = aRgSend(1) Set aRgText = aRgText(1) Set aOutApp = CreateObject("Outlook.Application") For j = 1 To aLastRow zRgDateVal = "" zRgDateVal = aRgDate.Offset(j - 1).Value If zRgDateVal "" Then If CDate(zRgDateVal) - Date 0 Then zRgSendVal = aRgSend.Offset(j - 1).Value aMailSubject = aRgText.Offset(j - 1).Value & " on " & zRgDateVal CrLf= " 

" aMailBody = "" aMailBody = aMailBody & "Hello " & zRgSendVal & CrLf aMailBody = aMailBody & "Message: " & aRgText.Offset(j - 1).Value & CrLf aMailBody = aMailBody & "" Set aMailItem = aOutApp.CreateItem(0) With aMailItem .Subject = aMailSubject .To = zRgSendVal .HTMLBody = aMailBody .Display End With Set aMailItem = Nothing End If End If Next Set aOutApp = Nothing EndSub

• Tagad izmantojiet Palaist pogu vai F5 taustiņu, lai palaistu kodu.

• Parādīsies jauns dialoglodziņš.
• Pēc tam šī dialoga loga ievades laukā atlasiet datuma slejas diapazonu. D$5:$D$9 . Pēc tam noklikšķiniet uz LABI .

• Parādīsies vēl viens dialoglodziņš.
• Turklāt ievades laukā atlasiet kolonnas diapazonu. B$5:$B$9 kas satur e-pasta adreses, un noklikšķiniet uz LABI .

• Turklāt parādīsies vēl viens logs. Izvēlieties ziņojumu diapazonu. $C$5:$C$9 loga ievades laukā.

• Galu galā mēs redzam rezultātus, kas līdzinās šādam attēlam. Mēs iegūstam. 3 e-pasta ziņojumus, kas tiek automātiski izveidoti 3 dažādi logi Outlook . Tas neradīs pastu pirmajām divām e-pasta adresēm. Tā kā šo divu projektu izpildes termiņš ir beidzies.

Lasīt vairāk: Kā automātiski nosūtīt e-pastu no Excel, pamatojoties uz datumu

Līdzīgi lasījumi

• [Atrisināts]: koplietošanas darbgrāmata nav redzama programmā Excel (ar vienkāršiem soļiem)
• Kā nosūtīt e-pastu no Excel saraksta (2 efektīvi veidi)
• Kā nosūtīt rediģējamu Excel izklājlapu pa e-pastu (3 ātras metodes)
• Makro, lai nosūtītu e-pastu no Excel (5 piemēroti piemēri)
• Makro, lai nosūtītu e-pastu no Excel ar ķermeni (3 noderīgi gadījumi)

3. Izmantojiet Excel makrokompleksu, lai automātiski nosūtītu e-pastu ar pielikumiem

Pēdējā piemērā mēs redzēsim, kā mēs varam izstrādāt excel makro, lai automātiski nosūtītu e-pastu ar pielikumiem. Pieņemsim, ka mums ir šāds attēls. Mēs vēlamies nosūtīt šo pielikumu, izmantojot excel, izmantojot e-pastu. VBA makro. Lai to izdarītu, mums ir nepieciešams šī Excel faila ceļš. Šeit ir aprakstīti soļi, kā to izdarīt:

• Izvēlieties failu Pielikums.xlsx ' '.
• Noklikšķiniet uz opcijas Kopēt ceļu '.

• Tātad, faila ceļš, ko mēs saņemam:

Mēs ievietosim šo ceļu mūsu makro kodā, lai nosūtītu šo failu pa e-pastu. Lai to izdarītu, izpildiet tālāk norādītās darbības.

PASĀKUMI:

• Vispirms dodieties uz Izstrādātājs cilni un atlasiet opciju Visual Basic .

• Tiek atvērts jauns logs ar nosaukumu Projekts - tiks atvērts VBAProject '.
• Otrkārt, ar peles labo pogu noklikšķiniet uz uz lapas nosaukuma.
• Pēc tam atlasiet Ievietot > Modulis .

• Iepriekš minētā komanda atvērs tukšu VBA
• Treškārt, šajā modulī ievadiet šādu kodu:

 Sub send_Email_complete() Dim MyOutlook As Object Set MyOutlook = CreateObject("Outlook.Application") Dim MyMail As Object Set MyMail = MyOutlook.CreateItem(olMailItem) MyMail.To = "[email protected]" MyMail.cc = "[email protected]" MyMail.BCC = "[email protected]" MyMail.Subject = "Sūtīt e-pastu ar VBA." MyMail.Body = "Šis ir vēstules paraugs." Attached_File = "E:\Exceldemy\Attachment.xlsx"MyMail.Attachments.Add Attached_File MyMail.send End Sub End Sub 

• Pēc tam nospiediet F5 vai noklikšķiniet uz Palaist pogu, lai palaistu kodu.

• Visbeidzot, kods nosūtīs pielikumu uz kodā norādītajiem e-pasta ziņojumiem. Kods sūta e-pasta ziņojumus, izmantojot. Outlook . Tātad noklikšķiniet uz Atļaut pogu, lai ļautu Outlook nosūtīt pielikumu uz norādītajiem e-pasta ziņojumiem.

Lasīt vairāk: Kā lietot makro, lai nosūtītu e-pastu no Excel ar pielikumu

Secinājums

Nobeigumā šajā rakstā ir parādīts, ka 3 Excel lietošanas piemēri VBA Makro, lai automātiski nosūtītu pastu. Lejupielādējiet šajā rakstā sniegto darba lapas paraugu, lai pārbaudītu savas prasmes. Ja jums ir kādi jautājumi, lūdzu, atstājiet komentāru zemāk esošajā lodziņā. Mūsu komanda centīsies atbildēt uz jūsu ziņu pēc iespējas ātrāk. Sekojiet līdzi vairāk izgudrotāju. Microsoft Excel risinājumus nākotnē.