你好,
我正在尝试根据间接单元格值更改(例如> 7)发送电子邮件,其中包含电子邮件附件和对我的外出邮件正文中更改的单元格的特定单元格引用。 我已经根据标准降低了间接单元格值。 但是,当我尝试设置一个变量以将单元格地址调用到我的电子邮件中时,我收到了 424 错误。 你能帮忙吗? 我觉得我很亲近。
将 xRg 调暗为范围
将 xRgSel 调暗为范围
'设置范围和目标
私人子Worksheet_Change(按目标的ByVal目标)
将 xRgPre 调暗为范围
出错时继续下一步
如果 Target.Cells.Count > 1 然后退出 Sub
设置 xRg = Range("Q2:Q43")
设置 xRgPre = xRg.Precedents
设置 xRgSel = 相交(目标,xRg)
ActiveWorkbook.保存
如果 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 调暗为范围
'设置范围和目标
私人子Worksheet_Change(按目标的ByVal目标)
将 xRgPre 调暗为范围
出错时继续下一步
如果 Target.Cells.Count > 1 然后退出 Sub
设置 xRg = Range("Q2:Q43")
设置 xRgPre = xRg.Precedents
设置 xRgSel = 相交(目标,xRg)
ActiveWorkbook.保存
如果 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
谢谢!