“运行脚本”和“自定义动作”功能是怎么用的？

westmood

规则和通知里的“运行脚本”和“自定义动作”功能是怎么用的？

我写完VBA后，第一次还能在运行脚本那里找得到，第二次就找不到了。。。

dsd999

第一次指的是运行吗？

你实现的什么样的功能？

westmood

原帖由 dsd999 于 2011-7-25 10:41 发表
第一次指的是运行吗？

你实现的什么样的功能？

版主你好，我想做一个有新邮件来到就抽取其中的附件的VBA，但下面的代码有个问题，一定要选中了才能抽取，但又没有属性取可以给我选中， 您能帮我看看吗？

For Each msg In exp.Selection。。。。一定要选中才能抽取。。

请看代码：

Private Sub Application_NewMail()

Dim msg As MailItem
Dim exp As Explorer
Dim att As Attachment
Dim mailIndex As Integer
Dim path As String
Dim folder As String

Dim myolapp As New Outlook.Application

Set myNameSpace = myolapp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)

path = "D:\Office\"

For i = 1 To myFolder.Items.Count

Set mymailitem = myFolder.Items(i)

If mymailitem.UnRead = False And UCase(myFolder) = UCase("inbox") Then

mymailitem.UnRead = True

ElseIf mymailitem.UnRead = True And UCase(myFolder) = UCase("inbox") Then

mymailitem.UnRead = flase

End If

Set exp = Application.ActiveExplorer
Set Fso = CreateObject("Scripting.FileSystemObject")

'保存附件到哪个文件夹，末尾必须是斜杠

folder = "D:\Office\"
mailIndex = 0

For Each msg In exp.Selection
If msg.Attachments.Count > 0 Then
mailIndex = mailIndex + 1
If Fso.FolderExists(folder + msg.Subject) = False Then
MkDir (folder + msg.Subject)
End If

For Each att In msg.Attachments
'所有附件保存到folder指定的文件夹中，文件命名为：mailatt<编号>_附件原始文件名
path = folder + CStr(msg.Subject) + "\" + CStr(mailIndex) + "_" + att.FileName
att.SaveAsFile path
info = info & Chr(10) & "主题：" + msg.Subject & Chr(10) & "附件数量：" + CStr(msg.Attachments.Count)
Next
End If
Next

MsgBox info, vbInformation, "保存附件"

Next

End Sub

[ 本帖最后由 westmood 于 2011-7-25 17:43 编辑 ]

dsd999

用Application_NewMailEx事件，可以得到新邮件。

zdlfb

规则和通知里有“运行脚本”这个功能？在哪啊？

joanlau

我也很需要这个宏，就是写好脚本，然后在规则中运行脚本，对于指定邮件的附件以指定名称放到指定路劲中，一直没人回复怎么弄啊。

心声聆听┌

我也想用这个功能但是没有成功。我参照 这个方法 ，但没有成功，求经验。
http://www.360doc.com/content/14/0127/13/15122071_348307672.shtml

bjhuige

我也想用这个功能，求高手相助啊。。。

闻启学

讓outlook幫你另存[附件]到本地硬盤上吧!
http://club.excelhome.net/thread-946778-1-1.html
(出处: ExcelHome技术论坛)

楼上的  看看这个参考吧