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

musicland

好像Outlook论坛人气不旺嘛，我这个新手来加把火。以下这段代码的目的是给当前活动邮件（如果有附件的话）的标题栏处自动加入附件名称。这样就不用每次再手动写邮件的主题了。 [upload=jpg]uploadImages/200282212141482552.jpg[/upload] 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 由于VBA刚用不久，所以代码可能不是最佳，不过大致就这个意思了。

musicland

帖代码的时候我记得是有缩进的，怎么传上去后就没了？哪位能告诉怎么设置呀？

Rowen

代码挺好!

musicland

谢谢Rowen版主的鼓励，我还是个新手，以后有问题还要多向你和大家请教！

lgcmeli

挺好的代码，建议学习。

sheep204

楼主贴代码的时候试试看用ubb的code代码

1. </P><P>For i = mLen To 1 Step -1
2. If Mid(mFileName, i, 1) = "." Then
3. iPos = i '.的位置
4. End If
5. Next i

复制代码

samky018

能告訴怎麽弄嗎？謝謝！

nmc

學習中

xuanhf

能告诉我怎么用吗？

lhyq

请问这段代码应该放在哪里？谢谢