标签: outlook-vba

我想知道是否有办法按日期对电子邮件进行排序,然后打开找到的最新电子邮件.

我正在尝试搜索Body内部具有唯一标记的电子邮件.为了避免重复的电子邮件具有相同的标签,我必须按日期对这些电子邮件进行排序,并打开最新的电子邮件,以便我可以回复它.

我正在尝试让Outlook将附件保存在每日电子邮件中,以便我可以让文件系统观察器准备好解析和分析附件(这是数据完整性检查程序的报告).我已经设置了一个应该运行VBA脚本的规则,但它并没有尽我所能.我已经在VB6中验证了代码实际上会将一些文本保存到文件中,因此如果Outlook实际运行VBA脚本,它应该能够执行相同的操作.但事实并非如此!任何人都可以看到我做错了什么？

Dim WithEvents objInbox As Outlook.Items

Private Sub Application_Startup()
   Set objInbox = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub SnagAttachment(theItem As MailItem)
    On Error Resume Next
    Dim fnum As Integer
    fnum = FreeFile()
    Open "c:\temp\success.txt" For Output As #fnum
    Print #fnum, "Ran SnagAttachment Successfully"
    Close #fnum
End Sub

请注意,当我使用规则向导并选择"运行脚本"时,Sub SnagAttachment将列为可以选择的脚本.

我有大约80封电子邮件,都带有附件,我想保存到硬盘上的文件夹中.而不是打开每条消息并去保存附件,我正在寻找一个可以做到这一点的脚本？任何人都知道如何做到这一点？

谢谢,

我正在尝试将我的Outlook2003转换为最接近gmail的东西。

我开始使用类别，与gmail中的标签非常相似。我可以使用规则自动分配类别，也可以手动添加类别。我还创建了“搜索文件夹”，以显示具有给定类别的所有邮件（如果它们不在“已删除邮件”或“已发送邮件”文件夹中）。这部分几乎类似于gmail中的“标签”视图。

基本上缺少两件事，应该使用我完全没有经验的宏（准确地说是VBA）来完成。因此，我的问题是：

-有人可以向我显示一个宏来删除“收件箱”类别吗？ 这就像gmail中的“存档”按钮一样。实际上，我想将此宏分配给工具栏按钮，并将其命名为Archive。我有一个将收件箱类别添加到所有传入邮件的规则。正如我所说，我有一个搜索文件夹，显示所有归类为“收件箱”的邮件，还有一个“所有邮件”搜索文件夹，该文件夹显示所有邮件，无论它们是否具有“收件箱”类别。与gmail一样，只是缺少简单的归档。

-有人可以向我显示一个宏，该宏将删除选定的邮件，并在删除前删除收件箱类别吗？我将用此宏替换默认的删除按钮。（有些不那么重要，例如，在我的搜索文件夹中，我可以过滤实际放置在“已删除邮件”文件夹中的邮件，但是如果不将邮件归类为“垃圾箱”中的收件箱，那会更加优雅。

提前谢谢了，

塞克利亚

我正在处理一些创建Outlook会议请求的代码,我希望它能够发送到被邀请者列表.我可以创建会议请求,但我无法发送.我可以在我的日历中看到会议请求.我该如何发送？

这是我的代码:

Sub AddAppointments()
' Create the Outlook session
Set myOutlook = CreateObject("Outlook.Application")

' Start at row 2
r = 2

Do Until Trim(Cells(r, 1).Value) = ""
    ' Create the AppointmentItem
    Set myApt = myOutlook.CreateItem(1)
    ' Set the appointment properties
    myApt.Subject = Cells(r, 1).Value
    myApt.Location = Cells(r, 2).Value
    myApt.Start = Cells(r, 3).Value
    myApt.Duration = Cells(r, 4).Value
    myApt.Recipients.Add Cells(r, 8).Value
    myApt.MeetingStatus = olMeeting
    myApt.ReminderMinutesBeforeStart = 88
    myApt.Recipients.ResolveAll
    myApt.AllDayEvent = AllDay


    ' If Busy Status is not specified, default to 2 (Busy) …

我有一个包含三列Employee Name,Email ID和DOB的Excel工作表.

我写了一个宏,它匹配员工的出生日期,今天的日期将发送一封Outlook邮件给员工和我的部门.

当所有员工看到该邮件时,他们可以点击回复或回复所有邮件.

我写了另一个Outlook宏,用他/她的生日人电子邮件ID替换To地址字段.

第二个宏正在任何打开的Outlook电子邮件上处理我的系统.

因为我有Outlook宏,所以我能够执行它,但要在所有员工系统中执行相同的操作,他们需要这个Outlook宏.如何在不将这个宏手动放入系统的情况下在系统中运行它？

我正在使用Outlook VBA并构建了一个For Next循环来读取MailItems的主体,其格式类似于Key = Value对.它似乎工作的一点,但在第二次迭代结束时,当它到达"下一个oitem"时,我得到错误抛出"类型不匹配".好吧,仍然有第三个MailItem被读入,所以我不知道为什么我会收到此错误.任何指导将不胜感激.

Sub ReadMailItems()

Dim olapp As Outlook.Application
Dim olappns As Outlook.NameSpace
Dim oitem As Outlook.MailItem
Dim ItemsToProcess As Outlook.Items
Dim myFolder As MAPIFolder
Dim sFilter As String
Dim dailyStats As CRBHA_Stats
Dim kvPairs As Collection
Dim Item As KeyValuePair
Dim today As Date
today = Date

On Error GoTo LocalErr

'set outlook objects
Set olapp = New Outlook.Application
Set olappns = olapp.GetNamespace("MAPI")
Set myFolder = olappns.GetDefaultFolder(olFolderInbox)
'Filter or only MailItems received today
sFilter = "[ReceivedTime] >= …

我是VBA的新手,因为我刚开始学习它.

现在我在将信息体从outlook导出到excel时遇到了问题.有趣的是,当我第一次运行时,它的工作原理.但是,当我第二次运行时,会出现标题中所述的错误消息.

我点击了调试,它突出显示了这段代码:"offsetRow = Cells(Rows.Count,1).End(xlUp).Row"

我尝试了各种方法,比如选择我想将数据粘贴到其中的工作表,但无济于事.因此,我希望这里的专家可以帮助我调试代码.如果我做了任何会减慢计算机速度的冗余,也可以随意反馈我的编码.

仅供参考,这是我的工作,以便我可以将电子邮件内容导出到excel.提前致谢.

Sub ExportToExcel()

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
Dim masterData() As String
Dim subData() As String
Dim i As Integer
Dim offsetRow As Long

strSheet = "For fun.xlsx"
strPath = "C:\Users\XXXXX\Desktop\New …

我正在编写一个宏来将电子邮件数据导出到excel文件以进行月度报告.

但是我意识到被拔出的数据不是相应的日期; 都混乱了.

有些邮箱有大量的电子邮件
因此考虑到效率问题,有没有办法从最新到最旧的订单获取数据？

以下是代码的一部分:

Dim msg As Outlook.MailItem
Dim nms As Outlook.NameSpace
Dim fld As Outlook.MAPIFolder
Dim itm As Object

'Select export folder
Set nms = Application.GetNamespace("MAPI")
Set fld = nms.PickFolder

'Open and activate Excel workbook.
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Open (strSheet)
Set wkb = appExcel.ActiveWorkbook
Set wks = wkb.Sheets(1)
wks.Activate
appExcel.Application.Visible = True

'Copy field items in mail folder.
 For Each itm In fld.Items
'Check item type
If TypeName(itm) = "MailItem" Then
intColumnCounter = 1
Set msg …

I have 20+ emails created by macro code with all details like Subject, To, CC, BCC etc. I want to save these emails as draft in MS Outlook before sending them.

This is my code:

With OutMail
    .SentOnBehalfOfName = email_from
    .To = email_to
    .CC = email_cc
    .BCC = email_bcc
    .subject = subject
    .HTMLBody = "Dear All,<br /> <br/>Please find below today's MIS. <br/>" & RangetoHTML(rng)
    .Attachments.Add (Attach_Path)
    .display
End With

Can someone pleas help on this?