Tag: 前景

在Outlook中通过代码发送/接收

如果我在Excel VBA中使用创build一个Outlook 2010对象 Sub CreateOL() On Error Resume Next Set myOlApp = GetObject(, "Outlook.Application") If Err.Number = 429 Then Set myOlApp = CreateObject("Outlook.Application") End If On Error GoTo 0 End Sub 是否有可能强制myOLAPP发送/接收。 请有人build议如何做？ 我试过以下，但它不适合我。 Set nsp = myOlApp.GetNamespace("MAPI") Set sycs = nsp.SyncObjects For i = 1 To sycs.Count Set syc = sycs.Item(i) syc.Start Next 另外，如何使myOlApp可见？ […]

通过Outlook VBA从Excel附件查找LastRow

我一直在寻找这个问题的答案，但我似乎无法find一个。 我正在尝试将多个基于Excel的列表作为电子邮件附件接收。 只是为了给出一点上下文，这个macros已经工作了近两年没有错误，但我最近从运行Excel 2007和Outlook 2010的系统切换到运行Excel 2007和Outlook 2007的系统。 下面的行给我一个1004: Application-defined or object-defined error ： LR = xlAtt.ActiveSheet.Range("A" & xlAtt.ActiveSheet.Rows.Count).End(xlUp).Row 在上下文中的代码是： Private Sub ProcessAttachments(olFolder As Outlook.MAPIFolder) Dim xlApp As Object, xlAtt As Object Dim LR As Long Dim olItem As Outlook.MailItem Dim count As Integer Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False For count = olFolder.Items.Count To […]

VBAmacros迭代通过Outlook任务不工作在新的对象库（12对15）

编辑：在底部的工作解决scheme 我的同事把她的办公室更新到了2013版本的365。 macros在2007年一直工作没有问题现在不工作。 对象库12 vs 15可能有些变化，我不知道。 这是下面的代码。 我得到Application_defined或对象定义的错误在线： Worksheets("ActiveTasks").Cells(rowNo, Column_title).Value = eItem 通过试验和错误，我发现“eItem”有些问题。 我试着定义为Outlook.TaskItem，整体删除绑定，重新调整工作表。 在2007年所有的工作都很好，但2013年的版本仍然出现对象错误。 Sub Extract_tasks_SPP() On Error GoTo ErrHandler Dim applOutlook As Outlook.Application Dim nsOutlook As Outlook.Namespace Dim eFolder As Outlook.folder Dim eItems As Outlook.Items Dim eItem As Object Dim eResItems As Outlook.Items Dim strCriteria As String Worksheets("ActiveTasks").Range("A:B").ClearContents Set applOutlook = New Outlook.Application […]

将Outlook 2013search文件夹电子邮件导出到Excel

我想将我的电子邮件在search文件夹导出到Excel 。 我正在使用下面的代码在收件箱中导出我的电子邮件。 但与search文件夹它给了我一个错误： 运行时错误“-2147221233（8004010f） 尝试的操作失败。 一个对象无法find。 Sub Download_Outlook_Mail_To_Excel() Dim folders As Outlook.folders Dim folder As Outlook.MAPIFolder Dim iRow As Integer Dim Pst_Folder_Name Dim MailboxName MailboxName = "xxx@yy.com" Pst_Folder_Name = "Inbox" Set folder = Outlook.Session.folders(MailboxName).folders(Pst_Folder_Name) Sheets(1).Activate For iRow = 1 To folder.Items.Count Sheets(1).Cells(iRow, 1).Select Sheets(1).Cells(iRow, 1) = folder.Items.Item(iRow).SenderName Sheets(1).Cells(iRow, 2) = folder.Items.Item(iRow).Subject Sheets(1).Cells(iRow, 3) = […]

将文件夹中的单个附件通过电子邮件发送给其他人

我有一个包含50个文件的文件夹，我有一个包含50个电子邮件地址的列表。 每个文件都转到不同的电子邮件地址。 有没有办法编写一个macros来执行这个任务？ 下面这组代码的问题是双重的：1）我有一个Excel文件中的3列数据：一个用于主题，一个用于发送电子邮件地址，第三个用于FILE PATH的文件path被附加存储。 下面的代码不允许预先确定的一组主题参数。 它也使用ROWS？ 为文件path字段，而不是像发送到一个列？ 很混乱 Sub Send_Files() Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim cell As Range Dim FileCell As Range Dim rng As Range With Application .EnableEvents = False .ScreenUpdating = False End With Set sh = Sheets("Sheet1") Set OutApp = CreateObject("Outlook.Application") For Each […]

VBA循环通过电子邮件附件并根据给定的标准进行保存

这是上一个问题的后续（ VBA从具有多个帐户的电子邮件保存附件（基于定义的标准） ） 场景：我有一个代码，在特定的Outlook帐户中循环遍历所有电子邮件，并将附件保存到选定的文件夹。 以前，我的问题是select哪个文件夹（和帐户）从哪里提取附件（这是解决与上一个问题的build议）。 问题1：该代码在该行显示“types不匹配”错误： Set olMailItem = olFolder.Items(i) 问题2：如问题标题中所述，我的主要目标是遍历所有附件并仅保存那些具有给定条件的文件（excel文件，其中一个工作表名称为“ASK”，另一个名为“BID”）。 不只是一个简单的如果考虑到这些标准，我必须下载所有文件到“临时文件夹”，select并把最终的结果文件放在输出文件夹中，或者将所有文件下载到最终文件夹中，不符合标准。 问题：我似乎无法find做这两种操作的方法。 问：如何做到这一点？ 那两个会更有效率呢？ 码： Sub email() Application.ScreenUpdating = False Dim olApp As New Outlook.Application Dim olNameSpace As Object Dim olMailItem As Outlook.MailItem Dim olFolder As Object Dim olFolderName As String Dim olAtt As Outlook.Attachments Dim strName As String Dim sPath As String Dim […]

在outlook邮件正文excel vba中embedded图片

我试图从工作表中embedded范围作为图像在Outlook邮件正文。 这是正确的保存图片，但我只看到Outlook邮件正文中的空白图像。 我在这里做错了什么？ Sub View_Email() tName = Trim(MAIN.Range("tEmail")) If Not tName Like "*@*.*" Then MsgBox "Invalid Email address": Exit Sub Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) 'File path/name of the gif file Fname = ThisWorkbook.Path & "\Claims.jpg" Set oCht = Charts.Add STAT.Range("A3:G26").CopyPicture xlScreen, xlBitmap With oCht .Paste .Export Filename:=Fname, Filtername:="JPG" '.Delete End With […]

VBA'用户定义types未定义'与Outlook编译错误

我有一个很大的Excel文件，用命令button发送电子邮件给工作中的经理，然后他们可以按下button，并将文件发送到他们下面的经理。 由于每个经理都有自己的MS Office版本，所以我有一个小组负责检查他/她的计算机上有哪些版本，并在References标记为V 当我保存文件时，我将其保存为Outlook Object Library未标记为V ，而且我拥有其他人编译的代码。 代码运行通过3个子。 第一个子有一个msgbox ，当你回答的时候， 是的 ，它会把你发送到下一个子。 Public Sub before_send_mail() answer = MsgBox("Send Email?", vbYesNo + vbQuestion, "Empty Sheet") If answer = vbYes Then Call excel_ver Call sendMail Call remove_ref Else 'do nothing End If End Sub 然后，我有“参考select按办公室版本”，它检查计算机上安装了哪个版本，并自动在Outlook对象的Tools—->References中标记V 这部分似乎也运作良好。 Sub excel_ver() On Error Resume Next ver = Application.Version If ver […]

在Excel中通过Excel VBA打开新邮件

我每天都在处理每日报道。 这是非常耗时的。 基本上我需要发送电子邮件，其中包含昨天销售与上周和下个月销售的简要比较。 这工作得很好。 完成后，邮件将粘贴到新工作表中，然后我必须将其复制并粘贴到Outlook中的新电子邮件中。 是否有可能创build将在Outlook中打开新邮件的macros？ 所以我可以插入我的文字。 我能够写macros，将直接从Excel发送它，但这不是我真正想要的报告的一部分必须通过手动查看数字来完成。 提前谢谢了！

使用excel VBA在Outlook中添加包含图像的签名

我有代码，除了不添加图像签名。 这里的图片是指公司的标志和社交networking图标。 此代码是用Excel VBA编写的，目标是在Outlook电子邮件中复制粘贴范围作为图片。 Dim Rng As Range Dim outlookApp As Object Dim outMail As Object Dim wordDoc As Word.Document Dim LastRow As Long Dim CcAddress As String Dim ToAddress As String Dim i As Long Dim EndRow As String Dim Signature As String '// Added Microsoft word reference Sub Excel_Image_Paste_Testing() On Error GoTo Err_Desc […]