ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 627|回复: 0

怎么利用OUTLOOK VBA 获取已发邮件内最顶上一封邮件的主题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-4-24 14:34 | 显示全部楼层 |阅读模式
在这个代码下怎么利用OUTLOOK VBA 获取“已发邮件内”最顶上一封邮件的主题,谢谢Sub 转发邮件1()Dim objItem As Object, n As Byte, pt As String
Dim objForward As Outlook.MailItem
  For Each objItem In ActiveExplorer.Selection
    If objItem.Class = olMail Then
      Set objForward = objItem.Forward
      objForward.To = "3245723497@qq.com"
'      objForward.Subject = "1" & objForward.Subject   '主题
      zt = objForward.Subject                          '比对文件名
            f = Split(zt, "-")(2)
            f = Right(f, 4)
            mypath = "Z:\出口运单PDF\"
            myfile = Dir("Z:\出口运单PDF\" & "*" & f & ".PDF")
            s = Split(myfile, ".")(0)
                If f = s Then
                    objForward.Attachments.Add mypath & myfile
                End If

            myfiles = Dir("Z:\出口运单PDF\" & "*.PDF")   '再次循环文件的个数
            Do
                n = n + 1
                myfiles = Dir
            Loop Until LenB(myfiles) = 0
            pt = Split(objForward.Subject, "转发")(1)  '再次重命名主题
            objForward.Subject = n & pt
            objForward.Display
'            objForward.Send
      Set objItem = Nothing
      Set objForward = Nothing
    End If
  Next
End Sub


您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 19:00 , Processed in 0.034467 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表