Hvordan sendes en e-mail via Outlook, når projektmappen gemmes i Excel?
Denne artikel taler om at sende en e-mail via Outlook, når en bestemt projektmappe gemmes i Excel. Gør som vejledningen viser.
Send en e-mail via Outlook, når projektmappen gemmes med VBA-kode
Send en e-mail via Outlook, når projektmappen gemmes med VBA-kode
For at sende en e-mail via Outlook, når projektmappen er gemt i Excel, skal du gøre som følger.
1. Gem først projektmappen som en Excel-makroaktiveret projektmappe. Klik på File (Felt) > Gem som. I Gem som Vælg en mappe for at gemme projektmappen, navngiv den i feltet Filnavn, vælg Excel-makroaktiveret projektmappe fra Filtype rullelisten, og klik derefter på Gem knap. Se skærmbillede:
2. Åbn den Excel-makroaktiverede projektmappe, du lige har gemt, tryk på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet ThisWorkbook i venstre bjælke, kopier og indsæt derefter nedenstående VBA-kode i ThisWorkbook kode vindue. Se skærmbillede:
VBA-kode: Send e-mail, når projektmappen er gemt
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
Bemærk: Udskift venligst Email adresse med modtagerens e-mail-adresse på linje .To = "E-mail-adresse"og ændre Cc, Subject såvel som body-felter i VBA-koden, som du har brug for.
3. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når du opdaterer projektmappen og gemmer den, oprettes der automatisk en e-mail med opdateret projektmappe. Klik på Send knappen for at sende e-mailen. Se skærmbillede:
Bemærk: VBA-koden fungerer kun, når du bruger Outlook som dit e-mail-program.
Relaterede artikler:
- Hvordan sendes automatisk e-mail baseret på celleværdi i Excel?
- Hvordan sendes e-mail, hvis en bestemt celle ændres i Excel?
- Hvordan sendes e-mail, hvis der klikkes på knappen i Excel?
- Hvordan sendes e-mail, hvis forfaldsdato er opfyldt i Excel?
- Hvordan sendes e-mail-påmindelse eller underretning, hvis projektmappen opdateres i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!