Tag: outlook

从Outlook电子邮件提取文本到Excel – 检查格式

我从电子邮件中提取文本到Excel，但我有问题的文字有特殊的字体，删除线。 解压缩之后，它的格式就像其他所有的文本一样，但是删除操作会改变它的含义。 在这种情况下，我需要使用条件，如下所示： If lines(j).Font.Strikethrough = True Then lines(j) = "Deleted " & lines(j) 有没有人有这方面的经验？ CODE的主要部分： Sub Export_Outlook_Emails_To_Excel() Dim Folder As Outlook.MAPIFolder Dim BodyMail As String Dim lines As Variant Dim row As Integer Dim DATA As Worksheet Dim j, Items As Long Set DATA = Worksheets("DATA") 'check emails – I deleted not important rows […]

在Excel中插入指向Outlook电子邮件的链接

我试图find一种方法来创buildExcel单元格中的超链接到现有的Outlook电子邮件。 用户应该能够点击单元格中的链接（也可以是带有vba代码的button），并打开引用的电子邮件。 我知道必须在Outlook（？）内打开pst文件，因此我们假设Outlook正在运行，相关的pst文件已经打开。 在search中，我find了一些导入电子邮件的方法，保存电子邮件的截图，但没有提供可点击的方式来打开电子邮件。 这是可能的，我的谷歌软弱？ 在此先感谢您的帮助。

VBA运行时错误：91

我正在尝试使用Outlook发送电子邮件到column:A每个电子邮件地址column:A在Excel工作表中，并在主体中插入一个Word文档。 我写了下面的代码，但它给了我运行时错误91.我正在使用Office 2013。 Public Sub Create_Outlook_Email() Dim OutApp As Object, OutMail As Object, OutWordEditor As Object Dim WordDoc As Object Dim wordfile As String Dim rng As Range Dim row As Range Dim cell As Range 'Create new Outlook email Set rng = Range("a2:a50") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Set OutWordEditor = […]

Excel VBA处理和转发引起“内存不足”错误的电子邮件

我希望有人可以帮助 – 我遇到了可怕的“内存不足或系统资源”的错误与运行在Excel中的一些代码和Outlook的工作; 从哪个错误发源。 简短描述是通过查看身体/主题的电子邮件列表来查看。 如果find它，它会转发电子邮件项目与主题中的参考。 MWE以下; 我不是很有经验的处理Outlook对象，但我花了近两个小时尝试不同的东西，没有运气。 我不能使用GetTable（）函数，因为它不包含正文文本数据据我所知（工作了这个 ），除非你可以添加列以包含正文文本？ 如果我只用十几个项目在新开的Outlook会话中运行它，这不是一个问题，但是我需要它在一个pop中处理数百个电子邮件。 把我的头靠在这里的墙上。 非常感谢！ Private Sub processMWE(ByVal oParent As Outlook.MAPIFolder) Dim thisMail As Outlook.MailItem Dim myItems As Outlook.Items Dim emailindex As Integer Dim folderpath As String Dim refandType As Variant Dim fwdItem Set myItems = oParent.Items folderpath = oParent.folderpath 'Starting at row 2 on the current […]

Excel 2007 VBA在对象variables中使用stringvariables值

下午好！ 我环顾四周，但是我没有find解决特定问题的任何事情，所以我会尽力解释。 眼镜： Excel 2007，VBA，Outlook 2007 好的，我一直在修改我创build的一些脚本，以便在Excel / Avaya CMS中自动生成报告。 在过去的几年中，我一直是做报告的唯一的人，所以没有必要把事情放在别人的电脑上。 但是，事情正在改变，我正在更新脚本/培训其他人使用它们。 目前，当我把脚本放在他们的计算机上时，我必须进入VBA代码并手动设置每个引用到他们自己的相对文件夹path/ outlook文件夹path。 除非我对脚本进行任何types的更改，并且必须在每台计算机上重新执行整个过程，否则无痛苦的是不够的。 所以这是我的解决scheme：在自动报告工作簿上创buildconfiguration工作表，在该configuration工作表上存储文件path，并在代码中简单地使用variables来引用configuration工作表。 这应该使得在新计算机上从configuration中设置variables一次而不必触摸任何代码行就变得容易了。 问题：午夜有数据从另一个办公室通过电子邮件发送给我们。 我们在这个办公室使用Outlook，所以我只是一直到脚本中指定的文件夹，下载附件，然后使用下载的数据作为报告。 由于每个人都设置了自己的Outlook文件夹，因此每个用户的Outlook内部path都不相同。 由于VBA正在访问工作表以从单元获取configuration信息，因此它将Outlook文件夹的path作为string值返回。 但是，outlook文件夹variables是Objecttypes的，所以它不允许我使用stringvariables作为值，即使string本身是对象所需的实际值（而不是string）。 那么是否可以将string值转换为可以在Objectvariables中使用的值？ 工作表configuration单元格值（B5） – string值 outNamespace.Folders("Mailbox – Some Guy").Folders("Reports").Folders("ImportantData") 码： 'Config tab Dim serverConfig As Worksheet Set serverConfig = Sheets("CONFIG") Dim dirOutlookData As String dirOutlookData = serverConfig.Range("B5").Value Dim outFolder As Object Set outFolder = […]

Excel vba：范围到邮件正文 – 超链接剪切

我正在使用一个修改后的Ron De Bruin的代码来调用一个带有范围的表格的Outlook邮件窗口。 在这个范围内，有一些细胞在我们公司的共同点上包含链接。 当创build的表格被插入到邮件正文中时，单元格中的超链接从一开始就以某种方式缩短，所以地址开始简单地带有两个点（字面意思）。 我想知道是否可以修改该function，以保持整个链接的地址，或者在邮件正文中插入表格之后，地址中的“..”可以通过地址的常规开始移除，这总是相同的？ Sub create_mail() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Don't forget to copy the function RangetoHTML in the module. 'Working in Excel 2000-2016 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim lastrow As Long Dim today As Date Dim copies As String Dim cell As Range ' […]

如何从Outlook VBA过程引用已命名的Excel列？

我正在处理的项目涉及访问两个Excel工作簿的几个Outlook VBA过程。 没有太多的细节，我可以使用像“.Cell（RowNr，3）”这样的RowNr是一个整数行号来访问一个单元格。 所有列都被命名，我想我应该能够在Outlook VBA过程中使用这些名称（从而确保永远不需要插入一个新的列）。 我知道如何在Excelmacros中通过名称引用列，但是无法从Outlook VBA过程中find正确的语法。

将附件图片添加到办公室16 / O365的HTML电子邮件正文中

我一直在办公室2013使用这个代码： With OutMail .Attachments.Add fName .HTMLBody = .HTMLBody & "<br><B>" & ChartName & :</B><br>" _ & "<img src='" & fName(i) & "' width='800' height='400'><br>" _ .Display End With 其中fName是png文件的完整path，Chartname只是graphics的标题。 这一直工作正常，但现在在办公室2016 / O365这个代码粘贴一个空的HTML表格到outloop电子邮件，没有graphics或图片是可见的。 任何指针如何解决这个将不胜感激？

如何打开Excel，如果尚未打开

我试图find一种方法来打开Excel使用Outlook VBA，但只有当它尚未打开。 我设法find一些在互联网上打开Excel的代码，做了更改，然后closures它，但如果Excel工作簿已经打开（它确实应用更改，但不再closuresExcel工作簿，它只是把它留在一个灰色的内部;有时它甚至不再显示在资源pipe理器中，我必须从任务pipe理器中closures它）。 我也非常感谢，如果有人能解释大部分的代码。 Public xlApp As Object Public xlWB As Object Public xlSheet As Object Sub ExportToExcel() Dim enviro As String Dim strPath As String 'Get Excel set up enviro = CStr(Environ("USERPROFILE")) 'the path of the workbook strPath = enviro & "\Documents\test2.xlsx" On Error Resume Next Set xlApp = GetObject(, "Excel.Application") If Err <> […]

VBA Excel Outlook电子邮件正文格式

我有useform自动发送电子邮件。 我想改变电子邮件的正文 – 其中一些将基于一个文本的单元格，所以它可以是dynamic的，一些将被固定在代码中。 现在 – 在运行我需要的对象的错误，我会感谢帮助。 我希望电子邮件正文中的每一行都是分开的。 Sub sendMail(ByVal mail As String, name As String, Msht As Worksheet, CCmail As Integer, CCperson As String) Dim applOL As Outlook.Application Dim miOL As Outlook.MailItem Dim recptOL As Outlook.Recipient mailSub = Msht.Range("J2") mailbody = Msht.Range("L2") Set applOL = New Outlook.Application Set miOL = applOL.CreateItem(olMailItem) Set recptOL = […]