안녕하세요
이메일 첨부 및 내 외출 메일 본문의 변경된 셀에 대한 특정 셀 참조와 함께 간접 셀 값 변경(예: > 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 = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "납 섭취 후 일수"
.Body = xMailBody
.Attachments.Add(ThisWorkbook.FullName)
.Display '또는 .Send
끝
오류 발생시 0
xOutMail 설정 = 없음
xOutApp = 없음 설정
최종 하위
감사합니다!
이메일 첨부 및 내 외출 메일 본문의 변경된 셀에 대한 특정 셀 참조와 함께 간접 셀 값 변경(예: > 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 = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "납 섭취 후 일수"
.Body = xMailBody
.Attachments.Add(ThisWorkbook.FullName)
.Display '또는 .Send
끝
오류 발생시 0
xOutMail 설정 = 없음
xOutApp = 없음 설정
최종 하위
감사합니다!