Scripts personalizados no Outlook

Question

Eu tenho o seguinte código que irá abrir um anexo no programa associado. Eu estou tentando configurar uma regra que será executado a partir de um endereço de e-mail certian. A questão é quando eu escolho rodar esse script, ele não está listado.

Sub OpenAttachmentInNativeApp()
' based on code posted by Sue Mosher
' http://tinyurl.com/684zg4

Dim myShell As Object
Dim MyItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Dim i As Long
Dim Att As String

On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
 Case "Explorer"
     Set MyItem = ActiveExplorer.Selection.Item(1)
 Case "Inspector"
     Set MyItem = ActiveInspector.CurrentItem
 Case Else
End Select
On Error GoTo 0

If MyItem Is Nothing Then
 GoTo ExitProc
 End If

Set myAttachments = MyItem.Attachments
' Windows Script Host Object
Set myShell = CreateObject("WScript.Shell")


If myAttachments.Count > 0 Then
 For i = 1 To myAttachments.Count
     Att = myAttachments.Item(i).DisplayName
     ' delete just in case it exists from before
    On Error Resume Next
     Kill "C:\" & Att
     On Error GoTo 0

    myAttachments.Item(i).SaveAsFile "C:\" & Att
     myShell.Run "C:\" & Att
 Next i
End If

ExitProc:
Set myAttachments = Nothing
Set MyItem = Nothing
Set myShell = Nothing
End Sub

    

Answer 1

Tente

Sub OpenAttachmentInNativeApp (MyItem como MailItem)