I denne artikel vil vi oprette en makro til at sende et ark som vedhæftet fil i en e -mail.
Inden vi kører makroen, skal vi angive et e -mail -id og emnet for e -mailen.
I dette eksempel vil vi sende "DataSheet" som en vedhæftet fil i e -mailen.
Logisk forklaring
Vi har oprettet "MailSheet" -makro, som tager e -mail -id og emne for e -mailen fra tekstbokse. Det opretter en ny kopi af "DataSheet", gemmer det og sender det som en vedhæftet fil.
Kode forklaring
Ark ("Dataark"). Kopiér
Ovenstående kode bruges til at oprette en kopi af "DataSheet" i en ny projektmappe.
ActiveWorkbook.SaveAs "Del af" & ThisWorkbook.Name _
& "" & StrDate & ".xls"
Ovenstående kode bruges til at gemme den nye projektmappe.
ActiveWorkbook.SendMail EmailID, MailSubject
Ovenstående kode bruges til at sende den aktive projektmappe som en vedhæftet fil til det angivne e -mail -id med det givne emne.
ActiveWorkbook.Close False
Ovenstående kode bruges til at lukke den aktive projektmappe uden at gemme den.
Følg venligst nedenstående for koden
Sub MailSheet () 'Deklarationsvariabler Dim StrDate, EmailID, MailSubject As String' Henter værdi for e -mail -id og emne fra tekstbokse EmailID = Sheet1.TextBox1.Value MailSubject = Sheet1.TextBox2.Value 'Kopiering af "datablad" til nye arbejdsbogsark (" DataSheet "). Kopier 'Formatering af dato og klokkeslæt til et bestemt format StrDate = Format (Dato," dd-mm-åå ") &" "& Format (Tid," h-mm ")' Gemmer aktiv projektmappe med nyt navn ActiveWorkbook. SaveAs "Part of" & ThisWorkbook.Name _ & "" & StrDate & ".xls" 'Send mail ActiveWorkbook.SendMail EmailID, MailSubject' Luk den aktive projektmappe ActiveWorkbook.Close False End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet