워크시트를 PDF 파일로 저장하고 아웃룩을 통해 첨부파일로 이메일 보내는 방법은 무엇입니까?

어떤 경우에는 워크시트를 PDF 파일로 아웃룩을 통해 보내야 할 수 있습니다. 일반적으로 워크시트를 PDF 파일로 수동으로 저장한 다음, 아웃룩에서 해당 PDF 파일을 첨부한 새 이메일을 작성하고 마지막으로 이를 보내야 합니다. 이러한 과정을 단계별로 수동으로 진행하는 것은 시간이 많이 소요됩니다. 이 문서에서는 엑셀에서 워크시트를 빠르게 PDF 파일로 저장하고 자동으로 아웃룩을 통해 첨부파일로 보내는 방법을 알려드리겠습니다.

VBA 코드를 사용하여 워크시트를 PDF 파일로 저장하고 첨부파일로 이메일 보내기

VBA 코드를 사용하여 워크시트를 PDF 파일로 저장하고 첨부파일로 이메일 보내기

아래 VBA 코드를 실행하면 활성 워크시트가 자동으로 PDF 파일로 저장되고, 아웃룩을 통해 첨부파일로 이메일이 전송됩니다. 아래 단계에 따라 진행하세요.

1. PDF로 저장하고 보낼 워크시트를 열고 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 VBA 코드를 복사하여 코드 창에 붙여넣습니다. 스크린샷 보기:

VBA 코드: 워크시트를 PDF 파일로 저장하고 첨부파일로 이메일 보내기

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. 코드를 실행하기 위해 F5 키를 누릅니다. 찾아보기 대화상자에서 PDF 파일을 저장할 폴더를 선택한 후 확인 버튼을 클릭합니다.

참고:

관련 문서:

• 엑셀 파일 이름을 타임스탬프로 저장하려면 어떻게 해야 하나요?
• Excel에서 '다른 이름으로 저장' 기능을 사용하여 기존 파일을 자동으로 덮어쓰려면 어떻게 해야 하나요?
• Excel에서 여러 시트/모든 시트를 별도의 CSV 또는 텍스트 파일로 저장하거나 내보내려면 어떻게 해야 하나요?
• Excel에서 저장 및 다른 이름으로 저장 옵션을 비활성화하거나 허용하지 않으려면 어떻게 해야 하나요?
• Excel에서 통합 문서 저장을 비활성화하고 다른 이름으로만 저장하도록 하려면 어떻게 해야 하나요?