That's right, you cannot see it if you want to run a macro. But if you
assign it to a run-a-script rule it's visible.

--
Best regards
Michael Bauer - MVP Outlook

: VBOffice Reporter for Data Analysis & Reporting
: Outlook Categories? Category Manager Is Your Tool
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Thu, 24 Jul 2008 13:53:01 -0700 schrieb Ryan:

I am attempting to set up my Outlook 2007 client to run a rule against
messages with a specific subject that will in turn run a macro to export
the
body to a local file that will be used for input by Powershell. Here is a
copy of the macro I pulled from the web.

' (C) Dmitry Sotnikov
' http://dmitrysotnikov.wordpress.com
' Add this to your Outlook macros project
' Then associate SaveAsText with a rule procesing
' emails from your address with a keyword in subject

' This is to have a Sleep function in Outlook
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

' The main function saving the script email as text
' and sending back the transcript
Sub SaveAsText(MyMail As MailItem)
' Export email (with PowerShell script in body) as a text file
MyMail.SaveAs "c:\scripts\outlook.ps1", olTXT

' Create a response email
Dim reMail As Outlook.MailItem
Set reMail = MyMail.Reply

' wait till transcript is available
Set fs = CreateObject("Scripting.FileSystemObject")
While Not fs.FileExists("C:\Scripts\email_transcript.txt")
Sleep 1000
Wend

' attach the transcript and send it back
reMail.Attachments.Add "C:\Scripts\email_transcript.txt"
reMail.Send
End Sub

When this added in the VBA Editor. I can not see this when I attempt to
run
a macro. If I create a new test macro with out an argument defined with
sub.
I can see it fine and run the macro all day.

Sub HelloWorldMsgBox()
MsgBox ("Hello World")
End Sub

To make this worse. I have no VBA experience so troubleshooting this has
been very difficult.

When you reply please keep it simple and feel free to talk down to me....
:-)