V tomto článku vytvoríme makro na odoslanie listu ako prílohy v e -maile.
Pred spustením makra musíme zadať ID e -mailu a predmet e -mailu.
V tomto prípade chceme v e -maile odoslať „DataSheet“.
Logické vysvetlenie
Vytvorili sme makro „MailSheet“, ktoré preberá ID e -mailu a predmet e -mailu z textových polí. Vytvorí novú kópiu „DataSheet“, uloží ju a odošle ako prílohu.
Vysvetlenie kódu
Tabuľky („Dátový list“). Kopírovať
Vyššie uvedený kód sa používa na vytvorenie kópie „DataSheet“ v novom zošite.
ActiveWorkbook.SaveAs "časť" & ThisWorkbook.Name _
& "" & StrDate & ".xls"
Vyššie uvedený kód sa používa na uloženie nového zošita.
ActiveWorkbook.SendMail EmailID, MailSubject
Vyššie uvedený kód sa používa na odoslanie aktívneho zošita ako prílohy k zadanému ID e -mailu s daným predmetom.
ActiveWorkbook. Zatvorte nepravdu
Vyššie uvedený kód sa používa na zatvorenie aktívneho zošita bez jeho uloženia.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Sub MailSheet () 'Deklarovanie premenných Dim StrDate, EmailID, MailSubject ako reťazec' Získanie hodnoty pre ID e -mailu a predmet z textových polí EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Kopírovanie "DataSheetu" do nových listov zošita (" DataSheet "). Skopírujte 'Formátovanie dátumu a času do konkrétneho formátu StrDate = Format (Date," dd-mm-yy ") &" "& Format (Time," h-mm ")' Uloženie aktívneho zošita s novým názvom ActiveWorkbook. Uložiť ako súčasť "& ThisWorkbook.Name _ &" "& StrDate &" .xls "'Odosielanie pošty ActiveWorkbook.SendMail EmailID, MailSubject' Zatvoriť aktívny zošit ActiveWorkbook.Zavrieť Falošný koniec Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku