我在电子邮件中有几个看不见的电子邮件附件。当我从特定的发送方收到它时,我想自动下载它。我正在使用Outlook 2013。
我得到:
运行时错误:13类型不匹配
Private Sub Application_NewMail()
Dim onamespace As Outlook.NameSpace
Set onamespace = Outlook.GetNamespace("MAPI")
Dim myfol As Outlook.Folder
Set myfol = onamespace.GetDefaultFold
我有代码来生成基于用户表单上的数据的电子邮件。
它在多台机器上运行了很长一段时间,但当我更换机器时,它开始在以下部分的CreateItemFromTemplate方法上抛出运行时错误13类型不匹配:
Private Sub AcaoEnviar_Click()
Dim OutlookApp As New Outlook.Application
Dim EmailKRI As Outlook.MailItem
Set EmailKRI = OutlookApp.CreateItemFromTemplate(PATH_EMAIL_TEMPLATE)
代码仍然在其他机器上运
这里的环境如下:
我有一个Exchange2010、SP3和Office365的混合环境。
- _I think the configuration is well working since I can see the user of on-premise Exchange showing up in office365._
- _In the OWA, I can only see the archived emails in OWA, but can't archive emails from the primary mailbox, which I don'
我有Outlook代码,它在共享邮箱(收件箱)中检查特定的主题电子邮件,并在Excel中记录电子邮件正文数据(尚未添加代码),并应将电子邮件移动到MIAL文件夹。
当将电子邮件移到MIAL文件夹时,我收到了一个错误。
“未定义变量”
文件夹(MIAL)是手动创建的。当我代码移动电子邮件到默认文件夹,如“草稿”或“发送文件夹”,它的工作。
Option Explicit
Public Sub Example()
Dim olNs As Outlook.NameSpace
Set olNs = Application.GetNamespace("MAPI")
我正在使用Excel在Outlook中编写电子邮件,并且运行良好。
Dim template As Outlook.MailItem, tomerge As Outlook.MailItem
' Create E-mail
tomerge.Close olSave
然后,电子邮件可以手动移动到草稿文件夹和。
'Loop through items in Drafts folder
objDrafts.Item(i).Send
然而,许多用户在他们的草稿文件夹中有一堆他们不想发送的额外草稿。
如果我将"olFolderDrafts“替换为"olFolderOutb
我通常需要将相当数量的电子邮件(150+)从一个子文件夹移到另一个文件夹。我在邮箱中有许多文件夹执行此任务。它似乎是一个容易编写的宏,但我所拥有的比执行Ctrl+A要慢得多,拖到目标文件夹中。
我已经回顾了以前关于移动Outlook电子邮件和微软文档的问题,但是我不知道如何以一种快速可靠的方式完成电子邮件的移动。如果除了VBA之外,还有其他解决方案的话,我很想知道我哪里出错了。
我现在的代码在下面。我的最终目标是遍历文件夹名称列表(而不是我选择文件夹)。
提前谢谢。
Sub MoveEmailsToDone()
On Error Resume Next
Dim ns As Outlook.
我已经在outlook和excel vba中写了一个宏,描述如下: 1. Outlook for Open Excel文件中的代码如果电子邮件主题行匹配:
Private Sub Items_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
'// Subject line here
If InStr(Item.Subject, "Run Dashboard") Then
Call openExcel
PLease请参阅下面的代码。我编写的子例程应该查看今天刚收到的所有电子邮件,并只移动那些主题为“每日统计”的邮件。我故意给自己发了两封邮件,主题是“每日统计数据”。收件箱中还有一封电子邮件没有合适的主题。总共有三封电子邮件。当子MoveHarpStatMail运行时,它只移动一个主题为“每日统计”的正确电子邮件。另一个似乎被忽视了。我的过滤器字符串有什么问题吗?我在另一个子程序中使用了完全相同的过滤器字符串,它在那里工作得很好,读取了今天收到的所有电子邮件。我想我需要另一双眼睛来指出我哪里错了。
艾伦
Public StatsArchiveFolder As Outlook.Folder
&
我正在尝试为Outlook 2010创建一个自定义规则,它检查电子邮件的主题,如果它生成正则表达式,则会移动到特定的文件夹中。
但是,当我运行脚本时,当我试图为要将消息移动到的文件夹获取一个Outlook.Folder对象时,会出现以下错误:
运行时错误'91':
对象变量或块变量未设置
下面是我用来检查电子邮件主题的VBA脚本,如果匹配的话,可以将消息移动到指定的文件夹中。
Sub MoveToETS(Item As Outlook.MailItem)
Dim Subject As String
Subject = Item.Subject
Dim
我正在尝试更新收件箱中的Outlook.MailItem。
首先,我在收件箱中搜索它。一旦找到它,我就会将它复制到另一个Outlook.MailItem中,然后处理该副本:我更新它并将其移动到收件箱中。
最后,如果成功,我将删除旧的Outlook.MailItem。
码
try
{
Outlook.MailItem omi = this.SearchForMailItem(id); // this searches for an Outlook.MailItem in the inbox based on and Id.
Outlook.MailItem omiCop
我正在尝试从.NET应用程序中打开电子邮件。当我在本地机器上运行所有东西时,它工作得很好。当我部署到IIS8服务器时,在加载页面时出现错误。Outlook是否需要同时安装在服务器和本地客户端上,还是只需要安装在客户端上?当我注释掉下面的代码时,一切都很好。
using Microsoft.Office.Interop.Outlook;
using Outlook = Microsoft.Office.Interop.Outlook;
protected void passdownBtn_Click(object sender, EventArgs e)
{
SqlConnection
VBA代码不会将主题“已更新”和“项”从收件箱移到子文件夹"Neu“的所有电子邮件。电子邮件应该已经读过了。经过5-6次迭代后,所有电子邮件都将被移动。但是为什么在第一次运行代码之后它就不能立即工作呢?也许你也面临过同样的问题?在46封电子邮件中,26封首先被移动,然后是39封,然后是44封,然后是46封。
非常感谢您提前!
Sub Emails_Outlook_Transport()
Dim olApp As Outlook.Application
Set olApp = New Outlook.Application
Dim olNS As Outlook
我正在努力使我的Excel表格发送给我的电子邮件提醒,以联系客户时,下一个最后期限是满足。
VBA给了我一个
VBA编译错误:用户定义类型未定义
标记Microsoft 16.0对象库。
Sub datesexcelvba()
Dim myApp As Outlook.Application
Dim mymail As Outlook.MailItem
Dim mydate1 As Date
Dim mydate2 As Long
Dim datetoday1 As Date
Dim datetoday2 As Long
Dim
我有一个vba来保存从这里获取的选定电子邮件的附件;)代码执行的正是我所需要的,直到我选择了更多数量的电子邮件。数量是不同的,我认为这与附件的数量有关。则在该行上发生VBA运行时错误-2147287032 (80030008
objAttachments.Item(i).SaveAsFile strFile
Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachmen
我正在为outlook开发一个插件,将电子邮件移动到文件夹中。运行良好,但看起来MailItem的移动方法很慢,移动10封电子邮件要花4到5秒的时间,我正在使用的工具如下
for (int i = folder.Items.Count; i > 0; i--)
{
Outlook.MailItem mi = (Outlook.MailItem)theRootFolder.Items[i];
if (mi != null)
{
mi.Move(destFolder);
}
我创建了一个Outlook规则来保存附件,然后将其移动到“已删除邮件”文件夹中。当我在“收件箱”中突出显示收到的电子邮件,然后将该电子邮件移动到“已删除邮件”文件夹中时,代码会起作用。
当新电子邮件到达时,它会将来自不同电子邮件的附件保存在收件箱中,而不会将该电子邮件移动到已删除邮件文件夹中。
Outlook规则为:
Apply this rule after the message arrives
from Sender
and with Gift Card in the subject
and on this computer only
run Project1.SaveAttachm
我想通过Outlook发送一封附有工作簿的电子邮件。
"To“和"CC”字段没有填充,这会导致电子邮件无法发送。
每次使用Excel工作簿时," to“和"Cc”字段都会更改,因此需要使用H16和H19中的数据来填充要发送给谁的电子邮件。
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbo
如何移动标记的电子邮件副本并将其放入文件夹?
例如,John Doe给我发了一封电子邮件,我将它标记出来,原始的电子邮件保存在我的收件箱中,但是电子邮件的一份副本会进入一个名为"Follow Up".的文件夹中。有人能帮我吗?
编辑:
下面的代码非常接近我想要的,但它是移动原始电子邮件到文件夹,而不是一个副本。它也没有针对标记的电子邮件。
Sub FollowUp()
On Error Resume Next
Dim ns As Outlook.NameSpace
Dim moveToFolder As Outlook.MAPIFolder
Dim objItem As Ou