Tag: outlook

VBAmacros – 导出CSV文件格式和扩展名不匹配

我正在使用此代码将Outlook数据（电子邮件）导出为CSV文件： Sub ExportMessagesToExcel() Dim olkMsg As Object, _ excApp As Object, _ excWkb As Object, _ excWks As Object, _ intRow As Integer, _ intVersion As Integer, _ strFilename As String 'strFilename = InputBox("Enter a filename (including path) to save the exported messages to.", "Export Messages to Excel") strFilename = "C:…\…\Emails.csv" If strFilename <> "" […]

运行时错误：438使用macros

我正在使用代码将Outlook电子邮件详细信息提取到使用VBA的Excel中。 运行macros时会抛出一个错误： 运行时错误：438 – 对象不支持此属性或方法 下面是在点击debugging时抛出错误的行。 wks.Cells(oRow, 1) = Folder.Items.Item(iRow).SenderName

根据excel中的数据更改电子邮件的类别标签

所以我基本上想循环收件箱中的每个电子邮件，直到列A中的主题行匹配电子邮件的主题行。 当它find一个匹配的时候，它会沿着C列的同一行查找，根据这里find的（YES，NO或MULTIPLE），电子邮件的类别将会改变。 在macros运行之前，每封邮件都被视为“ATLG”。 下面的代码是一个正在进行的工作，但我不知道从哪里去。 有什么build议么？ Dim mail As Outlook.MailItem Dim fld As Outlook.MAPIFolder For Each mail In fld.Items With mail If mail.Subject = Sheets("Mail Report").Range("A65000").End(xlUp).Value Then If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "YES" Then mail.Category = "ATLG" If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "NO" Then mail.Category = "MAN" If Sheets("Mail Report").Range("C65000").End(xlUp).Value = "MULTIPLE" Then mail.Category = "MULT" Next mail

在VBA中格式化文本string的特定部分

我正在创build一个macros将保存当前的工作簿，创build一个新的Outlook消息，并将该文件附加到邮件的过程中。 我的macros是这样做的，但是我不能按照我的喜好格式化电子邮件正文中的文本。 Dim OutApp As Object Dim OutMail As Object Dim sBody, Customer As String ActiveWorkbook.Save sBody = "All," & Chr(10) & Chr(10) & "Please Approve attached Request below for " & rType & "." _ & Chr(10) & Chr(10) & "Customer: " & customer & Chr(10) Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) […]

VBA：更改Outlook“从”和字体大小

我正在尝试从VBA Excel发送Outlook电子邮件。 据我所知，我已经正确地声明了一切。 我遇到了更改发件人和字体大小的问题。 from是一个辅助电子邮件，也是Outlook，我可以访问。 字体问题是我使用下面的代码似乎无法达到字体大小11。 发件人： With OutMail .Display .Sender = "someone@example.com" '.SentOnBehalfOfName = "someoneelse@example.com" .To = origintext .Subject = "Location Verification" .BodyFormat = 2 'olFormatHTML .HTMLBody = fMsg & fMsg2 & fMsg3 & signature '.Body = signature .Display End With 其中fMsg ， fMsg2和fMsg3是string。 在代码之前声明了签名： Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) OutMail.Display […]

如何以编程方式将date导入交换服务器中的许多用户

另一方面，我们有一个企业MS Exchange服务器和一个不同的基于Web的时间pipe理软件。 在后者中，员工要求休假date，但这些不能被所有人看到。 因此，我们希望将每个用户的已批准的度假date作为date导入，即以某种方式将其导入到Exchange服务器中。 从时间pipe理软件我可以每月导出Excel-Sheets，所以我可以通过编程读取这些信息，并将这些信息推送到Exchange（例如，通过一些C＃程序）。 不过，我对Exchange并不熟悉，而且我不知道我应该用什么条件来谷歌这个function。 对API或示例的任何提示？

Excel VBA：将文件附加到电子邮件没有完整的文件名称

我必须每月通过电子邮件向数百人发送文件。 我试图写一个macros，这将自动为我做这个。 到目前为止，我已经创build了电子邮件，自动填写正文，主题行和收件人。 我需要能够自动附加每个人的文件到电子邮件。 文件名称包含其帐号的最后6位数字。 我收到了所有需要发送文件的帐号的报告。 无论如何，我可以使用这6位数字search文件，并使用VBA附加？ 例如： 说我的帐号是S0001234，S0005678，S0009012。 我的文件名是“ABC – 001234”，“DEF – 005678”和“GHI – 009012”。 我会手动引用整个文件名，但它们并不总是一致的。 我可以使用文件的完整path。 我可以通过在VBA中引用这6位数字来以某种方式附加文件吗？ 例如，search任何包含这6位数字的文件？ 任何帮助，将不胜感激。

用vba excel打开outlook .msg文件

嗨，大家好，我有以下代码 Sub Kenneth_Li() Dim objOL As Outlook.Application Dim Msg As Outlook.MailItem Set objOL = CreateObject("Outlook.Application") inPath = "C:\Users\SiliconPlus\Desktop\Si+ Contact Lists\Contact_Si+" thisFile = Dir(inPath & "\*.msg") Do While thisFile <> "" 'Set Msg = objOL.CreateItemFromTemplate(thisFile) 'Or Set Msg = objOL.OpenSharedItem(thisFile) Msg.display MsgBox Msg.Subject thisFile = Dir Loop Set objOL = Nothing Set Msg = Nothing End […]

总之要导出电子邮件到包括附件的文件夹？

我有一个系统，我创build了超时，把电子邮件数据放到Excel电子表格上。 这是伟大的，但我也想在这个运行后，将包括从Outlook的任何附件的电子邮件提取到我的Windows PC上的一个新的文件夹。 当电子邮件在Excel电子表格上，然后电子邮件和附件被提取到我的电脑上的一个文件夹，我想要一个唯一的ID（可能是电子邮件的date，或只是一个随机数）被添加到电子邮件然后会自动发送一个链接地址到电子表格旁边的电子表格中，并将该唯一ID添加到电子表格中。 听起来有点混乱，我希望这是有道理的（这是可能的吗？） 人们会回复电子邮件，我也想回复原来的电子邮件（应该有上面列出的唯一ID）使用相同的ID它给了原来的电子邮件。 再次抱歉，如果这听起来令人困惑，如果需要，很乐意进入更多的细节。 这种东西是这样的，所以任何帮助将是伟大的。 这是我迄今写的代码; Sub Download_Outlook_Mail_To_Excel() 'Add Tools->References->"Microsoft Outlook nn.n Object Library" 'nn.n varies as per our Outlook Installation Dim Folder As Outlook.MAPIFolder Dim sFolders As Outlook.MAPIFolder Dim iRow As Integer, oRow As Integer Dim MailBoxName As String, Pst_Folder_Name As String 'Mailbox or PST Main Folder Name (As how it […]

将ID添加到行并更新具有相同ID的回复行？

希望你一切安好。 我已经做了一个电子邮件报告工具，我真的很挣扎。 每一行都有一个ID号（从1开始，在G列的第2行）。 当一个回复来到我需要回复有其原始的ID。 尝试使用入口，但是这个值改变时，回复邮件回来，所以它不是很好。 这是我的代码， Option Explicit Const fPath As String = "C:\Users\neo_s_000\Desktop\Emails\" 'The path to save the messages Const sfName As String = "C:\Users\neo_s_000\Desktop\Message Log.xlsx" Sub Download_Outlook_Mail_To_Excel() Dim olApp As Object Dim olFolder As Object Dim olNS As Object Dim xlBook As Workbook Dim xlSheet As Worksheet Dim NextRow As Long Dim i […]