1

次のマクロを使用して、スペル チェックを行い、Outlook 電子メールを送信しようとしています。

Sub SpellIt()
Dim oMail As Outlook.MailItem
Dim oDoc As Word.Document

Set oMail = Application.ActiveInspector.CurrentItem
Set oDoc = Application.ActiveInspector.WordEditor

oMail.Save    
oDoc.Content.LanguageID = wdGerman

oDoc.CheckSpelling

oMail.Save

oMail.Send
End Sub

言語を明示的にドイツ語に設定できるようにする必要があり、Content.LanguageID を使用して設定できることがわかりましたが、これには件名が含まれていません。件名の言語を設定するにはどうすればよいですか? もちろん、ドキュメント全体に設定できればさらに良いのですが、LanguageID を .Document に適用することはできません。

何か案は？

ありがとう、レト

4

1 に答える 1

0

wordeditor は、電子メールの本文で使用されます (特定の条件では null になります)。したがって、そのように操作することはできません。

oMail.Subject は、件名のテキストを取得します。それを新しいドキュメントにコピーして、スペルチェックを行ってから、元に戻すことができると思いますか? または、既知の範囲でwordeditorに挿入してから、件名を確認して元の範囲を削除します。

于 2009-05-29T12:24:37.947 に答える