2016-09-02 266 views
2

私は、このコードでOutlookのメールをプレビューしています。操作の試行に失敗しました。エラー

Dim wordDoc As Word.Document '<--- 
Dim objMail as Object 

Set objOutlook = CreateObject("Outlook.Application") 
Set objMail = objOutlook.CreateItem(0) 
Set attach = objMail.attachments 
Set wordDoc = objMail.GetInspector.WordEditor 

私の問題は、そこにエラーを返すSet wordDoc = objMail.GetInspector.WordEditorこの行が言っていることだ回:

「操作は失敗しようとしました。」

これは私を吊り下げ続け、私はそれをどのように処理するのか分かりません。どんな助け?

+1

DimOOutlook As Objectでエラーが発生しました。あなたはobjOutlookを使用していますが、問題はないと思います。コードは毎回私のために働く... –

+0

どのプロパティまたはメソッド呼び出しが例外/エラーを正確に生成しますか?プロパティとメソッド呼び出しのチェーンを壊し、別々のコード行で宣言しようとしましたか? –

答えて

0

まず、プロパティとメソッド呼び出しのチェーンを壊して、別々のコード行で宣言することをお勧めします。これにより、問題の原因となっているプロパティまたはメソッドを見つけることができます。

Dim inspector as Outlook.Inspector 

Set inspector = objMail.GetInspector 
Set wordDoc = inspector.WordEditor 

どこで、いつ、あなたは、Wordエディタを取得しようとするのですか?それはItemSendイベントハンドラですか?

+0

メッセージをプレビューする前に使用しています。 – ramj

0

Inspectorがまだ表示されていないとWordEditorが失敗することがあります。 なぜWordオブジェクトが必要ですか?

+0

私はExcelからOutlookにアイテムをコピーする必要があります。 – ramj

+0

なぜWordオブジェクトが必要ですか?なぜHTMLBodyプロパティを適切にフォーマットされたHTMLに設定しないのですか? –

関連する問題