Jak uložit list jako soubor PDF a poslat jej e-mailem jako přílohu prostřednictvím aplikace Outlook?
V některých případech možná budete muset odeslat list jako soubor PDF prostřednictvím Outlooku. Obvykle musíte ručně uložit list jako soubor PDF, poté vytvořit nový e-mail s tímto souborem PDF jako přílohou v aplikaci Outlook a nakonec jej odeslat. Je časově náročné dosáhnout toho ručně krok za krokem. V tomto článku vám ukážeme, jak rychle uložit list jako soubor PDF a automaticky jej odeslat jako přílohu prostřednictvím aplikace Outlook v aplikaci Excel.
Uložte list jako soubor PDF a pošlete jej e-mailem jako přílohu s kódem VBA
Uložte list jako soubor PDF a pošlete jej e-mailem jako přílohu s kódem VBA
Spuštěním níže uvedeného kódu VBA můžete automaticky uložit aktivní list jako soubor PDF a poté jej poslat e-mailem jako přílohu prostřednictvím aplikace Outlook. Postupujte prosím následovně.
1. Otevřete list, který uložíte jako PDF, odešlete a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do Kód okno. Viz snímek obrazovky:
Kód VBA: Uložte list jako soubor PDF a pošlete jej e-mailem jako přílohu
Sub Saveaspdfandsend()
Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xYesorNo As Integer
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show = True Then
xFolder = xFileDlg.SelectedItems(1)
Else
MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
Exit Sub
End If
xFolder = xFolder + "\" + xSht.Name + ".pdf"
'Check if file already exist
If Len(Dir(xFolder)) > 0 Then
xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
vbYesNo + vbQuestion, "File Exists")
On Error Resume Next
If xYesorNo = vbYes Then
Kill xFolder
Else
MsgBox "if you don't overwrite the existing PDF, I can't continue." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro"
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File"
Exit Sub
End If
End If
Set xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then
'Save as PDF file
xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard
'Create Outlook email
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
With xEmailObj
.Display
.To = ""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Attachments.Add xFolder
If DisplayEmail = False Then
'.Send
End If
End With
Else
MsgBox "The active worksheet cannot be blank"
Exit Sub
End If
End Sub
3. zmáčkni F5 klíč ke spuštění kódu. V Procházet V dialogovém okně vyberte složku, do které chcete tento soubor PDF uložit, a poté klikněte na ikonu OK .
Poznámky:
Jednoduše uložte list nebo více listů jako samostatné soubory PDF najednou:
Projekt Rozdělit sešit užitečnost Kutools pro Excel vám pomůže snadno uložit list nebo více listů jako samostatné soubory PDF najednou, jak je ukázáno níže. Stáhněte si a vyzkoušejte! (30denní bezplatná trasa)
Související články:
- Jak uložit název souboru Excel s časovým razítkem?
- Jak používat funkci Uložit jako k automatickému přepsání existujícího souboru v aplikaci Excel?
- Jak ukládat, exportovat více / všechny listy do samostatných souborů CSV nebo textových souborů v aplikaci Excel?
- Jak zakázat nebo nepovolit možnosti Uložit a Uložit jako v aplikaci Excel?
- Jak zakázat ukládání sešitu, ale povolit pouze ukládání jako 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!