In dit artikel zullen we een macro maken om een blad als bijlage in een e-mail te verzenden.
Voordat we de macro uitvoeren, moeten we een e-mail-ID en het onderwerp van de e-mail opgeven.
In dit voorbeeld willen we "DataSheet" als bijlage in de e-mail verzenden.
Logische uitleg
We hebben een "MailSheet" -macro gemaakt, die de e-mail-ID en het onderwerp van de e-mail uit tekstvakken haalt. Het maakt een nieuwe kopie van "DataSheet", slaat het op en verzendt het als bijlage.
Code uitleg
Spreadsheets ("Gegevensblad"). Kopiëren
De bovenstaande code wordt gebruikt om een kopie van "DataSheet" in een nieuwe werkmap te maken.
ActiveWorkbook.SaveAs "Onderdeel van" & ThisWorkbook.Name _
& " " & StrDate & ".xls"
De bovenstaande code wordt gebruikt om de nieuwe werkmap op te slaan.
ActiveWorkbook.SendMail EmailID, MailSubject
De bovenstaande code wordt gebruikt om de actieve werkmap als bijlage naar de opgegeven e-mail-ID te verzenden, met het opgegeven onderwerp.
ActiveWorkbook.Sluiten False
De bovenstaande code wordt gebruikt om de actieve werkmap te sluiten zonder deze op te slaan.
Volg hieronder voor de code:
Sub MailSheet() 'Variabelen Dim StrDate, EmailID, MailSubject As String declareren 'Waarde ophalen voor e-mail-ID en onderwerp uit tekstvakken EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'DataSheet' kopiëren naar nieuwe werkmap Sheets(" DataSheet").Kopieer 'Datum en tijd opmaken in een bepaald formaat StrDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm") 'Actieve werkmap opslaan met nieuwe naam ActiveWorkbook. SaveAs "Part of " & ThisWorkbook.Name _ & " " & StrDate & ".xls" 'E-mail verzenden ActiveWorkbook.SendMail EmailID, MailSubject 'Sluit de actieve werkmap ActiveWorkbook.Close False End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite