アレルギー対策、自宅でできる効果的な方法とは?

Lotus Notes 5.0.4aを使用しています。
添付ファイルがついたメールにはファイルのアイコンがついていますが、この添付ファイルを削除したい場合、たいていはアイコンを削除すれば添付ファイルが削除されます。
しかし、ときどきメールにあるアイコンをすべて削除しても添付ファイルが残っているときがあります。
(メールには添付ファイルアイコンがないのに、件名の左側に添付ファイルありを示すクリップのマークがある)。
このとき文書のプロパティのフィールドを見ると「$File」フィールドが残っていて、添付ファイルが残っていることがわかります。
このアイコンのなくなっている添付ファイルを削除するためには、どうすればよいでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (4件)

下記のようなスクリプトをフォームのボタンに実装すればいいんでない?


もっともメールテンプレートを触れなきゃだめだけどさ(苦笑)
ユーザレベルでは文書削除しかないかもね。
あとは削除したいファイル名を手入力させるとかすればOKかね?
別な方法は$ファイルがあったらあるだけ削除しろてプログラム組むくらいしかないかな?

Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim uid As NotesuiDocument
Dim rt As Variant
Set uid = ws.CurrentDocument
Set doc = uid.Document
Set rt = doc.GetFirstItem( "Body" )
If ( rt.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.Remove
Call doc.Save( True, True )
End If
End Forall
End If
ユーザでなんとかしたいのだろうからアドバイスですね(苦笑)
    • good
    • 1

なんか最近そんな話題をIBMのサイトで見たことがありますね



http://www-1.ibm.com/support/docview.wss?rs=607& …
    • good
    • 0

問題のメール(メール本文には添付ファイルアイコンがないのに、受信ビューにおいて件名の左側に添付ファイルありを示すクリップのマークがある)は、


もしかして、外部から送信されてきたHTMLかつJAVA等の何かしらのスクリプトが埋め込まれたメールではないでしょうか?

以下の操作で再現できました。

1 HOTMAILからNotes宛にJAVAスクリプト埋め込みHTMLメールを送信。添付ファイルあり(エクセル文書)。

2 Notesにメール到着。受信ビューの件名左側に添付ファイルありを示すクリップマークが当然ついている。$Fileフィールドもある)

3 メール本文を開き、エクセル文書のアイコンを削りとって本文を保存する。添付ファイルがなくなった状態に。

4 あらためて受信ビューを見ると、添付ファイルがなくなったのに、依然として、受信ビューの件名左側に添付ファイルありを示すクリップマークがついている。$Fileフィールドもある)

もしそうだとするならば、メール自体にスクリプトが埋め込まれているので、削除する方法はないと思います。
    • good
    • 1

WindowsXPをお使いですか?もしそうならば、メールの添付ファイルのアイコンが見えないという障害の可能性が考えられますので


WINDOWSの[画面のプロパティ] で [画面の色] の設定を 16 ビットに変更し、ノーツを再起動してみてください。
この設定で添付ファイルのアイコンは正常に表示される・・・はずですが、5.0.11でしか確認しておりませんので、5.0.4でうまくいくかどうかわからないです、ごめんなさい。

この回答への補足

回答ありがとうございます。
この問題は、画面の色の問題でアイコンが「見えない」問題とは別と考えています。
「見えない」だけでしたら、選択して削除や保存ができるのですが、今回の問題は、「アイコンがない」のに文書のプロパティに$Fileフィールドがあり、ビューにもクリップマークがあって、その添付ファイルが削除できないということです。

補足日時:2005/12/29 09:36
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QNotesのメールのローカルへの保存方法

Notesのメールのローカルへの保存する方法ってありませんか?
「ファイル」→「書き出し」という方法でローカルに保存していたのですが他によい方法はありませんか?

Aベストアンサー

お使いのバージョンは?

レプリカを使うのが楽だと思います。
ワークスペースでメールDBのアイコンを右クリックして「複製」を実施して下さい。

保存用のファイル名を指定すれば、レプリケータ画面がローカルにコピーできます。
サーバーから取得した後にローカルからサーバへ同期を行う(Pull → Push)ので便利です。

QIPアドレスだとPingが通るのに、PC名だとPingが通らない

コマンドで、
Ping IPアドレス
とすると通るのですが、
Ping PC名
とするとPingが通りません。

メールもサーバーをIPアドレスを設定すると使えるのですが、
Server名を設定すると使えません。

これは何が悪いのでしょうか?
どうぞよろしくお願い致します。

Aベストアンサー

環境がドメイン運用なのかWorkGroup運用なのかわかりませんが、
HOSTSまたはLMHOSTSにIPアドレスとPC名を記述すれば
名前解決出来ると思いますけど。

Qエクセルでメモリ不足のエラーが出ます

エクセルで2つのファイルを開くと「メモリ不足」のエラーが表示されます。

エクセルで作業をするためにファイル(1.86MBのファイル)を開け、続けて別のファイル(1.80MBのファイル)を開くと「メモリ不足」のエラーが表示されます。2つのファイルのシート数は両方とも75シートです。

教えて!gooに登録されている過去の質問を参考にさせていただきましたが解決しませんでした。
ちなみに参考にした回答は次の通りです。
1.そのファイルを別名保存してファイルが開けるか?
2.そのファイル内のシートの倍率を確認。100%以外のシートがある場合は100%に修正してから別名保存してファイルが開けるか?

当方のパソコン環境は次の通りになっています。
OSはWindowsXP HomeEdition SP2
メモリは512MB
ソフトのバージョンはExcel2000
対象ファイルのサイズは(A)1.86MBおよび(B)1.80MB
対象ファイルのシート数は両方75

みなさま、宜しくお願いいたします。

Aベストアンサー

こんにちは。

>対象ファイルのシート数は両方75

まず、ここがネックですね。

ここで、そのシートの限界値を実験してくれた方がいましたが、空の状態では、百は越えるのですが、何かを入れた状態では、1つのブックで、せいぜい40程度ではなかったか、と記憶しています。それが、二つになった時に、果たしてどうかは、そのときの実験にはありませんが、Excelアプリケーション(全体)として、芳しくないはずです。

また、ぎっしりと配列数式が詰まっていたり、外部参照式が多く入った状態では、解決の見通しが立ちません。配列数式は、Excel2000では、6,000個は使えないはずです。何が、配列数式かは、にわかには区別つかないこともあります。INDEX関数やLOOKUP関数も配列数式に変わることがあります。

また、Excel2000は、公開されていない、メモリ制限があります。「使用可能なメモリ」とヘルプにはありますが、何が使用可能かは、書かれていません。

Excelの使うメモリは、物理的なメモリとは違いますので、その周辺をいじっても、直らないことが多いです。おそらく、それぞれの機能のメモリの割り振りがありますので、トータルの数ではないはずです。#1さんのおっしゃっている「Excel2002/2003/2007等が使えるなら」は、その点で、Excel2002になった時に、内部的な制限がなくなったことを、以前掲示板で知りました。

コントロールツールや画像オブジェクト、プリンタ・ドライバ、アドインなどもExcel用として割り当てられたメモリを使います。

ある程度は、[システム]-[詳細設定]-[パフォーマンス] の値を増やせば直る可能性がありますが、先ほどのメモリの割り振りからすると、Excelのハングの可能性が高いです。

なお、他のブックで同様の問題は出ているとすれば、個人用マクロブックや*.xlbファイルを削除して、Excelの設定をリセットすることによって改善することもあります。

私がお勧めする方法は、ひとつは、データベースファイルにすることと、他は、VBAマクロの効用です。ブックからブックへという作業自体を全て、VBAにさせてしまうことで、メモリ負担を減らします。残念ながら、今のままでは、解決する望みは少ないと思います。

こんにちは。

>対象ファイルのシート数は両方75

まず、ここがネックですね。

ここで、そのシートの限界値を実験してくれた方がいましたが、空の状態では、百は越えるのですが、何かを入れた状態では、1つのブックで、せいぜい40程度ではなかったか、と記憶しています。それが、二つになった時に、果たしてどうかは、そのときの実験にはありませんが、Excelアプリケーション(全体)として、芳しくないはずです。

また、ぎっしりと配列数式が詰まっていたり、外部参照式が多く入った状態では、解決の見...続きを読む

Qノーツのビュー、@If(Status=の式を修正したいです

ノーツのビュー、@If(Status=の式を修正したいです

こんにちは。
とても初歩的なことだと思うので恥ずかしいのですが、一人ではなかなかうまく解決できず、ここで質問させていただきます。
よろしくお願いいたします。

■申請書のフォームに、フィールドを作成しました。
【date】(承認日)
【OverdueDate】(承認日の6ヵ月後)
【Status】(一時保存、申請中、承認済み)

■ビューには、Statusが『申請中』、『承認済み』だけを表示させています。

■『承認済み』の文書のなかで、承認日から6ヶ月経過したものに"●"印をつけたいのです。

それで、ビューの列に、こんな↓関数を書きました。
@If(Status="承認済み"&date<Overdue;"●";"")

『承認済み』の文書すべてに、"●"印がついてしまいます。
不等号の向きを変えると、『申請中』の文書に"●"印がついてしまいます。

文書が承認された日から6ヶ月経過した文書だけに、"●"印をつけるには、どこを修正したらよいか、教えていただけないでしょうか。
よろしくお願いいたします。

ノーツのビュー、@If(Status=の式を修正したいです

こんにちは。
とても初歩的なことだと思うので恥ずかしいのですが、一人ではなかなかうまく解決できず、ここで質問させていただきます。
よろしくお願いいたします。

■申請書のフォームに、フィールドを作成しました。
【date】(承認日)
【OverdueDate】(承認日の6ヵ月後)
【Status】(一時保存、申請中、承認済み)

■ビューには、Statusが『申請中』、『承認済み』だけを表示させています。

■『承認済み』の文書のなかで、承認日から6ヶ月経過したも...続きを読む

Aベストアンサー

どのようなエラーかわかりませんが、タイプが一致していないのではないでしょうか?
比較は文字列と文字列、数値と数値、日付と日付というように合わせる必要があります。

例えば、Dateが文字列なら、以下の要領で。

@ToTime(Date)<@Adjust(@Today;0;-6;0;0;0;0)

Qノーツのメール受信時の相手の名前表示について

標記の件、Lotus Notes 6.5を社内で使用していますが、同メール受信時に相手の名前が漢字で表示されるPCとアルファベットで表示されるPCがあります。

原因及び対策(設定の変更等)をご教示願います。

Aベストアンサー

受信者が日本語で表示される設定はすでに済んでいるようですので、あとはクライアントの設定だけです。

設定についてはこちらをどうぞ。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1141614566

QLotusScript メール作成方法が解りません

lotus script言語で、メールを作成し送信する方法は解るのですが、
送信せず、作成したメールの内容で、メーラーの新規メール作成画面を立ち上げる方法がわかりません。

スクリプト(抜粋)
Set maildoc = db.CreateDocument 'maildoc
Call maildoc.ReplaceItemValue("Form","Memo")
Call maildoc.ReplaceItemValue("SendTo",uidoc.FieldGetText("mail"))
maildoc.CopyTo = uidoc.FieldGetText("itsupport")
Call maildoc.ReplaceItemValue("Subject","テスト")
Set mailritem = New NotesRichTextItem(maildoc,"Body") 'mailritemをBodyとして定義
Call mailritem.AppendText("【テスト】")
Call mailritem.AddNewline(2)
Call mailritem.AppendText("テスト")
Call mailritem.AppendDocLink(uidoc.Document,"")

Call maildoc.Send(False) 'メールを送信する

こんな感じで、普通にメール作成して最後に送信してます。
ここで、最後に送信はせず、このメール内容で新規メール作成画面を立ち上げたいです。

これはボタン内で作成しており、他にも機能をつけてるので、@関数で全体を書き直すことができません。 この新規メール作成の部分だけ@関数使う形なら問題ないのですが、

方法を教えていただけますでしょうか。

lotus script言語で、メールを作成し送信する方法は解るのですが、
送信せず、作成したメールの内容で、メーラーの新規メール作成画面を立ち上げる方法がわかりません。

スクリプト(抜粋)
Set maildoc = db.CreateDocument 'maildoc
Call maildoc.ReplaceItemValue("Form","Memo")
Call maildoc.ReplaceItemValue("SendTo",uidoc.FieldGetText("mail"))
maildoc.CopyTo = uidoc.FieldGetText("itsupport")
Call maildoc.ReplaceItemValue("Subject","テスト")
Set mailritem = New NotesRichTextItem(m...続きを読む

Aベストアンサー

仕様がいまいちわからないのでなんとも言えませんが
多分こんなことがしたいんだろうなぁというソースを書いておきます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim maildb As New NotesDatabase("","")
Call maildb.OpenMail
Set uidoc=ws.CurrentDocument

Set doc = maildb.CreateDocument
Call doc.ReplaceItemValue("Form","Memo")
Call doc.ReplaceItemValue("Subject","テスト")

Set rtitem = New NotesRichTextItem(doc,"Body")
Call rtitem.AppendText("【テスト】")
Call rtitem.AddNewline(2)
Call rtitem.AppendText("テスト")
Call rtitem.AppendDocLink(uidoc.document,"")
Call doc.Save( False, False)
Call ws.EditDocument(True,doc)

ローカルでメールファイルの設定とかきちんとしてあれば
ご自身のメールボックスが開きます
(一部未提示の仕様SendToの指定とか・・・は実装していません)

仕様がいまいちわからないのでなんとも言えませんが
多分こんなことがしたいんだろうなぁというソースを書いておきます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim maildb As New NotesDatabase("","")
Call maildb.OpenMail
Set uidoc=ws.CurrentDocument

Set doc = maildb.CreateDocument
Call doc.ReplaceItemValue("Form","Memo")
Call doc.ReplaceItemValue...続きを読む

QLAN上のEXCELファイルを開くと応答なしになる

会社の共有サーバーにある特定のEXCELファイルを開こうとすると
「応答なし」になり5~10分後ぐらいに開きます。

■環境
 OS:WindowsXP SP3
 ソフト:office 2003
 Excelのファイルサイズ:6MB
 共有サーバー:1UのTeraStation

■現象の特定
・同じ環境下の別PCでは問題なく開くことが出来る。(問題のPCは社内ではスペック高めです)
・LAN上の全てのEXCELファイルで「応答なし」になる訳ではなく
  自動計算が組み込まれているファイルが「応答なし」になる。
・以前は普通に開くことが出来た。(3日ほど前まで)
・ローカル上に一旦ダウンロードして開くとまったく問題ない

■行ったが改善できなかった施策
・Officeの修復・再インストール(設定のリフレッシュ目的
・共有へのアクセスをIPで直アクセス(DHCPへのアクセスラグ?のようなものがないか
・ワークグループから会社ドメインへ参加させる

など、自分なりにあれこれ試してみたのですが、特に変化がありません。
他に目の届いていない原因の可能性があると思うので、どなたかご教授いただければと思います><

会社の共有サーバーにある特定のEXCELファイルを開こうとすると
「応答なし」になり5~10分後ぐらいに開きます。

■環境
 OS:WindowsXP SP3
 ソフト:office 2003
 Excelのファイルサイズ:6MB
 共有サーバー:1UのTeraStation

■現象の特定
・同じ環境下の別PCでは問題なく開くことが出来る。(問題のPCは社内ではスペック高めです)
・LAN上の全てのEXCELファイルで「応答なし」になる訳ではなく
  自動計算が組み込まれているファイルが「応答なし」になる。
・以前は普通に開くことが出来た。(3日ほ...続きを読む

Aベストアンサー

Microsoft Update(windows update) が原因と思われます。
私も似たような症状になり、更新の履歴を見るとoffice2003のアドオンが更新されていました。
復元ポイントで戻して、その更新はupdateしない様にしてあります。

Qwin7で、ごみ箱の実際の場所ってどこですか?

win7で、ごみ箱の実際の場所ってどこですか?
ごみ箱ってデスクトップにあるけど、実際どこにあるんですか?
どこかの隠しフォルダのなかですか?XPの時と違うような気がするんですが・・・

Aベストアンサー

コントロールパネルの「フォルダオプション」で、「表示」のタブの詳細設定で、
「保護されたオペレーティングシステムファイルを表示しない」のチェックを
外すと、Cドライブの直下に「$Recycle.BIN」というフォルダの中に
ごみ箱がある。

QエクセルでPCが変わると印刷範囲が変わる

新しくPCを購入しました。
Windows8、office2013です。
今まではWindowsXP(office2003)、WindowsVista(office2007)、Windows7(office2010)と様々なPCで共有していたエクセルファイルですが、Windows8(office2013)で印刷しようとしたところ、印刷範囲がずれてしまい、困っています。
プリンターが変わると範囲がずれるのは知っていたのですが、今回はプリンターは同じです。
今まで問題なくできていたのになぜ?って感じです。
新しいPCの印刷範囲に合わせてファイルを作り直すと、他のPCでは印刷がずれてしまうので、どうしたものかと悩んでいます。
よい方法はありませんか?

Aベストアンサー

OSが変わると同じドライバでも印刷範囲は変わるかもですね。

OSがデータをプリンタドライバに投げる・・・このインターフェイス
は規定されているんですが、投げた結果を受けてWindows上で
表示する処理と、結果を受けて再度プリンタに投げるデータの
詳細は「インターフェイス」以外決まってない・・・というかMicrosoft
の外部からはわからないんです。

OSが変わると、戻ってくるデータも変わってきますから、ドライバを
作るメーカーも、実際作ってみて「あ、違った」ってことがあります。
特に新しいWindowsではそういうことがあるんです。

同じドライバでずれるなら、メーカーに新しいドライバが上がって
ないか確認した方がいいですが、差し替えたらもっとずれちゃった
ってこともあるんでねえ・・・。頑張って直してください、としか言い
ようがありません。


人気Q&Aランキング

おすすめ情報