Excel - 공유 통합 문서가 업데이트되면 메일로 알림
발행물
Excel 통합 문서를 네트워크 드라이브에 저장하고 여러 사용자가 사용했습니다. 누군가 Excel 시트를 업데이트 할 때마다 알림을 (메일로) 보내 줄 매크로가 필요합니다. 이것이 어떻게 구현 될 수 있는가?해결책
이 매크로는 통합 문서가 저장 될 때마다 자동으로 모든 주소로 전자 메일을 보냅니다.Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, _부울로 취소)
희미한 답변 문자열로
answer = MsgBox ( "여기에 텍스트를 저장하여 저장하려고하거나"vbYesNo "를 저장하지 않으려면 해당 상자의 제목을 입력하십시오.")
대답 = vbNo이면 취소 = True
대답 = vb 예 그렇다면
'열린 전망 유형 물건
OutlookApp = CreateObject ( "Outlook.Application") 설정
OlObjects = OutlookApp.GetNamespace ( "MAPI") 설정
newmsg = OutlookApp.CreateItem (olMailItem) 설정
'수신자 추가
'newmsg.Recipients.Add ( "여기에 이름")
newmsg.Recipients.Add ( " ")
'제목 추가
newmsg.Subject = " 자동 이메일의 제목 줄 "
'시체 추가
newmsg.Body = "여기 자동 이메일 본문"
newmsg.Display '디스플레이
newmsg.Send '메시지 보내기
'보낸 메시지의 형태를 알려라.'
MsgBox "여기에 확인 상자 테스트 삽입",, "확인 상자 제목"
끝면
'문서 저장
'Me.Worksheets.Save
End Sub
이 팁을 주신 Shark2000br에게 감사드립니다.