Hoe stuur ik een e-mail via Outlook wanneer de werkmap is opgeslagen in Excel?
In dit artikel wordt gesproken over het verzenden van een e-mail via Outlook wanneer een specifieke werkmap wordt opgeslagen in Excel. Doe alstublieft wat de tutorial laat zien.
Stuur een e-mail via Outlook wanneer de werkmap is opgeslagen met VBA-code
Stuur een e-mail via Outlook wanneer de werkmap is opgeslagen met VBA-code
Ga als volgt te werk om een e-mail via Outlook te verzenden wanneer de werkmap is opgeslagen in Excel.
1. Sla de werkmap eerst op als een Excel-werkmap met ingeschakelde macro's. Klik Dien in > Opslaan als. In de Opslaan als dialoogvenster, selecteer een map om de werkmap op te slaan, geef deze een naam in het vak Bestandsnaam en selecteer Excel-werkmap met ingeschakelde macro's van het Opslaan als type vervolgkeuzelijst en klik vervolgens op het Bespaar knop. Zie screenshot:
2. Open de Excel-werkmap met ingeschakelde macro's die u zojuist hebt opgeslagen, druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik Dit Werkboek in de linkerbalk en kopieer en plak de onderstaande VBA-code in het Dit Werkboek codevenster. Zie screenshot:
VBA-code: stuur een e-mail wanneer de werkmap is opgeslagen
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 SubOpmerking:: Vervang de Email adres met het e-mailadres van de ontvanger in de rij .To = "E-mailadres" en verander de Cc, het onderwerp en de body-velden in de VBA-code als je nodig hebt.
3. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.
Vanaf nu, wanneer u de werkmap bijwerkt en opslaat, wordt automatisch een e-mail gemaakt met een bijgewerkte werkmap als bijlage. Klik op het Verzenden knop om de e-mail te verzenden. Zie screenshot:
Opmerking:: De VBA-code werkt alleen als u Outlook als uw e-mailprogramma gebruikt.
Gerelateerde artikelen:
- Hoe automatisch e-mail verzenden op basis van celwaarde in Excel?
- Hoe verzend ik een e-mail als een bepaalde cel is gewijzigd in Excel?
- Hoe verzend ik een e-mail als op de knop wordt geklikt in Excel?
- Hoe e-mail verzenden als de vervaldatum is bereikt in Excel?
- Hoe stuur ik een e-mailherinnering of -melding als de werkmap wordt bijgewerkt in Excel?
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
