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

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

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 de 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 Sub

Opmerking:: 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 Verstuur 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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

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 elke dag honderden muisklikken!

Lees verder... Gratis download... Aankoop...