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

musicland · 发表于 2002-8-22 12:16

好像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 · 发表于 2002-8-22 12:28

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

Rowen · 发表于 2002-8-22 20:01

代码挺好!

musicland · 发表于 2002-8-23 10:56

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

lgcmeli · 发表于 2005-5-18 21:33

挺好的代码，建议学习。

sheep204 · 发表于 2005-10-31 13:25

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

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

复制代码

samky018 · 发表于 2005-12-2 15:16

能告訴怎麽弄嗎？謝謝！

nmc · 发表于 2006-1-5 23:59

學習中

xuanhf · 发表于 2006-6-16 13:01

能告诉我怎么用吗？

lhyq · 发表于 2006-6-17 12:09

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

		自动登录	找回密码
密码			免费注册