宏执行回复创建或MESSA [英] Macro execution RESPOND TO CREATE OR MESSA

问题描述

Outlook的拼写在公司内部不起作用，我创建了一个宏来清除"不检查拼写或语法"。但现在我想运行它而不是我在创建新消息或回复时自动手动运行

The spelling of the outlook does not work within the firm and I created a macro to clear the "Do not check spelling or grammar". But now I want to run it instead of me manually run automatically when you create a new message or reply

Private Sub Application_Startup()
' Check for an open email message ' Updated for Outlook 2010 on 11/1/11
If Inspectors.Count = 0 Then Exit Sub
If ActiveInspector.CurrentItem.Class <> olMail Then Exit Sub
' Iterate through the paragraphs and set the noproofing property to false
Dim wdEd As Object, intCount As Integer, par As Object
Set wdEd = ActiveInspector.WordEditor
For intCount = 1 To wdEd.Paragraphs.Count
    Set par = wdEd.Paragraphs.Item(intCount).Range
    If Len(par.Text) > 4 Then
        ' Try to skip any forwarded or replied-to message
        If LCase(Left(par.Text, 6)) = "from: " Then Exit For
        ' Otherwise, remove the immunity to spell checking
        par.noproofing = False
    End If
Next
' Report and clean up
Debug.Print "Examined: " & intCount & " of " & wdEd.Paragraphs.Count
Set wdEd = Nothing
End Sub

推荐答案

Hello Jose

Hello Jose

感谢您使用MSDN论坛

Thanks for using the MSDN Forums

这是一个西班牙语论坛，我需要将您的主题转移到正确的论坛，以便您获得所需的解决方案。

This is a spanish forum, I need to move your thread to the correct one so you can get the solution you need.

关心和不要怀疑再次访问我们的MSDN论坛

Regards and don't doubt to visit us again at your MSDN Forums

这篇关于宏执行回复创建或MESSA的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！