Hogyan küldhetünk e-mailt az Outlookon keresztül, amikor a munkafüzet mentésre kerül az Excelbe?

Ez a cikk arról szól, hogy e-mailt küldjön az Outlook segítségével, amikor egy adott munkafüzet mentésre kerül az Excel programba. Kérjük, tegye meg, ahogy a bemutató mutatja.

Küldjön e-mailt az Outlookon keresztül, amikor a munkafüzetet VBA kóddal menti

Küldjön e-mailt az Outlookon keresztül, amikor a munkafüzetet VBA kóddal menti

Elképesztő! Hatékony lapok használata az Excelben, például a Chrome, a Firefox és a Safari!

Takarítsa meg idejének 50% -át, és csökkentse az egérkattintások ezreit minden nap!

---

Ha a munkafüzet mentése az Excel-be az e-mailen keresztül történik, kérjük, tegye a következőket.

1. Először kérjük, mentse el a munkafüzetet Excel makróképes munkafüzetként. Kattintson a gombra filé > Mentés másként. Az Mentés másként párbeszédpanelen válasszon egy mappát a munkafüzet mentéséhez, nevezze el a Fájlnév mezőben, majd válassza a lehetőséget Excel makró-engedélyezett munkafüzet tól Mentés típus legördülő listára, majd kattintson a gombra Megtakarítás gomb. Lásd a képernyőképet:

2. Nyissa meg az imént mentett Excel makró-engedélyezett munkafüzetet, nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablak, kattintson duplán Ez a munkafüzet a bal sávban, majd másolja és illessze be az alábbi VBA kódot a Ez a munkafüzet kód ablak. Lásd a képernyőképet:

VBA kód: E-mail küldése a munkafüzet mentésekor

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

Megjegyzések: Kérjük, cserélje ki a Email cím a címzett e-mail címével a sorban .To = "E-mail cím"és szükség szerint módosítsa a Vc kódban a Cc, Subject és a body mezőket.

3. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.

Mostantól a munkafüzet frissítésekor és mentésekor automatikusan létrejön egy e-mail, mellékelve a frissített munkafüzettel. Kattintson a gombra Küldés gombra az e-mail elküldéséhez. Lásd a képernyőképet:

Megjegyzések: A VBA kód csak akkor működik, ha az Outlook programot használja e-mail programként.

Kapcsolódó cikkek:

• Hogyan küldhetünk automatikusan e-mailt az Excel cellája alapján?
• Hogyan lehet e-mailt küldeni, ha egy bizonyos cellát módosítanak az Excelben?
• Hogyan küldhetünk e-mailt, ha az Excel gombra kattintunk?
• Hogyan lehet e-mailt küldeni, ha az Excel határidejét betartotta?
• Hogyan küldhetünk e-mailes emlékeztetőt vagy értesítést, ha a munkafüzet frissül az Excel programban?

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

• újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...