U ovom ćemo članku stvoriti makro za slanje lista kao privitak u e -pošti.
Prije pokretanja makronaredbe moramo navesti id e -pošte i predmet e -pošte.
U ovom primjeru želimo poslati "Podatkovnu tablicu" kao privitak u e -pošti.
Logično objašnjenje
Napravili smo makro „MailSheet“ koji uzima id e -pošte i predmet e -pošte iz tekstualnih okvira. Ona stvara novu kopiju "podatkovne tablice", sprema je i šalje kao privitak.
Objašnjenje koda
Tablice ("podatkovna tablica"). Kopiraj
Gornji kôd koristi se za stvaranje kopije "podatkovne tablice" u novoj radnoj knjizi.
ActiveWorkbook.SaveAs "Dio" & ThisWorkbook.Name _
& "" & StrDate & ".xls"
Gornji kôd koristi se za spremanje nove radne knjige.
ActiveWorkbook.SendMail EmailID, MailSubject
Gornji kôd koristi se za slanje aktivne radne knjige kao privitak na navedeni id e -pošte s danom temom.
ActiveWorkbook.Close False
Gornji kôd koristi se za zatvaranje aktivne radne knjige bez spremanja.
Molimo slijedite dolje za kôd
Sub MailSheet () 'Deklariranje varijabli Dim StrDate, EmailID, MailSubject kao niz' Dobivanje vrijednosti za ID e -pošte i predmet iz tekstualnih okvira EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Kopiranje "Podatkovne tablice" u nove listove radne knjige (" DataSheet "). Kopirajte 'Datum i vrijeme oblikovanja u određeni format StrDate = Format (Date," dd-mm-yy ") &" "& Format (Time," h-mm ")' Spremanje aktivne radne knjige s novim imenom ActiveWorkbook. SpremiKao "Dio" & ThisWorkbook.Name _ & "" & StrDate & ".xls" 'Slanje pošte ActiveWorkbook.SendMail EmailID, MailSubject' Zatvorite aktivnu radnu knjigu ActiveWorkbook.Zatvori False End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte