はじめまして。ノーツスクリプト初心者です。（VBAはなんとか） 添付ファイルを自動で保存したくエージェントを作成しています。スクリプトをコピーさせてもらって、実行したところ「Ｏ001 オブジェクト変数が設定されていません」というエラーが発生して、「If ( rtitem.Type = RICHTEXT ) Then」の行でストップしてしまいます。 実は、このスクリプトをコピーする前に、ノーツのヘルプにあるスクリプトを実行しても同じエラーが発生してしまいました。 ノーツのバージョンは4.61です。「rtitem」はVariant型で宣言しているので、エラーの原因がわからなく困っています。どなたかご存知でしょうか。 サンプルにさせていただいたスクリプトは、以下です。 よろしくお願いします。 Sub detachFiles( ) Dim s As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim rtitem As Variant Dim fileCount As Integer fileCount = 0 Set db = s.CurrentDatabase Set collection = db.AllDocuments Set doc = collection.GetFirstDocument Do Until doc Is Nothing Set rtitem = doc.GetFirstItem( "RichText" ) If ( rtitem.Type = RICHTEXT ) Then Forall o In rtitem.EmbeddedObjects If ( o.Type = EMBED_ATTACHMENT ) Then fileCount = fileCount + 1 Call o.ExtractFile( "c:\temp\" & o.Source ) End If End Forall End If Set doc = collection.GetNextDocument(doc) Loop End Sub