0
復原
投票
你好，
我正在嘗試根據間接單元格值更改（例如> 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 = ""
.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 = ""
.CC =“”
.BCC =“”
.Subject =“鉛攝入後的天數”
.Body = xMailBody
.Attachments.Add（ThisWorkbook.FullName）
.Display '或 .Send
結束
在錯誤轉到0
設置 xOutMail = 無
設置 xOutApp = 無
END SUB
謝謝！
謝謝，阿曼達！ 但是我仍然收到錯誤消息，並且提示沒有提供“調試”選項。 我對VBA相當陌生，這可能是我的縮進嗎？ 看到它對你有用。 我嘗試上傳屏幕截圖，但很難發送我的回复消息（它正在加載很長一段時間，只是一個提示）。
您現在可以嘗試將其與附件一起發布。
嗨，阿曼達，抱歉耽擱了，我確實將 End if 更改為 Exit Sub。 但由於某種原因，我無法添加 excel 文件或屏幕截圖 - 我無法回复附件。 無論如何我都無法添加 excel 文件，因為它是一個 xlsm 文件，並且不支持文件上傳。 我們可以通過電子郵件聊天嗎？
你好，
為什麼不將其保存為 zip 或 rar？
嗨阿曼達！
這是來自的 Ryan4 ExtendOffice. 感謝您發送您的電子郵件地址來幫助解決我的問題，自從發現您的精彩社區後，我打算成為一名活躍的成員，所以我希望最終解決我的文件上傳問題！
現在，請在此處查看附件。 我確實將代碼更新為“Exit Sub”而不是“End if”，但是我仍然收到沒有調試選項的錯誤。 你能建議嗎？ 也許這是我的結構或縮進。
再次感謝你的幫助！
瑞安
嗨萊恩，
已收到電子郵件。 由於可能有其他用戶有同樣的問題，我會在這裡回复。
請嘗試以下方法：
1。 打開 參數支持.
2。 檢查 Microsoft Outlook 16.0 對像庫. 注意：您可能有 16.0、15.0 等，而不是 14.0。
3.替換下面的代碼
Dim xOutApp As Object
Dim xOutMail As Object至
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem請嘗試以上3個步驟。 由於您的 vba 在我們的計算機上運行良好，因此我們很難重現該問題。 希望這個方法能幫到你！
阿曼達
- 頁：
- 1
有沒有為這個職位尚未作出回复。