Tag: outlook

使用VBA从Outlook输出到Excel

我有一个坐在Outlook中的VBA脚本，试图从电子邮件中获取信息并将其写入Excel文件。 我对VBA相当陌生，经过很多debugging和编辑之后，我设法find了一些大部分可行的东西，但我可以使用一些指导。 我会解释我的脚本，然后谈论我的问题。 我已经包括我的完整脚本在最后。 这里有一个简要的概述，其中包括我认为可能需要一些工作的部分。 Sub Output2Excel() Dim xlApp As Object Dim xlWkBk As Object Dim xlSheet As Object ' Setup the Excel Application Set xlApp = Application.CreateObject("Excel.Application") Set xlWkBk = xlApp.Workbooks.Open(PathName & FileName, , False) ' Open the Excel file to be updated Set xlSheet = xlWkBk.Worksheets(1) ' Loop over all the olMail items […]

无法从AddressList对象（Outlook VBA）访问AddressEntries对象

我试图访问Excel中的VBA脚本内的AddressList的AddressEntries属性。 该列表是包含存储在Exchange Server上的联系人的全局地址列表。 当我尝试运行下面的代码时，它给了我一个错误： 运行时错误“287”：应用程序定义或对象定义的错误 这是我试图执行的准系统代码。 debugging器停止在我尝试访问AddressEntries的行上。 Public Sub Test() Dim appOL As Object Dim mapiNamespace As Object Dim GAL As AddressList, allGAL As AddressEntries Set appOL = GetObject(, "Outlook.Application") Set mapiNamespace = appOL.GetNamespace("mapi") Set GAL = mapiNamespace.AddressLists("Global Address List") Set allGAL = GAL.AddressEntries 'Debugger stops here MsgBox allGAL.Count End Sub 服务器上的某些设置是否能阻止我访问列表中的条目？ 有没有其他的方式来获得参赛作品？ 我的最终目标是从列表中获取与我在Excel文件中的电子邮件地址列表相对应的条目，并检查每个条目是否在Phone Number（电话号码）属性中列出了一个工作电话号码。 […]

从Excel中将单元格的范围复制到Outlook中的电子邮件正文

如何使用VBA将Excel中的一系列单元格复制到Outlook中的电子邮件正文中（而不是将Excel文件作为附件添加）。 我只需要将内容作为Outlook邮件的主体。 任何人可以帮我编写这个使用macros？

方法通过excel在非默认日历中添加约会

我试图添加约会到Outlook通过与VBA的Excel和所有好的时候，我将约会添加到默认日历，但我不知道方法将此约会添加到Outlook中的另一个日历。 下一个代码是默认日历： 子约会（） Const olAppointmentItem As Long = 1 Dim OLApp As Object Dim OLNS As Object Dim OLAppointment As Object On Error Resume Next Set OLApp = GetObject(, "Outlook.Application") If OLApp Is Nothing Then Set OLApp = CreateObject("Outlook.Application") On Error GoTo 0 If Not OLApp Is Nothing Then Set OLNS = OLApp.GetNamespace("MAPI") OLNS.Logon Set […]

Excel VBA发送电子邮件

我想要一个macros在Outlook中发送excel文档作为电子邮件的正文。 我试图录制一个macros，并发送它，但没有写任何代码。 我将创build一个batch file，在预定时间打开excel，我希望我在excel中运行的程序能够发送标签“Assembly”，“Lam”，“Finish”和“MW”作为邮件正文在outlook。 这甚至有可能吗？

在Outlook中使用VBA与Emojis发送文本

我有一些VBA代码，用于将Outlook中的文本发送给我的项目团队成员。 对于一些背景：对于非AT＆T用户，我们没有任何问题通过将人员号码全部插入到Outlook电子邮件的收件人字段中来从Outlook发送文本消息。 但是，所有AT＆T用户都将收到文本作为群组消息，这是我们想要避免的。 非AT＆T用户在我们发送群组时正确接收个别文本。 我们编写了一些VBA代码来循环使用AT＆T号码的电子表格，以便Outlook根据AT＆T号码发送一封电子邮件。 这对我们来说工作得很好，但是，我们希望在我们发送的文本中添加一些表情符号。 我做了很多谷歌search和searchstackoverflows的问题，我似乎无法find任何代码为此目的而build。 当谈到VBA时，我也是一个完整的noob，而且我把这个解决scheme拼凑在一起，远没有从同事的帮助和通过互联网上的线程阅读。 这个关于emojis的东西给了我足够的麻烦，我想我会分解并提交这个post。 作为参考，这里是我的代码： Sub EmojiTest() Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim MobileNumber As String ' Create the Outlook session. Set objOutlook = CreateObject("Outlook.Application") Set xlApp = CreateObject("Excel.Application") 'Grab list from Excel Set xlAtt = xlApp.Workbooks.Open("C:\Users\Username\Desktop\Spreadsheet with AT&T numbers.xlsx") xlAtt.Activate LastRow = […]

从Outlookmacros打开Excel时，不存在现有的macros

我在Outlook中有一个macros，我打开一个保存在桌面上的Excel文件。 一旦文件被打开，我想运行一个我用excel编写的macros，但是我的excelmacros都不可用。 每当我用其他方式打开excel时，macros都是可用的，并且当我通过outlook vba打开excel时，macros被启用。 我的问题是，当我通过Outlookmacros打开Excel时，如何使这些macros可用？ 请参考下面的代码。 'Pre:None 'Post:Excel will have been opened, and the macro "CreatePowerPoint()" ' will have been run on the excel document Sub Gimba() Dim xlApp As Object, xlWkb As Object 'open excel Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True ' can be False if you do not wont see reaction, ' […]

使用VBA将所有可见（格式化文本）从Excel复制到Outlook？

使用VBA将所有可见（格式化文本）从Excel复制到Outlook？ 请通过outlookfind下面的代码发送电子邮件。 不过，我想用下面的代码复制下面的select。 我不希望创build一个表格作为HTML，而只是复制所有可见？ Sub EmailRep() Dim Mailbody As Range Application.DisplayAlerts = False Dim Outlook As Outlook.Application Set Outlook = CreateObject("Outlook.Application") Dim outmail As MailItem Set outmail = Outlook.CreateItem(0) Set Mailbody = ActiveWorkbook.Worksheets("Dashboard").Range("A1:F30") Mailbody.Copy With outmail .To = "abc@xyz.com" .Subject = "All Open" .Body = "This is Test Email" .Display .Send End With Set Outlook […]

用VBA发送Outlook电子邮件的时间不会在第二天发送？

我试图做的是发送一个电子邮件使用VBA在Excel中虽然前景，但发送date/次第二天约八点半。 下面的代码，会发送一个电子邮件罚款，即使当我的工作站被locking，它甚至会发送一个具有发送发送时间，但似乎当我把它设置为第二天8:30他们只是留在我的发件箱，直到我打开他们我甚至可以打开它们，在打仗的时候打开发送，他们会发送罚款，或之后，他们将发送imediatly。 传入的deferedtimevariables是一个string，格式为“dd / mm / yyyy hh：mm：ss”，例如“15/10/2010 08:30:00” Sub Send_Outlook_Email(Addresses, attach, strSubject, strBody, defertime) Dim objOL As Outlook.Application Dim msg As Outlook.MailItem Set objOL = New Outlook.Application Set msg = objOL.CreateItem(olMailItem) Dim d As Date strEmail = "" For i = 0 To UBound(Addresses) strEmail = strEmail & Addresses(i) & "; " Next strEmail […]

通过Outlook 2010 C＃加载项访问Excel 2010

我编写了一个Outlook 2010加载项，用于parsing电子邮件正文中的数据。 目前，我将数据写入.CSV文件，然后打开Excel工作簿，该工作簿会自动导入数据。 我想跳过.CSV并在Add-In中直接打开Workbook并写入数据。 我正在使用.NET 4.0。 和VS2010 Outlook加载项使用Outlook 14.0库。 当我尝试包括Excel 14.0库的引用时，编译器给我一个重复的Office.dll错误。 互联网search没有提供任何解决问题后的3天的答案。 这一个让我难住！ “帮助这里？ ： – / 这是我的加载中的代码:(希望我正确格式化，这是我的第一篇文章） using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Diagnostics; using System.Reflection; using System.Windows.Forms; using System.Xml.Linq; using Outlook = Microsoft.Office.Interop.Outlook; using Office = Microsoft.Office.Core; public partial class ThisAddIn { Outlook.Explorer currentExplorer = null; private void ThisAddIn_Startup(object sender, […]