Jak odeslat e-mail, když příjemci otevřou soubor aplikace Excel?
Většina z nás může svým klientům posílat některé důležité zprávy s přílohou souboru aplikace Excel, takže potřebujeme vědět, zda příjemce obdržel zprávu a otevřel přílohu souboru. V tomto případě můžete vytvořit kód VBA pro soubor přílohy Excel, když příjemce otevře sešit a aktivuje kód, poté vám bude automaticky zaslán e-mail s výzvou.
Po otevření souboru aplikace Excel příjemci s kódem VBA odešlete e-mail
Po otevření souboru aplikace Excel příjemci s kódem VBA odešlete e-mail
Před odesláním tohoto souboru Excel byste měli vytvořit kód následujícím způsobem:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. Poté dvakrát klikněte Tato pracovní kniha pod Projekt VBA sekce otevřete prázdný modul a poté zkopírujte a vložte následující kód do modulu:
Kód VBA: Odeslání e-mailu při otevření souboru aplikace Excel:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
Poznámka: Ve výše uvedeném kódu byste měli změnit e-mailovou adresu na svou vlastní adresu, na kterou chcete obdržet e-mail s výzvou, a změnit předmět podle své potřeby.
3. Poté tento sešit uložte jako Sešit se zvýšeným makra Excel formát souboru, viz screenshot:
4. A poté odešlete zprávu s touto přílohou souboru příjemcům, které potřebujete, když vám příjemci, kteří stáhnou a otevřou tento soubor Excel a aktivují kód, automaticky zašle e-mail s výzvou, že soubor byl otevřen kým zobrazený snímek obrazovky:
Poznámka: Tato metoda je k dispozici, pouze pokud používáte Outlook jako poštovní program.
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!
