Tag: outlook
使用VBA将Web内容从Outlook复制到Excel
我的客户每天收到一封带有一次性访问URL的电子邮件（只能访问一次，并且只能在当天访问）。 这个url的内容是纯文本格式的.csv（实际上是tilda sv）文件，但是在这里没有关系。 然后将内容（手动）复制并粘贴到Excel工作表中，其中应用了一些（格式化）macros（以除去tildas并将数据放入单元格中）。 此外，内容的第一行很less是不相关的，即只有行5端被复制到Excel中。 我的问题是以下 – 是否有可能在Outlook中编写一个VBA 打开给定电子邮件中提供的url 从网页中复制内容（并删除前几行） 打开Excel并粘贴到那里（然后应用格式） 我发现了一些关于如何从电子邮件本身复制/粘贴内容到Excel工作表的答案，但没有设法解决如何从url/网页做到这一点。
使用outlook vba更新现有的excel文件
我试图学习自己的VBA，我试图采取一个电子邮件的正文，parsing出来，并只保存到Excel文件的数组元素。 我这样做，我的问题是，我似乎无法得到它更新文件中已有的东西。 它只是重写与新的电子邮件信息，并保存在它。 我的问题是：我的代码需要什么才能继续写入我的Excel文件，而无需摆脱已经在那里。 Sub FMK(Item As Outlook.MailItem) Const PathName = "C:\Users\carter\Desktop\fmk.xlsx" Dim arrLines As Variant, _ varLines As Variant, _ RowNext As Integer, _ xlApp As Excel.Application, _ ExcelWkBk As Excel.Workbook, _ excWkb As Object, _ excWks As Object, _ temp As String arrLines = Split(Item.Body, vbCrLf) Set xlApp = Application.CreateObject("Excel.Application") Set excWkb = […]
从Outlook地址列表vba获取pipe理器信息
我正在使用下面的代码来打开全局地址列表窗口来select列表中的联系人。 对于所选的联系人，我也想获得经理姓名。 但是，我似乎无法得到它的工作。 任何build议？ Private Sub accountManagerName_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim CDOSession, cdoAddressBook, olkRecipients, objAE On Error Resume Next Set CDOSession = CreateObject("MAPI.Session") ' Change the name of your Outlook profile as needed. CDOSession.Logon "", "", False, False Set olkRecipients = CDOSession.AddressBook(, "Global […]
在Outlook中使用与Google日历兼容的VBA满足请求
我打算在我的Excel中创build一个可以创build个人outlook会议邀请的macros，并以单个邮件中的.ics格式将邀请添加到先前包含在会议邀请中的收件人中，以便让他们select是否要邀请将其添加到他们的日历。 我有大约200个这样的邀请被发送，我使用一个谷歌邮件帐户添加到我的Outlook 2013为此。 该代码从电子表格中的表中挑选主题和收件人邮件ID（＆Mail主体，现在我已经为简单起见删除）。 我写了一个代码，这个macros的工作正常，但这有一个问题。 通过Gmail帐户发送的此类邀请会自动添加到如此订阅的Google日历中。 但是，如此创build并邮寄的这些邀请会被添加，而不会将收件人/与会者/来宾列表导入到Google日历中。 在指定的date和时间，Google日历中添加了一个事件，会议的主体被导出到事件的“说明”字段，但“客户列表”显示为空！ 然而，当我手动添加outlook的testing会议并从Outlook中发送邮件中的.ics文件时，Google日历会自动导入该事件，并将收件人列表也添加到其事件的宾客列表中。 我感到困惑的是： iCal文件的哪个属性捕获Google日历实际导入的收件人列表？ 有没有替代的代码，将iCal文件保存到磁盘，可以使用Outlook新会议窗口中的“作为附件前转”工具？ 我使用iCal文件中的VBA代码设置的提醒似乎不会影响Google日历中的会议。 我如何有效地使用这个或者这是只有Outlook认可的function？ 以下是我的代码： Sub CalendarInvite() Dim Rng As Range, strFileName As String, strRecipient As String Dim strSubject As String, strBody As String Set myoutlook = CreateObject("Outlook.Application") For Each Rng In Range("tblData[Status]") If Rng = "To be Sent" Then Set myapt = myoutlook.CreateItem(olAppointmentItem) strSubject […]
VBA打开工作簿附加到Outlook模板
有没有办法在发送邮件之前打开附加到电子邮件模板的工作簿，进行编辑和保存？ 我已经使用Set Mesg = OutlookAp.CreateItemFromTemplate("C:\Template.oft")创build了mailitem对象，我可以看到附件，但是我看不到到目前为止打开它的方法。 如果有人有什么build议，或者知道这是根本无法完成的，我全都听。 看起来像我可能不得不在发送之前保存和编辑文件…仍然打开想法，但它看起来像是根本无法通过VBA打开附件
在帐户/文件夹中创build邮件的Excel列表/日志的macros
这是我的macros。 我认为我可以理解代码，然后编辑它，并得到我想要的东西第一：macros没有任何进展根本：“编译错误：userdefined typenot defined”我甚至不知道这是什么东西:)（我使用macros现在在一个新的和emty工作簿） Sub ListAllItemsInInbox() Dim OLF As Outlook.MAPIFolder, CurrUser As String Dim EmailItemCount As Integer, i As Integer, EmailCount As Integer Application.ScreenUpdating = False Workbooks.Add ' create a new workbook ' add headings Cells(1, 1).Formula = "Subject" Cells(1, 2).Formula = "Recieved" Cells(1, 3).Formula = "Attachments" Cells(1, 4).Formula = "Read" With Range("A1:D1").Font .Bold = […]
如何通过Excel VBA代码更改通过Outlook发送的电子邮件的字体格式？
我有VBA代码，使用Excel通过Outlook发送一些电子邮件。 它将每个联系人的姓名input到电子邮件正文（亲爱的阿-），将公司名称/发票号码input主题行（公司ABC发票123），为每个联系人附上不同的文件（发票123.pdf ），将邮件标记为高度重要的，请求读取的收据，代表用于发票的辅助电子邮件帐户而不是我的个人电子邮件帐户，将BCC发送到辅助电子邮件，并且在底部添加电子邮件签名以图片。 大部分的代码（如果不是全部的话）来自这个美好的Ron de Bruin网站 。 我粘贴了很多代码来获取我的位置，不知道我是如何设法使其工作的。 我尝试了许多不同的“标签”，试图改变字体格式。 我试着改变Outlook的模板设置，并把代码输出，希望它会input“Outlook默认”字体。 我的代码中有样式标签，但没有太多的效果。 它被设置为Times New Roman Size 18。 作为Times New Roman Size 12的“Dear So-and-so”input。电子邮件正文input为Calibri 13.5。 我的签名input，无论我设置在签名设置。 我希望它是相同的字体，大小，颜色等 Sub Mail_Outlook_With_Signature_Html_1() ' Working in Office 2000-2013 Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim strbody As String Dim cell As Range Dim FileCell As […]
如何获取Outlook中任务的完成时间
我已经写了一个VBAmacros，导出在Excel中的所有完成（打勾）邮件从基于TaskCompletedDate属性的邮箱。 但是，TaskCompletedDate仅显示date时间值的date部分。 有没有办法获得时间价值？ 我正在使用Outlook 2010。
从共享Outlook日历parsing约会
我正尝试通过Excel VBA为我们会议室的会议室创build一个匿名的时间表。 源数据存储在不同的Outlook日历（每个房间都有自己的），我可以通过Outlook的“共享日历”function访问它们。 我目前遇到的问题是完全自动化数据检索过程。 我还有一切工作正常，但是，它要求用户从一个小的popup窗口手动select（当前）五个不同的日历，这是相当烦人的。 我曾尝试使用GetDefaultFolder(olFolderCalendar).Items方法，但这似乎只适用于本地日历而不是从networking（Exchange）共享的日历。 有没有办法直接解决这些房间的日历，以便我可以自动化我的过程？ 最好的祝福， daZza 这是我现在的代码，切入相关部分： Set olNS = olApp.GetNamespace("MAPI") For x = 1 To 5 Set myCalItems = olNS.PickFolder.Items With myCalItems .Sort "[Start]", False .IncludeRecurrences = True End With StringToCheck = "[Start] >= " & Quote(StartDate & " 12:00 AM") & " AND [End] <= " & Quote(EndDate & " […]
Excel到Outlook VBA预写体
我有一个不断变化的库存清单（经常新增的新增function），我正在试图编写一个可以与Outlook一起发送预先写好的电子邮件响应的子文件。 从我在网上find的信息（比如Ron de Bruin的有用的专业知识）看来，这应该是可能的，但是我一直试图找出是否有可能在电子邮件超链接点击时执行代码H栏 例如，我在第3行的第A列中有一个人的名字，第3行中的第H行的电子邮件会自动格式化为超链接，在Outlook中打开一个新的空白邮件。 我想看看是否可以应用一个macros，每次select超链接时都会自动填充主题行和正文消息。 这是我到目前为止： Sub SendEmail() Dim olApplication As Outlook.Application Set olApp = CreateObject("Outlook.Application") Dim olMail As Outlook.MailItem Set olMail = olApp.CreateItem(olMailItem) olMail.To= olMail.Subject = "Subject Line" olMail.Body = "This is the body of the e-mail" olMail.Display End Sub 我到目前为止是行不通的，因为我不确定是否需要引用作为范围的“.To =”字段（H列），或者如果我需要粘贴条件语句在那里运行基于单元格超链接被选中。
