메인 컨텐츠로 가기

수신자가 첨부 파일 Excel 파일을 열 때 이메일을 보내는 방법은 무엇입니까?

우리 중 대부분은 Excel 파일 첨부와 함께 중요한 메시지를 고객에게 보낼 수 있으므로 수신자가 메시지를 받고 첨부 파일을 열 었는지 알아야합니다. 이 경우 수신자가 통합 문서를 열고 코드를 활성화하면 Excel 첨부 파일에 대한 VBA 코드를 만들 수 있습니다. 그러면 자동으로 프롬프트 이메일이 전송됩니다.

VBA 코드로 수신자가 첨부 파일 Excel 파일을 열면 이메일을 보냅니다.


화살표 블루 오른쪽 거품 VBA 코드로 수신자가 첨부 파일 Excel 파일을 열면 이메일을 보냅니다.

이 Excel 파일을 보내기 전에 다음과 같은 코드를 만들어야합니다.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 그런 다음 더블 클릭 이 워크북 아래 VBA 프로젝트 섹션을 클릭하여 빈 모듈을 연 후 다음 코드를 복사하여 모듈에 붙여 넣습니다.

VBA 코드 : 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

파일을 열 때 문서 보내기 1

주의 사항: 위 코드에서 이메일 주소를 프롬프트 이메일을받을 자신의 주소로 변경하고 필요에 따라 제목을 변경해야합니다.

3. 그런 다음이 통합 문서를 Excel 매크로 사용 통합 문서 파일 형식, 스크린 샷 참조 :

파일을 열 때 문서 보내기 2

4. 그런 다음이 파일이 첨부 된 메시지를 필요한받는 사람에게 보내면받는 사람이이 Excel 파일을 다운로드하여 열고 코드를 활성화하면 메시지가 자동으로 전송되고 다음과 같은 사람이 파일을 열었 음을 알려줍니다. 표시된 스크린 샷 :

파일을 열 때 문서 보내기 3

주의 사항:이 방법은 Outlook을 메일 프로그램으로 사용하는 경우에만 사용할 수 있습니다.

최고의 사무 생산성 도구

인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

kte 탭 201905


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for the above code. I'm just curious. To add a selected range of a specific worksheet too in the body of the email. I have tried using sh.range select method in your code and the email goes out but without the range probably I'm doing something wrong here or missed to add some additional codes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations