かなり長い電子メールメッセージの最後にテキストをすばやく挿入したい場合は、最後までスクロールするのに少し時間がかかります。 この記事では、VBAを介してメール本文の末尾または先頭にすばやくジャンプできる方法を紹介します。
長い電子メールメッセージを表示しているときに、カーソルを最後またはsにジャンプまたは移動できるようにしたい場合があります。tarメッセージ本文のtを自由にすばやく。 たとえば、送信者の署名を確認したい場合は、最後にジャンプする必要があります。 一般に、最後に到達するまで下にスクロールし続ける必要があります。 少し面倒かもしれません。 したがって、ここでは、VBAコードの一部を提供します。これは、最後またはsにジャンプするのに役立ちます。tarワンクリックで。
メッセージ本文の最初または最後にすばやくジャンプする
- 非常に最初に、starOutlookプログラム。
- 次に、Outlookのメインウィンドウで、「Alt + F11」キーボタンを押します。
- 次に、「Microsoft Visual BasicforApplications」ウィンドウに入ります。
- この時点で、空のモジュールを開くか、新しいモジュールを直接挿入する必要があります。
- その後、次のVBAコードをコピーしてそのようなモジュールウィンドウに貼り付ける必要があります。
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd（） '現在の電子メールがワードエディターを使用している場合にのみ機能しますSetobjCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor If Not（objWordDocument Is Nothing）Then VarPosition = objWordDocument.Range.End-1 Set objWordRange = objWordDocument.Range（VarPosition、VarPosition）objWordRange.Select End If End Sub Sub JumpToStart（）そうでない場合（objWordDocument Is Nothing）Then VarPosition = objWordDocument.Range.Start objWordRange = objWordDocument.Range（VarPosition、VarPosition）objWordRange.Select End If EndSubを設定します
- その後、メッセージウィンドウのクイックアクセスツールバーにXNUMXつの新しいサブルーチンを追加することをお勧めします。
- まず、メッセージウィンドウでメールを開きます。
- 次に、クイックアクセスツールバーの下矢印をクリックします。
- ドロップダウンリストから、「その他のコマンド」を選択する必要があります。
- 次のウィンドウで、次のスクリーンショットのようにマクロをクイックアクセスツールバーに追加できます。
- 最後に、一連の「OK」をクリックして変更を保存します。
- 最終的に、これから、あなたはsにジャンプすることができますtar次の画像のように、クイックアクセスツールバーのボタンをクリックするだけでメールを終了できます。
PSTファイルが危険にさらされた場合はどうなりますか
PSTファイルはエラーや破損の影響を受けやすいという事実のため、PSTデータを保護するために最善を尽くす必要があります。 たとえば、PSTファイルを定期的にバックアップする必要があります。 また、取り戻せるように 破損したPST 時間内のデータ、あなたは次のような強力なツールを近くに置いたほうがいいです DataNumen Outlook Repair。 PSTの問題の修正とPSTデータの取得を専門としています。
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL Server 修正します と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com