我想执行一些文本替换,这些替换对于Microsoft Outlook的自动替换功能来说太复杂了。 Microsoft在GitHub上托管了相当广泛的documentation on Microsoft Outlook VBA scripting。
我开始按 Alt + F11 打开Visual Basic编辑器。这就是我在项目资源管理器中看到的内容:
请注意我不是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
答案 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