求助发送工资条报错With .Item修改

excel学习123 · 发表于 2023-2-14 11:05

With .Item
.To = avntWage(i, 1)
'————收件人
.CC = "treasurer@gmail.com"
'————抄送人
.Subject = avntWage(i, 3) & "月份工资明细"
'————主题
Set objAttach = .Attachments
Do While objAttach.Count > 0
'————Do While语句删除可能存在的旧附件
objAttach.Remove 1
MsgBox objAttach.Count
Loop
.Attachments.Add strPath
'————添加新附件
.send
'————发送邮件
End With
这段代码有问题

excel学习123 · 发表于 2023-2-14 11:42

求助大神在线等

excel学习123 · 发表于 2023-2-14 12:24

excel学习123 · 发表于 2023-2-14 13:38

大神们起床了

夏天的风shh4695 · 发表于 2023-2-14 13:43

strPath = ThisWorkbook.Path & "关于企业调整职工工资的通知.docx"
改为： strPath = ThisWorkbook.Path & "\" & "关于企业调整职工工资的通知.docx"

excel学习123 · 发表于 2023-2-14 13:45

夏天的风shh4695 发表于 2023-2-14 13:43
strPath = ThisWorkbook.Path & "关于企业调整职工工资的通知.docx"
改为： strPath = ThisWorkbook.Path ...

这里需要删掉吗

夏天的风shh4695 · 发表于 2023-2-14 13:47

excel学习123 发表于 2023-2-14 13:45
这里需要删掉吗

替换掉。。。。。。。

excel学习123 · 发表于 2023-2-14 13:47

夏天的风shh4695 发表于 2023-2-14 13:43
strPath = ThisWorkbook.Path & "关于企业调整职工工资的通知.docx"
改为： strPath = ThisWorkbook.Path ...

还是无法运行 With .Item这里提示无法运行

excel学习123 · 发表于 2023-2-14 13:54

还是不行啊是With .Item这里开始无法运行

		自动登录	找回密码
密码			免费注册