Jak odeslat e-mail prostřednictvím aplikace Outlook, když je sešit uložen v aplikaci Excel?
Tento článek hovoří o odesílání e-mailů prostřednictvím Outlooku při uložení konkrétního sešitu v aplikaci Excel. Udělejte to, jak ukazuje výukový program.
Po uložení sešitu s kódem VBA odešlete e-mail prostřednictvím aplikace Outlook
Po uložení sešitu s kódem VBA odešlete e-mail prostřednictvím aplikace Outlook
Chcete-li odeslat e-mail prostřednictvím aplikace Outlook, když je sešit uložen v aplikaci Excel, postupujte takto.
1. Nejprve prosím sešit uložte jako sešit Excel podporující makra. Klepněte na Soubor > Uložit jako. V Uložit jako v dialogovém okně vyberte složku pro uložení sešitu, pojmenujte ji do pole Název souboru a vyberte Sešit se zvýšeným makra Excel z Uložit jako typ rozevírací seznam a poté klikněte na ikonu Uložit knoflík. Viz screenshot:
2. Otevřete sešit Excel podporující makra, který jste právě uložili, stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace v okně, poklepejte prosím Tato pracovní kniha na levé liště, poté zkopírujte a vložte níže uvedený kód VBA do Tato pracovní kniha okno s kódem. Viz screenshot:
Kód VBA: Odeslat e-mail při uložení sešitu
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
Poznámka: Vyměňte prosím Emailová adresa s e-mailovou adresou příjemce v řádku .To = "E-mailová adresa", a změňte pole Cc, Subject a Body v kódu VBA podle potřeby.
3. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.
Od této chvíle, když aktualizujete sešit a uložíte jej, automaticky se vytvoří e-mail s připojeným aktualizovaným sešitem. Klikněte prosím na Poslat tlačítko pro odeslání e-mailu. Viz screenshot:
Poznámka: Kód VBA funguje, pouze když používáte Outlook jako svůj e-mailový program.
Související články:
- Jak automaticky odesílat e-maily na základě hodnoty buňky v aplikaci Excel?
- Jak odeslat e-mail, pokud je určitá buňka upravena v aplikaci Excel?
- Jak poslat e-mail, když kliknete na tlačítko v aplikaci Excel?
- Jak poslat e-mail, pokud byl v aplikaci Excel splněn termín splatnosti?
- Jak poslat e-mailem připomenutí nebo oznámení, pokud je sešit aktualizován v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!