☰

Outlook 关闭并打开时不发送电子邮件

tag-icon • tag-icon microsoft-outlook vba
Outlook 关闭并打开时不发送电子邮件

我正在修改代码以支持 Outlook。第一次打开 Outlook 时，发送电子邮件时出现问题，即它显示电子邮件而不是发送电子邮件。但从第二次开始，它会自动发送电子邮件。而且我的情况不支持 .Send。所以我使用 Sendkeys。

我已尝试 GetObject 和 createObject，但它不能解决我的问题。

请针对此问题提出任何解决方案。

提前致谢

答案1

以下是用于发送电子邮件的完整 VBScript（可在关闭和打开的 Outlook 中运行）：

Set objApp = CreateObject("Outlook.Application")
Set objMail = objApp.CreateItem(0)
Set objRecip = objMail.Recipients.Add("Test User")
objRecip.Resolve
objMail.Subject = "Test"
objMail.Save
objMail.Send
objApp.Session.SendAndReceive(False)

相关内容