Outlook Expressで送信対象メッセージ及び下書きが印刷出来ません。
尚、受信及び送信済メッセージは印刷出来ます。
やはり、メモ帳とかに貼付けなければ印刷は出来ないのでしょうか?
すみませんがどなたか教えて下さい。
よろしくお願いします。

A 回答 (1件)

下書きとてちゃんと印刷出来ますよ。


具体的にはどのような状態になるのでしょうか?
フォルダーの最適化をやってみましたか?

この回答への補足

下書きに保存しても、メニューの印刷がグレーになっています。
フォルダの最適化もしてみました。

補足日時:2002/04/03 09:48
    • good
    • 0

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

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

QIEでのページの送信及びページのリンクの送信について

現在IE6.0を使用しております。IEより現在閲覧しているページをメールで送る場合、[ファイル]→[送信]で[ページを電子メールで]又は[リンクを電子メールで]を選択し、メールが立ち上がって送信しますが常時使用しているメーラーがALメールなのでALメールで送りたいと思うのですが設定はどのようにすればよいのでしょうか?お教えください。

Aベストアンサー

ソフトではこんなのもあります フリーウェアです。
IEカスタマイザ用 コントロールパネルファイル
http://www2s.biglobe.ne.jp/~yyyy/

私も別のメーラーを設定するだけのために使っています
#レジストリを直接いじる方法を
#忘れてしまったので(^^;

Q送信トレイは空なのに送信ミスのメッセージ

クリスマスのメッセージを数十件まとめて送信したところ、2通がサーバーの受け取り拒否で送信不可となってしまいました。
それ以降、OE6で送受信するたびにまずこの2通の送信が始まり、送信に失敗しましたのエラーメッセージが出ます。(受信には問題ありません。)
送信トレイには何もないのですが、この不思議な送信、どうしたらよいのでしょうか。
この2通のメールアドレスの削除、スキャンデスク、ディスククリーン、デフラグまではやってみました。
何かのウィルス感染でしょうか?
OSはWIN98SEです。
よろしくお願い致します。

Aベストアンサー

「送信トレイ」をクリックして
「表示」→「現在のビュー」→

「すべてのメッセージを表示」
になっていますか?

それでも駄目なら

新しく構成し直した方が手っ取り早いかも

Q【マクロ】2度貼付けを実行すると一つのセルに文字列が入った状態で貼付けされます。

初めて投稿します。
エクセルのマクロ初心者の質問です。

CSVファイルを読み込み、そこにあるデータを今現在開いているシートへ貼り付けを行う際に、一度目は特に問題ないのですが、隣のシートを開いて再度実行すると、何故か同じような貼り付けにならずにAセルからPセルに入っている文字列が全てAセルに結合されたような形で貼付けされます。

一度ファイルを閉じて再度開き、実行すると問題はないのですが、なにかコードが間違っているのでしょうか?

マクロ初心者で、頓珍漢な事を言っているかもしれませんが、どなたかお知恵をお貸しください。

よろしくお願いします。


Sub データー抽出()

Dim csvfilename As String

csvfilename = Application.GetOpenFilename("CSV ファイル , *.csv")
Workbooks.Open Filename:=csvfilename

' Copy CSV File
LastRow = Range("A65536").End(xlUp).Row
Range("A1:P" & CStr(LastRow)).Select
Selection.Copy
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True

' Paste
Range("A1").Select
ActiveSheet.Paste

初めて投稿します。
エクセルのマクロ初心者の質問です。

CSVファイルを読み込み、そこにあるデータを今現在開いているシートへ貼り付けを行う際に、一度目は特に問題ないのですが、隣のシートを開いて再度実行すると、何故か同じような貼り付けにならずにAセルからPセルに入っている文字列が全てAセルに結合されたような形で貼付けされます。

一度ファイルを閉じて再度開き、実行すると問題はないのですが、なにかコードが間違っているのでしょうか?

マクロ初心者で、頓珍漢な事を言っているかもしれ...続きを読む

Aベストアンサー

こんにちは。
私の印象としては、

ActiveSheet.Paste

ふつうなら、クリップボードに保存したものは、その前にExcelの中で大きな作業をする(保存やクローズ)と消えてしまうような気がしましたから、これが実行できること自体が意外なのです。それで、コード自体は問題ないとは思うのですね。

まあ、私ごときの技術で、人のコードの良い悪いなんていうのは、分不相応かもしれませんが、内容的には、その問題さえなければ、満点だと思います。

原因なのですが、たぶん、[データ]-[区切り位置]のユーティリティが初期化されていないのが原因ではないか、と思いました。まず、その部分をダミーを使って戻してみてください。(図を付けました)

最初に書いたように、クリップボードそのものよりも、コピーしたものがオブジェクトである以上は、その中身が問題になってくるわけです。

わたし流に書けば、また違うコードになりますが、それは後にします。

マクロの提案としては、

1. CSVファイルを開けて、
2. その範囲をコピーして
3. そのブックを閉じて
4. そして、アクティブになったシートに貼り付ける

この4と3を入れ替えたらどうか、という提案をしたいのです。直接の原因には触れていませんから、解決策にはなりませんが。

こんな感じです。
'//
Sub データ抽出2()
  Dim Csvfilename As String
  Dim AcSheet As Worksheet
  Dim LastRow As Long
  Dim myRng As Range
  
  Set AcSheet = ActiveSheet
  Csvfilename = Application.GetOpenFilename("CSV ファイル , *.csv")
  
  With Workbooks.Open(Filename:=Csvfilename)
    LastRow = .ActiveSheet.Range("A65536").End(xlUp).Row
    Set myRng = .ActiveSheet.Range("A1:P" & CStr(LastRow))
    myRng.Copy AcSheet.Range("A1")
    Application.DisplayAlerts = False
    .Close
    Application.DisplayAlerts = True
  End With
End Sub
'//
'-------------------
私のやり方も、あくまでもトレーニングとして考えてみました。

もともと、Open fn ~ For Input As は、わたしのテンプレートに入れてあったので、そのまま抜き出しました。複数のものをインポートできますが、最近は、ネットからダウンロードしたファイルは、UTF-8 のCSVファイルがあるので、しんきちさんのようなスタイルのほうがベターなのようです。あくまでも、以下は、SJISを元にした造りになっています。そのために、UTF-8 to SJIS 変換プログラムを入れるとしたら、かなり大掛かりになってしまいます。

'//
Sub CSVImport()
  Dim Fname As Variant, fn As Variant
  Dim FNo As Integer
  Dim TextLine As String
  Dim Ar As Variant
  Dim i As Long, j As Long, indx As Long
  '複数選択有り
  Fname = Application.GetOpenFilename("CSV ファイル , *.csv", , , , True)
  If TypeName(Fname) <> "Variant()" Then
    Exit Sub
  End If
  For j = 1 To UBound(Fname)
    i = 1 '貼り付け開始行
    FNo = FreeFile()
    fn = Fname(j)
    Open fn For Input As #FNo
    Application.ScreenUpdating = False
    Do While Not EOF(FNo)
      Line Input #FNo, TextLine
      Ar = Split(TextLine, ",")
      Cells(i, 1).Resize(1, UBound(Ar) + 1).Value = Ar
      i = i + 1
    Loop
    Close #FNo
    indx = ActiveSheet.Index
    If j < UBound(Fname) Then  '自動的に次のシートを開けるか、増やす
      If indx < Worksheets.Count Then
        Worksheets(indx).Next.Select
      Else
        Worksheets.Add After:=Worksheets(Worksheets.Count)
      End If
    End If
    Application.ScreenUpdating = True
  Next j
End Sub

こんにちは。
私の印象としては、

ActiveSheet.Paste

ふつうなら、クリップボードに保存したものは、その前にExcelの中で大きな作業をする(保存やクローズ)と消えてしまうような気がしましたから、これが実行できること自体が意外なのです。それで、コード自体は問題ないとは思うのですね。

まあ、私ごときの技術で、人のコードの良い悪いなんていうのは、分不相応かもしれませんが、内容的には、その問題さえなければ、満点だと思います。

原因なのですが、たぶん、[データ]-[区切り位置]のユーティリティ...続きを読む

Q受信出来るのですが、送信が出来ません。

ソフトはoutlook2003を使用しています。

ノートPCを利用しています。
会社では普通に送受信共に異常無いのですが、
自宅で使用しようとすると、受信は問題なく出来るのに
送信が全く出来ません。

エラーメールが返ってくるわけでもなく
反応していないような状態です。
送信ボタンを押しても、送信トレイに残ったままの
状態で、送受信ボタンを押しても
反応がありません。よく質問に書いてあるような
「メールを送信するとエラーが出ます」という感じではなく、
「ずっと送信中の様な感じでいつまで経っても送信が完了しない」
と言った方が適切です。


会社でoutlookを立ち上げると送信し始めて
異常なく送信が完了します。
この様な状態では会社に来るまで返信が出来ない
状況なので、非常に困っています。

どなたかお分かりになられる方がいらっしゃいましたら
是非、教えてください。

Aベストアンサー

会社と自宅ではしようしているプロバイダが違うので、エラーに成っていると思われます(会社内にメールサーバが設置されている環境では会社外のネットワークからメールは送信できないような設定にしていると思います)
メールサーバの設定状況によりますが、POPbeforeSMTPの設定をしていれば自宅からでも送信可能です。
システム管理者に問い合わせるのが良いかと思います。

どうしても返信したいのであれば、個人用のメールアカウントを作成し、送信すれば良いのでは?

Qメモ帳の
をエクセル用に ALT+ENTERに一括変換したい。メモ帳自体のENTER改行も全て抹殺消去したい。

メモ帳で作ったHTMLを、エクセルの一つのセル内にコピーしたいのですが、この時、改行<BR>をALT+ENTERに一括変換したいのです。
また、メモ帳で改行しているENTERのコードも抹殺削除しないと不要な改行まですると思います。
以上の2つの作業が一括でできたら更に良いと思いますが方法が判りません。
また、メモ帳のように単純なフリーソフトで改行を最初からALT+ENTERで扱えたり、改行コード変換が簡単なフリーソフトがありましたら是非、ご紹介下さい。

Aベストアンサー

こんばんは。

>最後の正規表現以外のURLは、表示が拒否されました
もう一度、掲示します。すみません。
区切れのないURLを掲示すると、画面が広がるので、分かち書きしたのがいけなかったようです。

正規表現は、Perl 準拠のほうがよいのですが、Windowsの場合は、かなり表現力が落ちます。それでも、なんとか、Webサイトの情報を拾ってきてくれますので、他のものを使わずに、Windowsのものを使っています。

参考URL:http://www.microsoft.com/japan/msdn/columns/scripting/scripting051099.asp


人気Q&Aランキング

おすすめ情報