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å filet > 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 SubBemæ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?
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
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!
