V tomto článku vytvoříme makro pro odeslání listu jako přílohy v e -mailu.
Před spuštěním makra musíme zadat ID e -mailu a předmět e -mailu.
V tomto příkladu chceme odeslat „DataSheet“ jako přílohu e -mailu.
Logické vysvětlení
Vytvořili jsme makro „MailSheet“, které převezme ID e -mailu a předmět e -mailu z textových polí. Vytvoří novou kopii „DataSheet“, uloží ji a odešle jako přílohu.
Vysvětlení kódu
Listy („DataSheet“). Kopírovat
Výše uvedený kód se používá k vytvoření kopie „DataSheet“ v novém sešitu.
ActiveWorkbook.SaveAs "část" & ThisWorkbook.Name _
& "" & StrDate & ".xls"
Výše uvedený kód se používá k uložení nového sešitu.
ActiveWorkbook.SendMail EmailID, MailSubject
Výše uvedený kód slouží k odeslání aktivního sešitu jako přílohy zadaného e -mailového ID s daným předmětem.
ActiveWorkbook.Close False
Výše uvedený kód slouží k zavření aktivního sešitu bez jeho uložení.
Pro kód prosím postupujte níže
Sub MailSheet () 'Deklarace proměnných Dim StrDate, EmailID, MailSubject jako řetězec' Získání hodnoty pro ID e -mailu a předmět z textových polí EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Kopírování „DataSheet“ do nových listů sešitu („ DataSheet "). Zkopírujte 'Formátování data a času do konkrétního formátu StrDate = Format (Date," dd-mm-yy ") &" "& Format (Time," h-mm ")' Uložení aktivního sešitu s novým názvem ActiveWorkbook. SaveAs "Part of" & ThisWorkbook.Name _ & "" & StrDate & ".xls" 'Odesílání pošty ActiveWorkbook.SendMail EmailID, MailSubject' Zavřít aktivní sešit ActiveWorkbook.Close False End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail