Tag: outlook vba

Outlook邮件与Excel中：与正文文本和variables的问题

我无法使我的.body文本正常工作。 我可以得到它在Outlook中创build项目。 “To：”和“Subject”是正确的，但是正文不是。 我可以把它从“你好”包括到“以下服务行：”或包括“对y = 2到LR1”到下一个y。 我希望它包括两个。 我如何连接这两个部分？ – 解决了！ If匹配函数应该与sht3.range（“C”＆i）匹配sht1.range（“B”＆y）。 在“y”循环中，y从2变到49，而variablesi应该是恒定的，直到循环完成。 然后它应该移动到下一个我再做一遍。 这不起作用，因为正文文本包含variablesy中的所有行。 – 解决了！ Sub Test() Dim OutApp As Object Dim OutMail As Object Dim Sht1 As Worksheet Dim Sht2 As Worksheet Dim Sht3 As Worksheet Dim i As Long Dim y As Long Dim x As Long Dim LR1 As Long Dim […]

ActiveSheet.MailEnvelope

一直在试图用vba发送电子邮件，但是我遇到了邮件信封的一个不寻常的问题，并且看到了许多这个微妙的对象未解决的问题。 我通过debugging发现它试图发送下面的代码时locking，我解决的一个问题是，我需要一个范围来select。 但现在它锁起来了，因为我正在发送一个消息与从空字段。 如果我添加一个断点，手动添加字段，然后恢复一切顺利， 但我找不到适当的语法来做到这一点： .Item.From = "me@email.com" ActiveWorkbook.EnvelopeVisible = True ' On Error Resume Next With ActiveSheet.MailEnvelope .Item.To = tech .Item.Subject = "some words" .Introduction = "some more words" ActiveSheet.Range("A1:G5").Select // from line goes here .Send End With ActiveWorkbook.EnvelopeVisible = False On Error GoTo 0

将Outlook电子邮件信息导出到Excel工作簿

每次在预定系统中预留房间时，我都会收到一封自动发送的电子邮件（在Outlook中），但必须在另一个系统（需要检查每个预留以查找特定信息并通过收件箱进行search）中进行查看。 我试图确定是否有一种方法来从消息部分拉（我已经find了一些代码拉的收到的date，主题行以及读取状态，但不能确定如何拉消息正文信息我需要） 我正在运行的代码是由詹杰提供的： Sub ListOutlookEmailInfoinExcel() Dim olNS As Outlook.NameSpace Dim olTaskFolder As Outlook.MAPIFolder Dim olTask As Outlook.TaskItem Dim olItems As Outlook.Items Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Dim x As Long Dim arrHeaders As Variant Set olNS = GetNamespace("MAPI") Set olTaskFolder = olNS.GetDefaultFolder(olFolderInbox) Set olItems = olTaskFolder.Items Set xlApp = CreateObject("Excel.Application") xlApp.Visible = […]

在Outlook主题行上触发Excelmacros文件触发

如果我收到只有主题行"Run Dashboard"电子邮件，请提供一个代码，可以打开excelmacros文件。

我可以使用文件中的内容作为名称自动保存在Outlook中的Excel附件吗？

我每天都会收到电子邮件，这些邮件会告诉我前一天我网站的performance。 这些报告是一个通用的名称，我无法从源头上改变这一点。 我通过Outlook规则运行下面的脚本，只要收到具有特定条件的邮件，并且报告将以昨天的date保存到文件名中的给定位置： Public Sub Save Reports (itm As Outlook.MailItem) Dim ObjAtt As Outlook.Attachment Dim SaveFolder As String For Each ObjAtt In itm.Attachments If InStr(ObjAtt.DisplayName, ".csv") Then FileName = (ObjAtt.FileName) NewName = "System Performance " & Format(Date – 1, "DD-MM-YYYY") & Right(FileName, 4) SaveFolder = "C:\Users\Me\Documents\" ObjAtt.SaveAsFile SaveFolder & NewName End If Set ObjAtt = […]

Outlook .items.restrict使用两个filter

我正在使用一个脚本来打开电子邮件并下载附件。 现在，我可以select在最近的电子邮件中下载最新的附件： Sub CTEmailAttDownload() Const olFolderInbox As Integer = 6 '~~> Path for the attachment Const AttachmentPath As String = "C:\TEMP\TestExcel" Dim oOlAp As Object Dim oOlns As Object Dim oOlInb As Object Dim oOlItm As Object Dim oOlAtch As Object Dim oOlResults As Object Dim x As Long Dim NewFileName As String NewFileName = […]

尝试操作失败错误

我有这个预览Outlook邮件的代码。 Dim wordDoc As Word.Document '<— Dim objMail as Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) Set attach = objMail.attachments Set wordDoc = objMail.GetInspector.WordEditor 我的问题是，有时这行Set wordDoc = objMail.GetInspector.WordEditor返回一个错误说： “尝试操作失败” 这让我挂，我不知道如何处理它。 任何帮助？

尝试使用VBA从保存的.msg文件中提取Outlook附件

我试图从保存的Outlook消息中提取附件，以便从附加的Excel电子表格中挖掘数据。 消息已经被保存到.msg文件的共享文件夹中，我正努力让VBA甚至将这些消息识别为文件。 我最初试图在下面的代码中获取消息细节作为概念certificate。 一旦我有这个工作，我可以通过循环处理文件和处理附件。 我在这个网站上发现了许多代码，用于从仍然在Outlook中的电子邮件中提取附件，但是我没有访问Outlook文件夹的function，原始邮件也被删除了。 Sub ExtractExcel() Dim aExcel As Outlook.Attachment Dim stFilePath As String Dim stFileName As String Dim stAttName As String Dim stSaveFolder As String Dim oEmail As Outlook.MailItem '~~> Outlook Variables for email Dim eSender As String, dtRecvd As String, dtSent As String Dim sSubj As String, sMsg As String stFilePath = […]

将相关的excel文件附加到自动电子邮件

我已经编写了代码，以制造商名称将我的数据导出到为制造商命名的新书中。 现在我已经调整了一个电子邮件macros，以自动发送给制造商。 我希望它自动从我的文档附加我的文件 这就是我所拥有的东西，但它什么都不重视。 Sub BacklogEmail() Dim subjectLine As String Dim bodyline As String Dim tb As ListObject Dim lineCounter As Long Dim myArray1, arrayCounter As Long, tempNumb As Long Dim nameCounter As Long Dim emAddress As String ReDim myArray1(1 To 1) arrayCounter = 0 nameCounter = 1 Set tb = ActiveSheet.ListObjects("Table10") For i = […]

将工作簿中的文件和图表附加到由excel vba创build的电子邮件中

我不是Excel VBA的提前，但迄今使用本网站。 所以我设法创build了我想要发送电子邮件的表格，并创build了我想发送给读者的电子邮件，但是我被困在如何将图表附加到图片上（我已经将它创build为工作簿中新图片的图片将发送）并将相同的Excel工作簿附加到电子邮件以完成电子邮件并准备发送。 这是我得到了多less： Sub LFL_makrosu() 'select&copy&paste from sheet to another 'find last row on sheet Dim lRow As Long lRow = Cells(Rows.Count, 1).End(xlUp).Row 'first copy&paste Sheets("Sheet1").Select lRow = Cells(Rows.Count, 1).End(xlUp).Row 'USE CORRECT CELLS ON BELOW CODE Range("A2:B" & lRow).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets("Sheet4").Select 'USE CORRECT CELLS ON BELOW CODE Range("A2").Select ActiveSheet.Paste 'second copy&paste Sheets("Sheet2").Select lRow […]