이 문서에서는 특정 통합 문서가 Excel에 저장 될 때 Outlook을 통해 전자 메일을 보내는 방법에 대해 설명합니다. 튜토리얼이 보여주는대로 수행하십시오.
통합 문서가 VBA 코드로 저장되면 Outlook을 통해 전자 메일 보내기
통합 문서가 Excel로 저장 될 때 Outlook을 통해 이메일을 보내려면 다음과 같이하십시오.
1. 먼저 통합 문서를 Excel 매크로 사용 통합 문서로 저장하십시오. 딸깍 하는 소리 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 다른 이름으로 저장. 에서 다른 이름으로 저장 대화 상자에서 통합 문서를 저장할 폴더를 선택하고 파일 이름 상자에 이름을 지정한 다음 Excel 매크로 사용 통합 문서 인사말 형식으로 저장 드롭 다운 목록을 클릭 한 다음 찜하기 단추. 스크린 샷보기 :
2. 방금 저장 한 Excel 매크로 사용 통합 문서를 열고 다른 + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.
2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 두 번 클릭하십시오 이 워크북 왼쪽 막대에 다음 VBA 코드를 복사하여 붙여 넣으십시오. 이 워크북 코드 창. 스크린 샷보기 :
VBA 코드 : 통합 문서를 저장할 때 전자 메일 보내기
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주의 사항: 교체하십시오 이메일 주소 받는 사람 이메일 주소와 함께 .To = "이메일 주소"의 메이크업 시연, 그리고 한국에서 사랑을 담아 보낸 필요에 따라 VBA 코드에서 Cc, Subject 및 본문 필드를 변경하십시오.
3. 누르세요 다른 + Q 키를 동시에 닫아 응용 프로그램 용 Microsoft Visual Basic 창.
이제부터 통합 문서를 업데이트하고 저장하면 업데이트 된 통합 문서가 첨부 된 이메일이 자동으로 생성됩니다. 클릭하십시오 전송 버튼을 눌러 이메일을 보냅니다. 스크린 샷보기 :
주의 사항: VBA 코드는 Outlook을 전자 메일 프로그램으로 사용할 때만 작동합니다.
