수요일 29 6월 2022
  13 답글
  5.3K 방문
0
투표
취소
안녕하세요

이메일 첨부 및 내 외출 메일 본문의 변경된 셀에 대한 특정 셀 참조와 함께 간접 셀 값 변경(예: > 7)을 기반으로 이메일을 보내려고 합니다. 기준에 따라 간접 셀 값 변경이 있습니다. 그러나 내 이메일에 셀 주소를 호출하도록 변수를 설정하려고 하면 424 오류가 발생합니다. 도와주시겠어요? 나는 내가 가까이 있다고 느낀다.

범위로 Dim xRg
희미한 xRgSel 범위
'범위 및 대상 설정
개인 하위 Worksheet_Change (범위로 ByVal 대상)
범위로 Dim xRgPre
오류에 대한 다음 재개
Target.Cells.Count > 1이면 Sub 종료
xRg = 범위 설정("Q2:Q43")
xRgPre = xRg.Precedents 설정
xRgSel = Intersect(대상, xRg) 설정
ActiveWorkbook.Save
xRg.Value > 7이면
Mail_small_Text_Outlook에 전화
ElseIf(xRgPre가 아님은 아무것도 아님) 및 (Intersect(Target, xRgPre).Address = Target.Adress) 그런 다음
END IF
END IF
최종 하위
하위 Mail_small_Text_Outlook()
개체로 Dim xOutApp
Dim xOutMail을 개체로
Dim xMailBody를 문자열로
xOutApp 설정 = CreateObject("Outlook.Application")
xOutMail = xOutApp.CreateItem(0) 설정
xMailBody = "안녕하세요, 셀(들)" & xRgSel.Address(False, False) & _
" 워크시트에서 '" & Me.Name & "'는 섭취 후 3일입니다." & vbNewLine & vbNewLine & _
"리드를 검토하고 리드에게 문의하십시오." & vbNewLine & _
"감사합니다"
오류에 대한 다음 재개
xOutMail과 함께
.To = ""
.CC = ""
.BCC = ""
.Subject = "납 섭취 후 일수"
.Body = xMailBody
.Attachments.Add(ThisWorkbook.FullName)
.Display '또는 .Send

오류 발생시 0
xOutMail 설정 = 없음
xOutApp = 없음 설정
최종 하위


감사합니다!
0
투표
취소
안녕,

424 오류가 발생하면 디버그를 클릭한 다음 찾은 문제의 스크린샷을 찍으세요.
디버그.png

우리는 당신이 제공한 코드를 실행했고, 우리가 변경한 후에는 잘 작동했습니다. 경우 종료 아래에 서브 출구.
변경.jpg

그에 따라 코드를 변경한 다음 원하는 대로 작동하는지 확인하십시오.

아만다
1 년 전
·
#2843
0
투표
취소
고마워, 아만다! 그러나 여전히 오류가 발생하고 프롬프트에 "디버그" 옵션이 제공되지 않습니다. 저는 VBA를 처음 접했는데 들여쓰기가 가능합니까? 그것이 당신의 끝에서 작동하는 것을 보아라. 스크린샷을 업로드하려고 했지만 응답 메시지를 보내기가 어렵습니다(오랜 시간 동안 로드 중입니다. 단지 주의 사항일 뿐입니다).
0
투표
취소
안녕 Ryan, 취소선만 변경했습니까? 경우 종료서브 출구? (스크린샷에 오타(eixt)가 있음을 알려드립니다. 죄송합니다.)
그렇다면 코드를 적용한 Excel 파일을 첨부할 수 있습니까?

아만다
1 년 전
·
#2847
0
투표
취소
고마워, 아만다! 그러나 여전히 오류가 발생하고 프롬프트에 "디버그" 옵션이 제공되지 않습니다. 저는 VBA를 처음 접했는데 들여쓰기가 가능합니까? 그것이 당신의 끝에서 작동하는 것을 보아라. 스크린샷을 업로드하려고 했지만 응답 메시지를 보내기가 어렵습니다(오랜 시간 동안 로드 중입니다. 단지 주의 사항일 뿐입니다).


이제 첨부 파일과 함께 게시할 수 있습니다. :)
1 년 전
·
#2858
0
투표
취소
안녕하세요 Amanda, 늦어서 죄송합니다. End if를 Exit Sub로 변경했습니다. 그런데 어떤 이유로 엑셀 파일이나 스크린샷을 추가할 수 없습니다. 첨부 파일로 답장을 보낼 수 없습니다. 엑셀 파일은 xlsm 파일이고 파일 업로드를 지원하지 않기 때문에 어쨌든 추가할 수 없었습니다. 이메일로 채팅할 수 있습니까?
1 년 전
·
#2859
0
투표
취소
안녕하세요 Amanda와 ExcelFan, 늦어서 죄송합니다. End if를 Exit Sub로 변경했습니다. 하지만 여전히 어떤 이유로 Excel 파일이나 스크린샷을 추가할 수 없습니다. 첨부 파일로 답장을 보낼 수 없습니다. 엑셀 파일은 xlsm 파일이고 파일 업로드를 지원하지 않기 때문에 어쨌든 추가할 수 없었습니다. 어쨌든 우리는 이메일을 통해 채팅할 수 있습니까? 그렇게하면 파일을 전달할 수 있습니다
1 년 전
·
#2861
0
투표
취소
안녕하세요 Amanda, 늦어서 죄송합니다. End if를 Exit Sub로 변경했습니다. 그런데 어떤 이유로 엑셀 파일이나 스크린샷을 추가할 수 없습니다. 첨부 파일로 답장을 보낼 수 없습니다. 엑셀 파일은 xlsm 파일이고 파일 업로드를 지원하지 않기 때문에 어쨌든 추가할 수 없었습니다. 이메일로 채팅할 수 있습니까?


안녕하세요

zip 또는 rar로 저장하지 않는 이유는 무엇입니까?:)
1 년 전
·
#2864
0
투표
취소
불행히도 파일 형식이나 링크를 게시할 수 없습니다. 지원하기 위해 연락을 취했지만 지금은 아직 답변이 없습니다. 원인은 확실하지 않지만 페이지를 보낼 때 페이지가 로드되고 전송되지 않습니다. 여러 브라우저를 시도하고 캐시를 지우고 여러 장치를 사용했습니다./

기꺼이 도와주셔서 감사합니다! 불행히도 지금은 파일을 전달할 수 없습니다
0
투표
취소
안녕하세요, 라이언,

피드백을 주셔서 감사합니다. 파일 첨부에 문제가 없는지 확인하겠습니다. 지금은 파일을 다음 주소로 보내주십시오.

아만다
0
투표
취소
안녕 아만다!

이것은 Ryan4의 ExtendOffice. 내 문제를 해결하는 데 도움이 되도록 이메일 주소를 보내주셔서 감사합니다. 귀하의 환상적인 커뮤니티를 발견한 이후로 적극적인 회원이 될 예정이므로 결국 내 파일 업로드 문제가 해결되기를 바랍니다!

지금은 여기에서 첨부 파일을 참조하십시오. "End if" 대신 "Exit Sub"를 읽도록 코드를 업데이트했지만 디버그 옵션이 없는 오류가 계속 발생합니다. 조언해주실 수 있나요? 아마도 그것은 내 구조 또는 들여 쓰기입니다.

도와 주셔서 다시 한 번 감사드립니다!
라이언

안녕하세요, 라이언,

이메일 메시지가 수신되었습니다. 같은 문제를 겪고 있는 다른 사용자가 있을 수 있으므로 여기에 답변을 드리겠습니다.

아래 방법을 시도해 보세요.
1. 열려있는 참조.
vba 참조.png

2. 검사 Microsoft Outlook 16.0 개체 라이브러리. 참고: 16.0 대신 15.0, 14.0 등이 있을 수 있습니다.
vba-library.png

3. 아래 코드를 교체하십시오.
Dim xOutApp As Object
Dim xOutMail As Object


Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem


위의 3단계를 시도해 보세요. 귀하의 vba는 우리 컴퓨터에서 잘 작동하므로 문제를 재현하기 어렵습니다. 이 방법이 도움이 되길 바랍니다!

아만다
1 년 전
·
#2887
0
투표
취소
안녕하세요 Amanda, 저는 Microsoft Outlook 16.0 개체 라이브러리를 가지고 있지만 불행히도 이것도 작동하지 않았습니다. 문제 코드를 가리키는 새로운 오류가 있습니다. Outlook.Application이 정의된 유형이 아닌 것 같습니다. 개체를 한정하기 위해 초기 바인딩을 만들어야 합니까?

감사합니다!

(ps 다시 한 번 스크린샷/첨부 파일을 보낼 수 없습니다. 이메일을 통해 보내지만 커뮤니티를 위해 여기에 게시해도 됩니다.)
0
투표
취소
안녕하세요, 라이언,

메시지 받음. 그러나 코드가 우리 컴퓨터에서 작동하기 때문에 지금은 다른 솔루션을 생각할 수 없어 유감입니다. :(

스크린샷 정보 파일 업로드하다 아래 첨부 파일 상자를 클릭한 다음 포럼에서 지원하는 파일을 선택하시겠습니까?

아만다
1 년 전
·
#2902
0
투표
취소
Bummer :/ 나는 그것이 무엇일지 궁금합니다 - 나는 그것을 좀 더 가지고 놀아 볼 것입니다.

파일에 대해, 나는 그것을 시도했다. 나는 잘 업로드하지만 로봇이 아닌 메신저를 확인하고 답장을 누른 후. 페이지가 로드되고 로드될 뿐 전송되지 않습니다. 첨부파일 없이 잘 답변드립니다. Amanda, 첨부 파일과 책을 이메일로 보냈습니다.

이 문제가 해결되면 모두 알려드리겠습니다!
어쨌든 모든 도움에 감사드립니다 :)

라이언
  • 페이지 :
  • 1
이 게시물에 대한 답변이 없습니다.