给Outlook中带附件的邮件自动加上标题

fujitsuql

这个代玛怎么用呀不会呀

antkey

英文版的2007测试成攻，谢谢。

taijilao

我只是路过看看,呵呵!

thierryco

谢谢啊，好用

parany

不会用啊

caotor

着个可以做成一个插件

gz_wu

请问这个代码利用“.”来判断后缀文件名，能不能采取从后向前的方式来找“.” ？
假如这个附档的文件名为如下时：
Q10.01256.xls 时，
VBA取主题时为变成Q10，正常应该为：Q10.01256

那位朋友可以修改一下代码，使其更加完善？谢谢！
------------------------------------------------------------------------------------------------
Sub olAddAttachedFileTitle()
Dim mFileName, mSubject As String
Dim iPos As Integer
Dim i As Integer
Set CurrentMail = ActiveInspector.CurrentItem
If TypeName(CurrentMail) <> "MailItem" Then
    MsgBox "当前活动窗口不是一封邮件"
Else
    If CurrentMail.Attachments.count > 0 Then '必须是在有附件的情况下
        For Each Item In CurrentMail.Attachments
            mFileName = Item.FileName '取得附件文件名称（包括后缀）
            mLen = Len(mFileName) '取得名称长度
            For i = mLen To 1 Step -1
                If Mid(mFileName, i, 1) = "." Then
                    iPos = i '.的位置
                End If
            Next i
            iPos = iPos - 1
            mFileName = Left(mFileName, iPos) '去掉了后缀的文件名称
            If mSubject = "" Then
                mSubject = mFileName
            Else
                mSubject = mSubject & ", " & mFileName
            End If
        Next
        CurrentMail.Subject = mSubject '把得到的名称写入邮件主题
    Else
        MsgBox "当前邮件没有附件"
    End If
End If
End Sub

kevingarnett198

EXCELLENCE

tonybjs

学习中，目前没有成功，msoe07

yuntian001

能不能不点击运行代码，就可以自动添加