你好,
我正在嘗試根據間接單元格值更改(例如> 7)發送電子郵件,其中包含電子郵件附件和對我的外出郵件正文中更改的單元格的特定單元格引用。 我已經根據標準降低了間接單元格值。 但是,當我嘗試設置一個變量以將單元格地址調用到我的電子郵件中時,我收到了 424 錯誤。 你能幫忙嗎? 我覺得我很親近。
將 xRg 調暗為範圍
將 xRgSel 調暗為範圍
'設置範圍和目標
Private Sub Worksheet_Change(ByVal Target As Range)
將 xRgPre 調暗為範圍
在錯誤恢復下一頁
如果 Target.Cells.Count > 1 然後退出 Sub
設置 xRg = Range("Q2:Q43")
設置 xRgPre = xRg.Precedents
設置 xRgSel = 相交(目標,xRg)
ActiveWorkbook.Save
如果 xRg.Value > 7 那麼
致電 Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) 然後
如果結束
如果結束
END SUB
子 Mail_small_Text_Outlook()
將 xOutApp 調暗為對象
將 xOutMail 調暗為對象
將 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 = 無
END SUB
謝謝!
我正在嘗試根據間接單元格值更改(例如> 7)發送電子郵件,其中包含電子郵件附件和對我的外出郵件正文中更改的單元格的特定單元格引用。 我已經根據標準降低了間接單元格值。 但是,當我嘗試設置一個變量以將單元格地址調用到我的電子郵件中時,我收到了 424 錯誤。 你能幫忙嗎? 我覺得我很親近。
將 xRg 調暗為範圍
將 xRgSel 調暗為範圍
'設置範圍和目標
Private Sub Worksheet_Change(ByVal Target As Range)
將 xRgPre 調暗為範圍
在錯誤恢復下一頁
如果 Target.Cells.Count > 1 然後退出 Sub
設置 xRg = Range("Q2:Q43")
設置 xRgPre = xRg.Precedents
設置 xRgSel = 相交(目標,xRg)
ActiveWorkbook.Save
如果 xRg.Value > 7 那麼
致電 Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) 然後
如果結束
如果結束
END SUB
子 Mail_small_Text_Outlook()
將 xOutApp 調暗為對象
將 xOutMail 調暗為對象
將 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 = 無
END SUB
謝謝!