Tag: outlook

如何使用VBA将Word文档作为电子邮件的主体发送

我创build了一个与Outlook和Excel一起使用的macros，它将使用电子邮件地址列表（在Excel中），并通过电子邮件（在Outlook中）发送所有这些地址。 我想从word文档中提取word文档，并将其用作电子邮件的正文。 问题是，我将在word文档中有图像，我需要word文档来保持它的格式。 现在，我的VBA采取我的Word文档的内容，但格式化已经消失，图像不包括在内。 这是我的代码： Sub spamEmail() 'Setting up the Excel variables. Dim olApp As Object Dim oMail As Outlook.MailItem Dim iCounter As Integer Dim Dest As Variant Dim SDest As String Dim Excel As Object Dim Name As String Dim Word As Object Dim oAccount As Outlook.Account Dim doc As Word.Document Dim itm As […]

Outlook电子邮件的身体不复制到Excel

下面的代码工作它将从指定的电子邮件打开指定的文件。 但是不会将excel中的正文消息分隔成不同的行，有什么build议吗？ For i = LBound(MyAr) To UBound(MyAr) '~~> This will give you the contents of your email '~~> on separate lines Debug.Print MyAr(i) Next i End With 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 […]

从Outlook电子邮件中写入Excel文件

我用Python写了一些代码，使用win32com.client读取Outlook文件夹中的电子邮件。 我可以很容易地阅读它，把所有的逻辑build立起来，现在我想遍历所有的消息，写一个Excel文件。 这是我有一个问题。 我最近的尝试使用xlwt，但我打开使用任何东西。 我遇到的问题是，当我尝试从Outlook电子邮件发件人或date编写单元格时，出现以下错误： exception：意外的数据types 有谁知道我可以解决这个问题/解决它吗？ 我是否必须将.Sender，.Date实例转换为其他forms？ 下面快速示例： import win32com.client import xlwt outlook = win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI") inbox = outlook.GetDefaultFolder(6) book = xlwt.Workbook(encoding="utf-8") sheet = book.add_sheet("New Sheet") for folder in inbox_folders: fold = folder.Items for messages in fold: date = fold.ReceivedTime sender = fold.Sender sheet.write(1,0,date) sheet.write(2,0,sender)

Outlook VBA调用Excelmacros

我有一个Outlookmacros处理电子邮件并将其粘贴到Excel中，然后调用Excelmacros进行进一步处理。 当单独调用时，这两个macros按预期工作。 但是，如果我尝试从Outlookmacros中调用Excelmacros，则电子邮件将不会粘贴到Excel工作簿中，然后在调用Excelmacros时会因为没有数据而生成错误。 任何想法为什么 xlApp.Run ("PERSONAL.XLSB!Commissions_Report_Format") 会导致数据不能从Outlook粘贴到Excel？ 只有当这行代码存在时才会出现错误。 提前致谢！ Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Option Explicit Sub PasteToExcel(item As Outlook.MailItem) Dim activeMailMessage As MailItem Dim xlApp As Excel.Application Dim Wb As Excel.Workbook Dim Ws As Excel.Worksheet 'Get a handle on the email Set activeMailMessage = ActiveExplorer.Selection.item(1) 'Copy the formatted text: activeMailMessage.GetInspector().WordEditor.Range.FormattedText.Copy […]

在多个Excel实例之一中查找工作簿

我在Outlook VBA中需要从打开的Excel工作簿（“ Workbook1 ”）中获取数据的macros。 我参考我需要select的工作簿，如下所示： Dim objApp As Excel.Application Set objApp = GetObject(, "Excel.Application") Set wb = objApp.Workbooks("Workbook1.xlsx") 但是，经常出现运行时错误9 ，VBA找不到工作簿。 我认为这个问题可能是因为我打开了多个Excel实例， VBA正在错误地查找我的工作簿 。 自从我运行许多Excels以来，对我来说有重要的独立实例。 运行多个Excel实例时，如何引用我的工作簿 ？

从Outlook中的特定文件夹导入电子邮件

我目前在Excel中使用下面的代码来访问非我自己的无人Outlook邮箱中的文件夹。 但是有没有一种方法可以在代码中设置文件夹，而不是使用文件夹select器。 Sub Launch_Pad() Dim olApp As Outlook.Application Dim olNS As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Set olApp = Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set olFolder = olNS.PickFolder n = 2 Cells.ClearContents Call ProcessFolder(olFolder) Set olNS = Nothing Set olFolder = Nothing Set olApp = Nothing Set olNS = Nothing End Sub Sub ProcessFolder(olfdStart As […]

如何编程Excel以使用Outlook？

我有一个相当大的Excel文件。 在这个文件中有一个包含date的列。 我想知道是否有可能制作一个能够阅读date并提前30天通知Outlook日历或通过我的办公室的Outlook发送电子邮件的程序。 有没有一个像样的API，我可以使用这个？ 如果是这样，我可以在哪里find一个？ 或者，有没有现有的程序能够执行此function？

什么是所需的服务器端运行Office Interops？

我目前正在研究一个MVC4网站，并希望为MS Office添加以下的互操作性： Communicator 2007（仅限在线状态）。 Outlook（从最终用户的Outlook发送模板电子邮件）。 Excel（在Excel表格中创build数据并保存） 是否可以使用Office Interop API执行这些操作，而无需在托pipe服务器上安装Office？ Interop是否会提供相同/相似的function？ 我了解所涉及的安全风险，以及微软对服务器端自动化的沮丧。

vba代码SenderEmailAddress在Excel中给path

我devise了一个VBA代码来从你的outlook的收件箱中检索邮件列表，使用链接从outlook中取回邮件列表 这里有一行代码 ThisWorkbook.Sheets(1).Cells(oRow, 5) = Folder.Items.Item(iRow).SenderEmailAddress 它指定获取发件人的电子邮件地址，但是当它存储在Excel中时，显示如下 /O=EXCHANGELABS/OU=EXCHANGE ADMINISTRATIVE GROUP (FYDIBOHF23SPDLT)/CN=RECIPIENTS/CN=WIPRO365.ONMICROSOFT.COM-52823-C1374FA5 我想看到它作为knowledge@wipro.com意味着以正确的电子邮件格式说。 如何利用这个选项？ 我应该在VBA代码或Excel中进行更改。 我曾经在很多博客上尝试过这个方法， 任何build议都会有所帮助。

无法打开.msg文件

我有大约90.msg，我需要打开的Outlook文件，将Excel附件转换为.csv文件并保存。 目前，下面的代码是简单地打开.msgoutlook文件，但是出现错误： 我如何允许打开.msg文件。 脚本： Sub OpenMSGRenameDownloadAttachement() Dim objOL As Outlook.Application Dim Msg As Outlook.MailItem Dim MsgCount As Integer Set objOL = CreateObject("Outlook.Application") 'Change the path given month, ie. do this for Jan, Feb, April inPath = "C:\January Messages" thisFile = LCase(Dir(inPath & "\*.msg")) Do While thisFile <> "" Set Msg = objOL.Session.OpenSharedItem(thisFile) Msg.Display MsgBox Msg.Subject […]