如何使用Visual Basic编写Outlok文本编辑器脚本?

时间:2015-10-14 11:00:04

标签: outlook-vba

我想执行一些文本替换,这些替换对于Microsoft Outlook的自动替换功能来说太复杂了。 Microsoft在GitHub上托管了相当广泛的documentation on Microsoft Outlook VBA scripting

我开始按 Alt + F11 打开Visual Basic编辑器。这就是我在项目资源管理器中看到的内容:

image description

请注意我不是VBA程序员,所以我之后做的可能看起来很愚蠢。我发现@echo off setlocal echo doing some css min for %%F in (%cd% *.css) do ( echo %%~nF java -jar yuicompressor-2.4.8.jar %%F -o min\%%~nF.min.css echo "done" ) ) 命名空间代表所有Outlook类,所以我选择了一个听起来像文本字段的类:

OutlookOutlook

我创建了一个虚拟事件,应该在更改文本字段之前触发:

Dim WithEvents textField As Outlook.OlkTextBox

当然,当启动outlook和edit消息时,脚本不会被执行。所以我想,对于初学者,我需要对实际的文本编辑器进行参考。我该怎么做?

我的问题基本上是,当我尝试编辑任何Outlook消息时如何执行此代码:

Private Sub textField_BeforeUpdate(Cancel As Boolean)
    MsgBox "Nope!"
    Cancel = True
End Sub

1 个答案:

答案 0 :(得分:0)

尝试write事件。

Private WithEvents myItem As MailItem 

Private Sub Application_Startup()
    Set myItem = ActiveInspector.CurrentItem 
End Sub

Private Sub myItem_Write(Cancel As Boolean) 
    MsgBox "Nope!"
    Cancel = True
End Sub