Tag: outlook

Outlook电子邮件正文到Excel

我正在尝试将所有电子邮件的正文输出到一个excel文件。 下面的代码是我正在使用的： Dim appExcel As Excel.Application Dim wkb As Excel.Workbook Dim wks As Excel.Worksheet Dim rng As Excel.Range Dim strSheet As String Dim strPath As String Dim intRowCounter As Integer Dim intColumnCounter As Integer Dim msg As Outlook.MailItem Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim itm As Object strSheet = "Test.xlsm" strPath = […]

如何通过VBA代码按主题将电子邮件从Outlook传输到特定的文件夹？

我有2列在Excel中。 第一列是电子邮件的主题，第二列是具有特定主题的电子邮件必须移到的文件夹。 比如这两列： Subject Folder A 1 B 2 C 3 所以，当我得到一个主题为“A”的电子邮件，那么它必须移动到文件夹1.所以我的问题是我怎样才能使代码在Excel表中search邮件必须移动到哪个文件夹（我只需要这部分代码）。 我不能在网上find任何关于它的东西。

将Outlook日历导出到Excel以将该工作表用作填充另一个表的数据

背景：我们有一个每周一次的会议，我们都坐下来，把我们的时间表，并手动input到一个主Excel表单。 这不方便，耗时且效率低下。 我们想自动化这个过程。 我们需要： Outlook日历（共7个） – >主Excel表格 – >会员日程表Excel表格 outlook需要： 我们需要将所有7个Outlook日历放入一个Excel表格中。 我们希望星期五每星期发生一次。 Excel工作表需要拥有所有者，类别，主题，开始date，结束date，与会者的variables（这已在下面的代码中） 下面的代码需要被编辑到自动而不是手动的地方。 目前，我们必须手动select代码在日历上绘制的date。 我们希望它是每个星期五晚上的自动化过程。 此外，我们有一个分类系统来说明文件是否是保密的。 这在试图保存时会导致代码的问题，因为它不能告诉程序该做什么。 这是一个小问题，我们可能可以解决，但也会很好，让它自动化。 大师Excel表格需求： 这7个日历需要导入到这张表中 上面提到的variables应该是列 下面的代码做得很好，但是如前所述，我们需要自动化 会员计划Excel工作表： 这个Excel工作表中有一个按date和月份分组的成员名单。 例： 我们需要根据excel表格的标准来填写这个excel表格 一个。 例如：如果Person1的假期计划于10/04/2017至10/10/2017，那么我们需要在excel工作表内为那个人填写一个“V”的对应框。 该表需要满足的标准是： 一个。 活动date匹配在两张纸上 湾 日历的所有者匹配人员（这将必须通过关键字search…例如：会员日程表中的第一个最后一个Excel工作表将在主Excel工作表上显示为“first.last@email.com \ calendar”。） C。 在主表单主题框列中查找某些关键字（即“假期”，“个人”等等，我们将设置这些关键字），以确定特定date和人添加的是假期，个人日，半天休假等。这个命令应该用适当的符号填写表格，以表明它是哪一天 d。 如果一个事件包含两个或两个以上的人员，那么该列应该是黄色的，并在“重大事件/会议”中填写事件的名称 标准需要返回与正确的人，date和事件相对应的正确的代码 如果一个事件超过一天，master excel将只有开始date和结束date，我们需要在中间的所有日子用正确的符号突出显示。 到目前为止，我所做的代码是： =IF(AND(ISNUMBER(SEARCH("dakota.mccarty",[Macros.xlsx]Sheet1!$A:$A)),(K$3=[Macros.xlsx]Sheet1!$D:$D),(COUNTIF( [Macros.xlsx]Sheet1!$C:$C, "**vacation**"))), $B$15, "0") 这将search假期是否在主题，并返回一个“V” 正如你所看到的，它的漫长，只有一件事… 这是从Outlook到Excel的日历的代码：它的工作原理，但不是自动的。 Sub ExportAppointmentsToExcel() 'On […]

使用Java尝试通过Outlook发送时，文件格式没有得到明确定义

我正在使用此代码通过使用Java的Outlook发送Excel文件。 excel是通过另一个Java代码生成的。它已经被正确地生成了。 当我使用这个代码，然后收件人收到未定义的格式附件。请帮助 try { msg.setFrom(); java.util.Date date=new java.util.Date(); fromAddress = new InternetAddress(from); msg.setFrom(fromAddress); //msg.addRecipient(Message.RecipientType.CC, to); msg.setSubject("For Testing Purpose "+date); //msg.setSentDate(new Date()); msg.setText("Attachment"); /* * ************************Test for * attachment************************* */ String fileAttachment = "D://testing.xlsx"; // create the message part MimeBodyPart messageBodyPart = new MimeBodyPart(); MimeBodyPart attachmentBodyPart = new MimeBodyPart(); String bodytext = "Hi,<br>"; bodytext = […]

从Outlook电子邮件中提取数据到excel

我每天有200封电子邮件，语法如下： Hi, These are our clients. 548628797 FV THD EHSI 34215564824 JUAN CARLOS CORENDA ALVARES 1 31,43 243234133 FV THD EHSI 752520934982 JUAN CARLOS CORENDA ALVARES 2 2,8 2340291438 RFR WER IRJF 323442342312 CARLITO HIMAT 3,00 324 EHTF TGS HKTY 32423 WILLIAM TARING 1,2 Thank you! 我是否提取“这些是我们的客户”之间的界限 和“谢谢你！” ？ 一些电子邮件只有1行，其他电子邮件有20或更多。 或者更好地从第4行提取到第1个结尾？ 在Excel中，如果我粘贴的行名称将被分隔在不同的单元格。 我努力了： =IF(COUNT(FIND({0,1,2,3,4,5,6,7,8,9},J2))>0, K2&" […]

如何在Outlook中收到新邮件后运行Excelmacros？

我想运行一个Excelmacros，当“主题”的电子邮件发送到我的收件箱。 我在Outlook的“pipe理规则和警报”中设置了一个脚本。 当我收到一个邮件与“主题”macros没有发生任何事情。 Sub Test(mail As MailItem) Dim ExApp As Excel.Application On Error Resume Next Set ExApp = GetObject(, "Excel.Application") If Not ExApp Is Nothing Then ExApp.Run "'C:\Users\Desktop\Production v2.7.1.xlsm'!Main_function_Auto" End If End Sub

运行时错误462 – 从Excel中删除Outlook约会

下面的代码删除Outlook默认日历的子文件夹中的约会。 我已经注释掉提供运行时错误462的行：“远程服务器机器不存在或不可用”。 我可以改变这个代码来解决这个错误吗？ 感谢您的任何指导。 Public Sub DeleteAppt() Dim olApp As Object 'Outlook.Application Dim olNS As Object 'Outlook.Namespace Dim olAptItemFolder As Object 'Outlook.Folder Dim olAptItem As Object 'Outlook.AppointmentItem Dim i As Long Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.Session Set olAptItemFolder = olNS.GetDefaultFolder(olFolderCalendar).Folders("TestCal") ''''For i = olAptItemFolder.Count To 1 Step -1 Set olAptItem = olAptItemFolder.Items(i) […]

从Excelmacros会议邀请 – 没有身体，设置为约会

我试图创build一个vbamacros，它会生成一个使用工作表中variables数据的会议邀请。 我的第一个问题是，它只作为约会开放，而不是作为与被列出的被邀请者会面（但是，如果我点击“邀请与会者”约会，他们预先填充）。 我的第二个问题是，我所需要的信息在身体不显示。 下面是代码，任何人都可以协助？ Sub Consolidation_Invite() '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 objMyApptItem As Object Dim recipients As Range Set rng = Nothing On Error Resume Next 'You can use a fixed range or […]

从Excel发送电子邮件警报到Outlook

我想从Excel发送testing邮件到Outlook，但是我收到错误消息：运行时错误287在以下行中： OutMail.Send 请在下面find我的代码： Sub sendds() Dim OutMail As MailItem Dim outlookapp As Outlook.Application Dim myInspector As Outlook.Inspector Set outlookapp = CreateObject("Outlook.application") Set OutMail = outlookapp.CreateItem(olMailItem) With OutMail .To = "email address" .Subject = "test mail" .Body = "Hi this is test email" OutMail.Send 'Getting error on this line End With Set outlookapp = Nothing Set […]

macros将共享邮箱子文件夹中的电子邮件复制到excel

我正在尝试创build几个macros来帮助跟踪我的工作的多个共享邮箱。 我对这方面没有经验，所以我把所有的东西都放在一起search这个网站和谷歌。 我创build了一个macros，将电子邮件复制到Excel，但我无法弄清楚如何指定只从共享邮箱收件箱子文件夹拉。 任何build议将不胜感激！ Option Explicit Sub CopyToExcel() Dim xlApp As Object Dim xlWB As Object Dim xlSheet As Object Dim rCount As Long Dim bXStarted As Boolean Dim enviro As String Dim strPath As String Dim objOL As Outlook.Application Dim ns As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim objItems As Outlook.Items Dim obj As […]