Tag: outlook

是否有可能开发Office 365（由于新的365混淆）: 我甚至不确定是否有可能。之前，我一直在deviseOutlook和Excel的附件（使用VSTO和VBA）。现在，我的公司进入了Office 365的思维，我们拥有所有的在线环境，根本没有本地的软件，严格的只有networking客户端的方式。它有它的优点。但缺点是支持不知道如何工作（除了告诉我们点击设置和寻找选项，感叹）。所以，我想知道是否有可能开发和以某种方式上传我自己的定制（注意，我们在云中没有服务器 – 一切都以SAS为基础）。假设我想：将Outlook中的列表中的某个发件人的所有电子邮件标记为黄色背景在Word文本块中突出显示“ 驴 ”这个词的每一个出现。它是否可行？我已经google了，但是我只能看到有一个API，我们需要在自己的服务器上运行。我只是在困惑自己吗？

MailItem发送无效的使用: 背景：这里的问题提供了进一步的解释。在这种情况下，我想知道为什么如果我将电子邮件设置为对象我在MailItem.Sent属性中出现“属性的无效使用”错误。问题通过向项目添加Outlook引用：代码错误使用属性（.Sent）无效： SetEmailAsObjectCode Dim olApp As Object: Set olApp = CreateObject("Outlook.Application") Dim EmailToSend As Object Set EmailToSend = Nothing Set EmailToSend = olApp.CreateItem(0) With EmailToSend On Error Resume Next Call .Sent If Err.Number = 0 Then ' 4. If Err.Number = 0 Cells(1,1).Value = "ErrorOutLookTimeout: Email not sent" Else ' […]

检查Excel是否打开（从另一个Office 2010应用程序）: 这个问题从我在这里问的一个先前的问题继续。我正在使用build议的修复程序来检查一个Excel文件是否从Outlookmacros（Office 2010）本地打开，但没有按预期工作。这是我的代码可能失败。 Public Sub UpdateFileIndex(ByVal FullFilePath As String, ByVal DocNo As String) Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.WorkSheet On Error Resume Next Set xlApp = GetObject(FullFilePath).Application Debug.Print "Error = " & Err If Err.Number = 0 Then ' Workbook is open locally ' Do stuff ElseIf Err.Number […]

在Outlook 2013中安排电子邮件在每周开始时发送: 我想发送一个更新的Excel表 – 我星期五更新发送 – 在本周开始（下星期一）。我不知道我怎么能：在Outlook中安排周一上午9点发送重复发送的电子邮件有没有办法让我的前景抓住我的电脑上指定的文件夹我更新的Excel并发送出去？

如果电子邮件主题行以某些值开始，则请执行某些操作: 这行代码有什么问题？抛出运行时错误“13”，types不匹配。 Dim mail As Outlook.MailItem If mail.Subject Like "VEH" & "*" Or "MAT" & "*" Then 试着说电子邮件的主题是以“VEH”还是“MAT”开头，然后做一些事情。

Excel VBA – 想要最小化一个内置的对话框: tl，dr：我可以使Application.Dialogs（xlDialogSendMail）.Show对话框可以最小化吗？程序：我有一个解决scheme，自动创build一个文件，编译一个电子邮件，并附加文件。用户可以查看并select发送电子邮件或closures而不发送。问题：问题在于有些用户想要将内容复制/粘贴到自动编译电子邮件的正文中。这是不可能的，原因有两个：编译电子邮件的例程使用剪贴板。该对话框不允许用户最小化（以便他们可以在编译电子邮件后复制内容）。潜在的解决scheme：在电子邮件编辑过程中不要使用剪贴板。我宁愿不这样做，因为它需要适度的代码重新编码。调用Outlook对象库来创build一个电子邮件。我宁愿不要因为这个工具分发给大约110人，而且Excel和Outlook的版本不同，（Outlook Library）的兼容性问题也会猖獗。在电子邮件编辑例程之后pipe理剪贴板，使最后一个用户创build的“复制”再次处于活动状态。这个解决scheme似乎可行但不理想。允许内置对话框为模态/可最小化，以便用户可以在编译后复制其内容。这个解决scheme似乎最好任何答案/想法/指导非常感谢！

任何人有一个解决scheme与保存和Outlook添加发送错误？: 我不知道这是否可以通过编程方式修复，但我有一个Outlook插件下面的问题。重现： 1) Create a new Outlook add in 2) Add a ribbon to the solution 3) Set the RibbonType to Microsoft.Outlook.Mail.Compose 4) Run the solution 5) Open a workbook in Excel 6) Click File > Save and Send > Send as Attachment > Then send or close the mail 7) Click file Save As […]

有没有办法阻止在Outlook自动解决？: 我通过自动化excel发送电子邮件发送电子邮件，并设法绕过使用sendkeys有关病毒的烦人的警告消息（检查员在调用sendkeys之前激活）。现在我有时会收到有关允许访问联系人的消息。我有收件人的电子邮件地址，不需要访问联系人，但Outlook自动parsing踢，然后popup一个允许访问联系人出现。这没有5秒延迟，但仍然阻止系统完全自动化。我试图避免使用第三方工具，如赎回，我想知道如果有人已经find一种方法来closuresautoresolve。我已阅读其他网站上的post，build议closures自动填充function并自动进行名称检查，但outlook在发送邮件时仍会尝试parsing地址。任何指针会很乐意收到。编辑24/08/13 我听说，如果您使用的是Outlook 2007及更高版本，并且安装了Microsoft认可的病毒扫描程序的正确安装的系统，您将看不到该消息，但我无法控制用户计算机上的程序安装。我试过的代码包括 Function Mailit(byval sMessageTo as String, byval sSamplerCenter as String, byval sFileSpec as String) Dim olApp As outlook.Application Dim objMail As Outlook.MailItem Dim blnOLOpen As Boolean On Error Resume Next Set olApp = GetObject(, "Outlook.Application") blnOLOpen = True On Error Goto 0 If olApp Is […]

从Excel VBA中将签名插入到Outlook电子邮件中: 我正尝试使用VBA for Excel自动化一些电子邮件。到目前为止，一切都很好，除了试图保持我的签名在电子邮件。一旦你告诉VBA创build一个新的电子邮件，它将已经包含你的默认签名。这可以看出，如果你尝试Outmail.Display 。但是，如果您覆盖.HTMLBody属性，它将被删除。我简单的尝试是将.HTMLBody的内容保存为signature （string），然后将其重新分配给.HTMLBody ，以便.HTMLBody进行testing。但是由此产生的电子邮件将无效签名。代码复制并重新插入签名： Dim myOlApp As Outlook.Application Dim MyItem As Outlook.MailItem Dim signature As String Set myOlApp = CreateObject("Outlook.Application") Set Outmail = myOlApp.CreateItem(0) signature = Outmail.HTMLBody Outmail.HTMLBody = signature Outmail.Display 显示签名被自动插入的代码： Dim myOlApp As Outlook.Application Dim MyItem As Outlook.MailItem Set myOlApp = CreateObject("Outlook.Application") Set Outmail […]

扫描电子邮件的非默认Outlook收件箱？: 我正在使用以下vba代码，检查具有特定主题标题的任何电子邮件。问题是它检查我的默认outlook收件箱文件夹，当我需要它来检查我的其他电子邮件帐户的收件箱NewSuppliers@Hewden.co.uk 有人可以告诉我如何做到这一点？提前致谢 Sub Macro1() Set olApp = CreateObject("Outlook.Application") Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim myItem As Outlook.MailItem Dim myAttachment As Outlook.Attachment Dim I As Long Dim olMail As Variant Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items Set olMail = myTasks.Find("[Subject] […]