Excel自动发送电子邮件通过Outlook随机发送

时间:2014-09-26 11:21:28

标签: excel vba email outlook

我继承了Excel用户窗体的开发,其中包含一个发送按钮,用于将用户的数据返回到中央邮箱。该工具刚刚推广到更大的社区,一些用户正在体验未发送的电子邮件。这些是随机事件,因为用户有时可以发送表单,而不是特定于表单。

该工具使用以下代码创建电子邮件:

Set ObjOL = CreateObject("Outlook.Application")
Set ObjOutMail = ObjOL.CreateItem(0)

并通过以下方式发送:

ObjOutMail.send

我们已经与一些用户进行了测试,并且从未遇到过任何问题,但我们现在有一些用户成功发送了1个或多个表单,但是一个或多个表单也失败了,他们也无法重新发送成功的形式或更多。

没有错误消息,Outlook“这可能是病毒等”确认是像往常一样被解雇(我们没有试图绕过这个),但“已发送的项目”中没有任何内容。用户还可以发送传统生成的电子邮件,因此不会发生邮箱限制。

Userform是模态的,在将三个用户字段发送到“Sheet1”时,会自行保存并自行邮寄。

真的不知道发生了什么。

感谢您的任何建议。

编辑:要添加,我们仍然在Win XP上使用Office 2003。

1 个答案:

答案 0 :(得分:0)

感谢所有的回复,使用.display属性向我展示了什么。

电子邮件是针对我认为是明确地址的,但是有一个额外的'(多用户)'修复后,我没有;实现其实是地址的一部分,DOH!。

上周,类似的邮箱由相同的地址组成,但是系统中添加了不同的后缀。这个Outlook无法解析地址,也没有发送电子邮件。

再次感谢。