Vai jums kādreiz ir bijusi nepieciešamība sūtīt e -pastu no Excel VBA uz vairākiem e -pasta ID, kas norādīti Excel lapā? Vai vēlaties uzzināt, kā sūtīt vēstules no Excel, neatverot perspektīvu? Šajā rakstā ir aprakstīts, kā jūs varat automatizēt Outlook un nosūtīt vairākus e -pastus ar pielikumiem no Excel ar vienu klikšķi, saglabājot arī cilvēkus kopijā un Diskrētā kopijā.
Galu galā jūs varat lejupielādēt arī failu, lai vīriešus uzreiz nosūtītu uz simtiem ID. Fails satur makro, lai nosūtītu e -pastu no Excel.
Kā nosūtīt pastu no Excel?
Lai nosūtītu pastu no programmas Excel, jums ir jāsaprot šie VBA fragmenti.
Svarīgs: Jums ir jābūt konfigurētam e -pastam programmā Outlook.
Nospiediet F11, lai atvērtu VB redaktoru.
- Pievienojiet atsauci uz Outlook objektu bibliotēku:
-
-
- Izvēlnē dodieties uz Rīki un noklikšķiniet uz Atsauces.
-
-
- Atrodiet Microsoft 16.0 objektu bibliotēku. Versija var būt atšķirīga. Programmā Excel 2016. Tas ir 16,0. Atzīmējiet to. Un noklikšķiniet uz Labi.
-
- Izveidojiet Outlook lietojumprogrammu un pasta atsauces: Tagad, lai varētu piekļūt Microsoft Outlook funkcijām, mums ir jāizveido tā objekts.
Dim outApp kā Outlook.Application 'Tādējādi tiks izveidota atsauce uz Outlook objektu. Dim outApp kā Outlook.MailItem 'Tādējādi tiks izveidota atsauce uz MailItem.
-
- Inicializējiet atsauces: Iepriekš minētās atsauces ir jāinicializē:
Set outApp = Jauna Outlook.Application Set outMail = outApp.CreateItem (0)
-
- Pasta sūtīšana, izmantojot objektu outMail: Zemāk esošajās rindās tiks definēts mērķa pasta ID, kopija, kopija, tēma, pamatteksts, pielikums un sūtīšanas komanda.
Ar outMail .To = "abcd.mail.com" 'Obligāti. Šeit jūs definējat galamērķa pasta ID… cc = "cc.mail.com" 'pēc izvēles. Cc pasta ID, ja vēlaties… BCC = "bcc.mail.com" 'pēc izvēles. Diskrētā kopija pasta ID, ja vēlaties … Temats = subj 'vajadzētu būt. Masāža uz pasta ķermeņa… Ķermenis = ziņojums 'pēc izvēles. Masāža uz pasta ķermeņa… Pielikumi. Pievienojiet "C: /exceltip.com \ test.xlsx" 'pēc izvēles. Pilnībā kvalificēts pielikuma nosaukums … Sūtīt 'Obligāti, ja vēlaties sūtīt pastu no Excel. Ja vēlaties redzēt pastu Outlook, izmantojiet .Display metodi. Beigt ar
Tieši tā. Viss, kas jums nepieciešams, lai nosūtītu pastu no Excel, izmantojot VBA.
Tagad aplūkosim piemēru, kas sūta pastu uz katru e -pasta ID Excel kolonnā atsevišķi.
Scenārijs:
Iedomājieties, jums tiek piedāvāta Excel lapa, kurā ir 100 e -pasta ID, un jums ir jānosūta e -pasts uz katru e -pasta ID atsevišķi. Ne tikai tas, bet arī jāpievieno priekšmeti. Tas prasīs vairākas stundas, ja to darīsit manuāli. Tātad automatizēsim šo pasta uzdevumu programmā Excel VBA.
Šeit man ir šie dati. C slejā ar nosaukumu "Sūtīt pastu uz" ir vairāki e -pasta ID. Man ir jānosūta e -pasts uz katru e -pasta ID šajā slejā.
Šim nolūkam esmu izveidojis kolonnas priekšmetam, masāžas ķermenim, CC un BCC.
"Sūtīt pastu uz" nedrīkst būt neviena tukša šūna. Visās pārējās kolonnās var būt tukšas šūnas. Ja tu vēlies
vairāki e -pasta ID uz pēc tam šajā kolonnā ierakstiet šos e -pasta ID ar komatiem. Pārliecinieties, vai e -pasta ID ir derīgi.
Ja vēlaties nosūtīt pielikumus. Pielikuma slejā ierakstiet šo failu adreses.
Ierakstiet tēmu slejā Tēma.
Masāža masāžas ķermeņa kolonnā.
Ja vēlaties kādu saglabāt slepenā kopijā, kolonnā CC ierakstiet viņa e -pasta adresi. Tas pats attiecas uz BCC. izmantojiet komatu vairākiem e -pasta ID.
Lai nosūtītu e -pasta ziņojumus uz katru kolonnas e -pasta ID, rīkojieties šādi.
- Nospiediet Alt+F11, lai programmā Excel atvērtu VBA redaktoru.
- Pievienojiet atsauci Outlook objektam, veicot iepriekš aprakstītās darbības.
- Jaunajā modulī nokopējiet zemāk esošo kodu.
'*** Jūsu sistēmā Outlook programmā ir jābūt konfigurētam Outlook e -pastam ***' '*** pievienojiet atsauci uz outook objektu bibliotēku no atsaucēm rīkos *** Sub BulkMail () Application.ScreenUpdating = False ThisWorkbook.Activate' Atsauču izveide uz Outlook lietojumprogrammām un MailItem objektiem Dim outApp As Outlook.Application Dim outMail As Outlook.MailItem 'Mainīgā izveide dažādu pasta vienību vērtību saglabāšanai Dim sendTo, subj, atchmnt, msg, ccTo, bccTo As String Dim lstRow Cik ilgi "Mani dati ir lapā" Exceltip.com ", jums var būt jebkurš lapas nosaukums. ThisWorkbook.Sheets ("Exceltip.com"). Aktivizējiet opciju "Iegūt pēdējo rindu, kas satur e -pasta ID 3. slejā. LstRow = Cells (Rows.Count, 3) .End (xlUp) .Row" Mainīgais, lai saglabātu visus e -pasta ID Dim rng Kā diapazona iestatījums rng = Diapazons ("C2: C" & lstRow) 'inicializē perspektīvas objektu, lai piekļūtu tā funkcijām Set outApp = New Outlook.Application On Error GoTo cleanup', lai apstrādātu visas kļūdas objekta izveides laikā. “Atkārtoti atkārtot katru rindu, saglabāt e -pasta datus mainīgajos un nosūtīt” e -pastu uz katru e -pasta ID. Par katru šūnu In rng sendTo = Range (cell.Address). Offset (0, 0) .Value2 subj = Range (cell.Address). Offset (0, 1) .Value2 & "-MS" msg = Range (cell. Adrese). Nobīde (0, 2). Vērtība2 atchmnt = Diapazons (šūna. Adrese). Nobīde (0, -1). Vērtība 2 ccTo = Diapazons (šūna. Adrese). Nobīde (0, 3). Vērtība 2 bccTo = Diapazons ( cell.Address). Offset (0, 4). Value2 On Error Resume Next ', lai nodotu kļūdas, veidojot zemāk esošo objektu Set outMail = outApp.CreateItem (0)' Pasta rakstīšana un nosūtīšana jaunā pastā ar outMail .To = sendTo .cc = ccTo .BCC = bccTo .Body = msg .Subject = subj .Attachments.Add atchmnt .Sūtīt 'šo sūtīt pastu bez jebkāda paziņojuma. Ja vēlaties redzēt e -pastu pirms nosūtīšanas, izmantojiet .Display metodi. Beigt ar ieslēgšanas kļūdu GoTo 0 'Lai notīrītu visas iepriekš fiksētās kļūdas Set outMail = Nekas' izslēdz pastkastes objektu nākamajam pastam Nākamā šūna 'cilpa beidz tīrīšanu:' atbrīvo visus izveidotos objektus Set outApp = Nothing Application.ScreenUpdating = True Application.ScreenUpdating = True Beigt apakš
Iepriekš minētais kods nosūtīs e -pasta ziņojumus uz katru e -pasta ID kolonnas “nosūtīt pastu” rindā. Lai palaistu šo kodu, varat to palaist tieši no šejienes. Vai arī varat pievienot skaitli vai pogu savā darbgrāmatā un pēc tam piešķirt šo makro šim objektam. Es izmantoju formas, jo tās ir pielāgojamas. Tā darīt, izpildiet tālāk norādītās darbības.
-
- Dodieties uz cilni Ievietot.
- Grupā Ilustrācija varat atrast formas, noklikšķiniet uz savas iecienītākās formas.
-
- Velciet un nometiet to uz savas lapas.
- Daiļojiet, ja vēlaties.
- Ar peles labo pogu noklikšķiniet uz tā. Noklikšķiniet uz Piešķirt makro.
-
- Sarakstā izvēlieties BulkMail makro.
- Iziet no rediģēšanas režīma.
Tagad, kad noklikšķināsit uz šī objekta, jūsu makro darbosies un sūtīs e -pastus. Pārbaudiet nosūtītās vēstules, lai pārliecinātos.
Šeit varat lejupielādēt Excel pasta sūtītāja failu.
Sadaliet Excel lapu vairākos failos, pamatojoties uz kolonnu, izmantojot VBA | Lai sadalītu darblapu vairākos failos, pamatojoties uz kolonnas vērtībām, tā jāfiltrē, kopējot un ielīmējot to jaunā failā.
Kā filtrēt datus programmā Excel, izmantojot VBA | Datu filtrēšana, izmantojot VBA, ir vienkārša. Šīs vienkāršās kodu rindas filtrē datus pēc noteiktajiem kritērijiem.
Izslēdziet brīdinājuma ziņojumus, izmantojot VBA programmā Microsoft Excel 2016 | Veicot vairākus uzdevumus, piemēram, atverot un aizverot failus, programma Excel parāda brīdinājuma ziņojumus, lai nezaudētu datus. Viņi pārtrauc darbības kodu. Lai no tiem izvairītos
Kā pārlūkot Excel lapas, izmantojot VBA | Lai uz priekšu un atpakaļ uz divām vai vairākām lapām, mums tās ir jāapgriež. Lai pārvietotos pa vairākām lapām, mēs izmantojam…
7 cilpu piemēri programmā Microsoft Excel VBA | For cilpa ir visbiežāk izmantotā cilpas paņēmiens jebkurā valodā. Excel VBA nav izņēmums.
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 īsceļi ļaus jums strādāt vēl ātrāk programmā Excel.
Funkcijas VLOOKUP izmantošana programmā Excel | Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
Funkcijas COUNTIF izmantošana programmā Excel | Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai uzskaitītu konkrētu vērtību. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.
Funkcijas SUMIF izmantošana programmā Excel | Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos.