Tag: outlook

运行时错误，同时打开一个经典模板: 我有一个邮件工具来创buildOutlook模板。模板在其中一个工作表中存储为OLEObjects。要使用这些模板，我要在Temp文件夹中创build它们的一个副本。之后，工具直接引用它，并用CreateItemFromTemplate打开。这只适用于我的电脑。我公司的其他人出现错误。重新创buildOLE对象的代码： Sub RecreateObject(ObjectName As String, TemplateName As String) 'creates a copy of the template stored in config in the users temp folder so that we can reference it from hard drive Dim objShell As Object Dim objFolder As Variant Dim objFolderItem As Variant Dim oleObj As OLEObject Set objShell […]

使用Outlook将电子邮件发送到通讯组列表: 我目前有完美的代码，可以将我开放的活动工作簿发送给我指定的任何人。不过，我想将工作簿发送到我的Outlook联系人中的一个名为“Daily Matrix”的分发列表中，并希望对他们进行密码pipe理。我不知道如何做到这一点，帮助将不胜感激。谢谢！ Sub Mail_Workbook_1() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "" .CC = "" .BCC = "" .Subject = "Daily Matrix" .Body = "PLEASE DO NOT DISTRIBUTE-FOR INTERNAL USE ONLY" .Attachments.Add ActiveWorkbook.FullName ' You […]

在模板之后添加常用的签名: 我有这个问题，如果我必须通过Excel VBA在我的Outlook邮件中添加签名，不包括签名。它只被模板覆盖。如果你问我如何插入模板，请点击这里，这是我以前的问题。而我现在的问题是在模板后面插入一个签名。这是我迄今为止所尝试的： Dim objMail as Object, attach as object, wordDoc as Word.Document Dim main as Worksheet, rngBody as Range set main = Thisworkbook.sheets("Main") Set objMail = objOutlook.CreateItem(0) Set attach = objMail.attachments Set wordDoc = objMail.GetInspector.WordEditor With main Set rngBody = .Range(.Range("B12:M31"), .Range("B12:M31")) rngBody.Copy End With With objMail .Subject = "Sample" […]

VBA无法使用.Find查找Outlook中的电子邮件: 我创build了一个在我的电脑上很好用的macros。当我在另一台电脑上传并运行它时，找不到任何电子邮件。 Set olApp = GetObject(, "Outlook.Application") Set olNs = olApp.GetNamespace("MAPI") Set olFldr = olNs.GetDefaultFolder(olFolderInbox) Set olItms = olFldr.Items Set olEmail = olApp.CreateItem(olMailItem) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) subj = "Test email" Set olMi = olItms.Find("[Subject] = " & Chr(34) & subj & Chr(34)) If Not (olMi Is Nothing) Then For Each […]

Excel VBA：如何发送电子邮件到Outlook中的组？: 我期待自动发送电子邮件从Excel VBA到Outlook 2013。我能够发送电子邮件给个人，并通过TITUS分类，但是当我发送到组邮件时，仍然出现以下错误。如何在VBA中select“ 发送 ”？以下是我必须发送电子邮件的代码： Dim AOMSOutlook As Object Dim AOMailMsg As Object Set AOMSOutlook = CreateObject("Outlook.Application") Dim objUserProperty As Object Dim OStrTITUS As String Dim lStrInternal As String Set AOMailMsg = AOMSOutlook.CreateItem(0) Set objUserProperty = AOMailMsg.UserProperties.Add("TITUSAutomatedClassification", 1) objUserProperty.Value = "TLPropertyRoot=ABCDE;Classification=Internal;Registered to:My Companies;" With AOMailMsg .To = "mygroup@list.company.com" .Subject = "my subject" […]

VBA MACRO – 将电子邮件地址导出到Excel: 我在这里有一个VBA代码，将所选子文件夹的电子邮件地址导出到Excel文件中。我的问题是，它只适用于我的文件夹中的一个。当我尝试使用此macros到其他文件夹时，出现“运行时错误13types不匹配”错误。我真的不知道为什么我得到这个错误。我希望有人能帮助我发现问题的来源。这是我的代码： Sub ExportToExcel() Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Dim wks As Excel.Worksheet Dim rng As Excel.Range Dim strSheet As String Dim strPath As String Dim intRowCounter As Integer Dim intColumnCounter As Integer Dim msg As Outlook.MailItem Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim itm As […]

Outlook使用主题行保存多个附件，然后递增该名称: 我花了几个星期玩VBA，我绝不是这方面的专家。我正在寻找的是这个代码的修改。 Public Sub SaveAttachments() Dim objOL As Outlook.Application Dim objMsg As Outlook.MailItem 'Object Dim objAttachments As Outlook.Attachments Dim objSelection As Outlook.Selection Dim i As Integer Dim lngCount As Integer Dim strFile As String Dim strFolderpath As String Dim strFileName As String Dim objSubject As String Dim strDeletedFiles As String ' Get the path to […]

当我发送与Excel数据链接的邮件时如何更改Outlook中的date格式？: 当我发送电子邮件时，有人可以帮我在这里格式化date吗？在单元格8我有date，但是当我发送电子邮件date将显示为10/03/2016，但我想显示date为2016年10月3日。我试着把代码设置为& Format(Date, "dd/mmm/yy")但是当我运行这个程序时，它会在10/03/2016显示今天的date。请看下面我的编码： ## "Full Name : " & Cells(i, 6) & vbNewLine & vbNewLine & _ "Nationality : " & Cells(i, 7) & vbNewLine & vbNewLine & _ "Departure/Arrival Date : " & Cells(i, 8) & vbNewLine & vbNewLine & _ "Airline : " & Cells(i, 9) & vbNewLine & vbNewLine […]

通过Outlook发送邮件 – 错误287: 我试图通过一组工作表循环，将它们中的每一个保存为一个单独的工作簿，然后通过邮件发送它们作为附件。但是，当运行下面的代码，我最终以.Send触发错误287。我有前景开放，所以这不是问题。如果我更改。发送到.Display，邮件生成为草稿，正确显示并附上正确的表单。 Sub SendWorksheetsByMail() Dim wb As Workbook Dim destinationWb As Workbook Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Set wb = Workbooks("Test.xlsm") Application.EnableEvents = False Application.ScreenUpdating = False For Each ws In wb.Worksheets 'Ignore Summary and Config If ws.Name <> "Summary" And ws.Name <> "Config" Then 'On Error Resume Next Set […]

Outlook和Excel VBA任务计划程序: 由于这个“系统”应该在本周上涨，但是对于vba脚本和代码等是一个完全新手，所以急需帮助，我不知道如何执行任务。我创build了一个excel，根据到期date生成每日电子邮件提醒，并希望使用任务计划程序将其打开。我想要的是： PC在7时45分自动启动（很可能使用BIOS电源pipe理） PC到达用户login页面。任务调度程序打开Outlook，然后是我的Excel，并在上午8点发送电子邮件。 Excel保存并closures。（这是否需要Excel中的一个单独的macros或代码？）计算机使用任务计划程序closures。从我从其他人发现的各种页面/问题中发现，必须编写一个vbs / cmd脚本，但是一些消息来源指出，在任务调度程序中运行该脚本，我不应该勾选“是否运行用户login或不“（不知道如何写他们，我知道的是，我必须写在记事本，并保存在文件名的具体扩展名）希望有人能够提供一个详细的指南关于如何执行上述任务。此外，我试图使用任务调度程序直接打开Outlook应用程序，但它似乎并没有工作。它是否也需要脚本？其他帮助我的Excel中需要：目前，我的提醒macros只在第一张纸上运行。它可以在所有的床单上运行吗？ excel的代码如下： Dim Bcell As Range Dim iTo, iSubject, iBody As String Dim ImportanceLevel As String Public Sub CheckDates() For Each Bcell In Range("c2", Range("c" & Rows.Count).End(xlUp)) If Bcell.Offset(0, 5) <> Empty Then ' if email column is not empty […]