V tem članku bomo ustvarili makro za pošiljanje lista kot priloge v e -poštnem sporočilu.
Preden zaženemo makro, moramo določiti e -poštni ID in zadevo e -pošte.
V tem primeru želimo poslati »podatkovni list« kot prilogo v e -poštnem sporočilu.
Logična razlaga
Ustvarili smo makro »MailSheet«, ki vzame id e -pošte in zadevo e -pošte iz besedilnih polj. Ustvari novo kopijo podatkovnega lista, jo shrani in pošlje kot prilogo.
Razlaga kode
Listi ("Podatkovni list"). Kopiraj
Zgornja koda se uporablja za ustvarjanje kopije podatkovnega lista v novem delovnem zvezku.
ActiveWorkbook.SaveAs "Del" & ThisWorkbook.Name _
& "" & StrDate & ".xls"
Zgornja koda se uporablja za shranjevanje novega delovnega zvezka.
ActiveWorkbook.SendMail EmailID, MailSubject
Zgornja koda se uporablja za pošiljanje aktivnega delovnega zvezka kot priloge k določenemu e -poštnemu ID -ju z dano temo.
ActiveWorkbook.Close False
Zgornja koda se uporablja za zapiranje aktivnega delovnega zvezka, ne da bi ga shranili.
Za kodo sledite spodaj
Sub MailSheet () "Razglasitev spremenljivk Dim StrDate, EmailID, MailSubject As String" Pridobivanje vrednosti za ID e -pošte in zadevo iz besedilnih oken EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value "Kopiranje" podatkovnega lista "v nove liste delovnega zvezka (" Podatkovni list "). Kopirajte" Datum in čas oblikovanja v določeno obliko StrDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm") 'Shranjevanje aktivnega delovnega zvezka z novim imenom ActiveWorkbook. ShraniKot "Del" & ThisWorkbook.Name _ & "" & StrDate & ".xls" 'Pošiljanje pošte ActiveWorkbook.SendMail EmailID, MailSubject' Zaprite aktivni delovni zvezek ActiveWorkbook.Zaprite False End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte