我有一个使用数据库(access)中的数据生成电子邮件(outlook)的程序。我希望数据库更新,如果电子邮件已发送,但不是如果它没有发送。我正在寻找一种方法来“暂停”程序,直到用户已经处理了电子邮件,通过发送它,或通过取消它。下面是我所拥有的(这不是我想要的工作方式): Dim OutMail As Outlook.MailItemis to be run if the email is not
我们创建了一个自动打开Microsoft Outlook新邮件窗口的脚本。有些东西已经填好了。到目前为止,这是可行的:If Arguments.Count > 4 Then Set BodyObject = CreateObject("Scripting.FileSystemObject")
Set Ma
我的次要outlook帐户不会出现在通过迭代outlook.application CDispatch Session.Accounts提供的列表中。所以,我用的是“SentOnBehalfOfName”,就像建议的那样发送电子邮件。而且它可以工作,但并不像我预期的那样,因为发送的电子邮件存储在主帐户发件箱中,而不是在二级帐户发件箱中。import win32com.client as win32
outlook = win32.Dispatch('
我想“发送”一条消息给特定的收件人,但不想传递。邮件在发件箱中,但我想立即删除它。当我使用delete命令时,它会在发送之前显示它已被删除。我不想要弹出窗口,而且在退出Outlook时还会提示仍有未发送的邮件。如何清除发件箱?Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
Dim outApp As Outlook.ApplicationDim del