Tag: outlook

如何find具体的主题，并复制邮件正文中的具体内容: 我经历了许多Outlook论坛，无法find正确的代码来满足我的要求。我有群组邮箱，我们经常收到邮件与主题行 "Request ID 691941: Call Lodged" ，这里是691941随着请求进入邮箱，并保持不变。我想要的是我的macros应该保持阅读组邮箱，只要它看到一个新的邮件，只有主题行包含“请求ID xxxxxx：呼叫寄存”其余邮件可以忽略从邮件正文应该只复制这些领域的优秀。 i）请求ID 691941（在这里只有691941应该被复制到Excel） ii）严重性级别：Sev2（在这个只有Sev2应该被复制到Excel） iii）产品：FINCORE（在此只有FINCORE应复制到Excel） iv）客户：FINATS（在此只有FINATS应复制到Excel） v）date和时间：当这封邮件收到date和时间在Excel中以指定的列复制。我有下面的代码，但在第12行和第46行给出了错误 Sub Test() Dim myFolder As MAPIFolder Dim Item As Variant 'MailItem Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlSheet As Object 'Excel.Worksheet Dim xlRow As Long Dim Keys Dim Lines() As […]

如何使用Excel VBA在Outlook中指定嵌套的文件夹: 我需要使用Excel VBA在Outlook中指定一个嵌套文件夹的帮助。我将发布我在下面使用的代码。我能够指定“收件箱”文件夹，但是当我尝试指定“收件箱”文件夹内的文件夹时，代码将返回“没有这样的文件夹”消息。有谁知道这是为什么发生在我身上？如果是的话，我该如何解决？ Option Explicit Sub HowManyEmails() Dim objOutlook As Object, objnSpace As Object, objFolder As Object Dim EmailCount As Integer Set objOutlook = CreateObject("Outlook.Application") Set objnSpace = objOutlook.GetNamespace("MAPI") On Error Resume Next Set objFolder = objnSpace.Folders("NoctalkSW").Folders("Inbox") If Err.Number <> 0 Then Err.Clear MsgBox "No such folder." Exit Sub End If EmailCount […]

使用Excel VBA从Outlook文件夹中提取电子邮件数据: 使用基于variables（Excel中的值/命名范围）进入Outlook中指定文件夹的Excelmacros，并从指定文件夹（To：field，Subject，..等）中的电子邮件中提取数据。除了电子邮件的“主题”和“大小”数据之外的任何部分，代码都可以正常工作。如果我尝试使用与“主题”或“大小”编码相同的方法拉入“收件人”数据，则会出现“运行时错误438”：对象不支持此属性或方法错误。以下是我到目前为止， Sub FetchEmailData() Dim appOutlook As Object Dim olNs As Object Dim olFolder As Object Dim olItem As Object Dim iRow As Integer 'Get/create Outlook Application On Error Resume Next Set appOutlook = GetObject(, "Outlook.Application") If appOutlook Is Nothing Then Set appOutlook = CreateObject("Outlook.Application") End If On Error GoTo 0 Set olNs […]

Outlook到Excel VBA覆盖以前的数据: 我在论坛上发现了一个excelmacros，但是我无法修复这些问题，因为我真的不知道我在寻找什么来解决这个问题。首先，我将解释我想要做什么，然后粘贴我正在使用的VBA，以便做我想做的事情。我希望outlook只是将我的电子邮件的特定部分复制到特定的单元格。我想要的电子邮件部分将是“000000”或“100000”。我想让它进入B17并覆盖之前的数据。目前，我正在将整个电子邮件的数据复制到之前复制的数据行的下面，我似乎无法改变它的位置（现在它进入A1并垂直下降）。每次收到电子邮件时，Excel都希望打开和closures，这对我正在做的事情并不好。我希望这个工作表保持打开状态，但只要从outlook中input任何数据后保存即可。这张表将作为一个远程桌面进行监控，所以人们可以直接进入屏幕，并且说这是最新的信息，而不用去查找它（大多数使用这个远程桌面的人不会是熟悉我们的服务器，所以不知道在哪里find它，以及我们实际上并不希望人们窥探我们的服务器！）。无论如何，这是代码： Const xlUp As Long = -4162 Sub ExportToExcel(MyMail As MailItem) Dim strID As String, olNS As Outlook.NameSpace Dim olMail As Outlook.MailItem Dim strFileName As String '~~> Excel Variables Dim oXLApp As Object, oXLwb As Object, oXLws As Object Dim lRow As Long strID = MyMail.EntryID […]

从Excel的Outlook启动一个空白的电子邮件: 我试图看看如何在一封空白的电子邮件中添加大约50多个电子邮件？下面是我的代码（删除所有电子邮件），但是当我添加所有的电子邮件到第二行，我的button失败。 Sub Email() 'Set a Reference to the Microsoft Outlook XX.X Object Library Dim oLook As Object Dim oMail As Object Set oLook = CreateObject("Outlook.Application") Set oMail = oLook.CreateItem(0) With oMail .To= "somebody@gmail.com,somebody@gmail.com,somebody@gmail.com,somebody@gmail.com,som ebody@gmail.com,somebody@gmail.com,somebody@gmail.com" .CC = "somebody@gmail.com" .Subject = "Generic Subject" .Display End With Set oMail = Nothing Set oLook = Nothing End Sub

分析Outlook电子邮件和导出到Excel VBA: 我目前正在编写一个在Microsoft Outlook中运行的VBAmacros脚本，它应该parsing来自电子邮件的关键信息并将它们存储到Excel电子表格中。现在，我被困在parsing和提取我想要的逻辑。这是一个电子邮件的简短例子，需要提取的信息，并保存到Excel中，以黄色（X是大写或小写字母，＃是数字）这里是Excel布局和我当前的代码发生了什么，没有什么是除了标题popup！这是我目前的代码： Sub Extract() On Error Resume Next Dim messageArray(3) As String Set myOlApp = Outlook.Application Dim OlMail As Variant Set mynamespace = myOlApp.GetNamespace("mapi") 'Open the current folder, I want to be able to name a specific folder if possible… Set myfolder = myOlApp.ActiveExplorer.CurrentFolder Set xlobj = CreateObject("excel.application.14") xlobj.Visible = True […]

以编程方式将Excel图表/范围粘贴为电子邮件: 如何在电子邮件中将一系列单元格和图表粘贴为增强型元文件？我有这个代码： Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .Display End With Signature = OutMail.HTMLBody With OutMail .To = "me@gmail.com" .CC = "me@school.edu" .Subject = Date & " is Today's date" .HTMLBody = emailBody & vbNewLine & RangetoHTML(Range("V9:AX89")) & "Chart 1" & RangetoHTML(Range("V126:AA202")) & chart3 & RangetoHTML(Range("V210:AX222")) & vbNewLine & "This message […]

在Outlook VBA中下标超出范围错误: 下面的代码从Excel工作表中获取值并通过Outlook发送邮件。代码在Outlook VBA中完成：Option Explicit Sub Sendmail() Dim olItem As Outlook.MailItem Dim xlApp As Excel.Application Dim oApp As Outlook.Application Dim xlBook As Excel.Workbook Dim xlSht As Excel.Worksheet Dim WSTbl As Excel.Worksheet Dim sPath As String Dim iRow As Long, I As Long, J As Long, K As Long Dim Signature As String Dim sBody As String, […]

通过Excel VBA发送电子邮件一次一个: 我正在使用MS Excel和Outlook 2013.我试图自动化一个Excel电子表格，使用Outlook将5封电子邮件发送到指定的地址。诀窍是我希望每条消息一次显示一条消息，并且只有在用户点击发送或closures消息时才会转到下一条消息。这是我到目前为止： Sub Send_Emails() Dim OutApp As Object: Set OutApp = CreateObject("Outlook.Application") Dim OutMail As Object: Set OutMail = OutApp.CreateItem(0) 'Send Email With OutMail .to = "john.doe@mycompany.com" .Subject = "This is the Subject" .Body = "This is message" .Display End With On Error Resume Next: OutMail = Nothing OutApp = Nothing End […]

将焦点设置回Excel，Mac VBA 2016: 我目前在Excel 2016 for MAC 2016中使用以下VBA代码： Sub MailWorkSheet() Dim SourceWb As Workbook, DestWb As Workbook, sh As Worksheet Dim strbody As String, TempFileName As String If Val(Application.Version) < 15 Then Exit Sub Application.Calculation = xlCalculationManual Application.DisplayAlerts = False 'Check if the Script File is in the correct location If CheckScript(ScriptFileName:="ExcelOutlook.scpt") = False Then MsgBox "Sorry the […]