かなり長い電子メールメッセージの最後にテキストをすばやく挿入したい場合は、最後までスクロールするのに少し時間がかかります。 この記事では、VBAを介してメール本文の末尾または先頭にすばやくジャンプできる方法を紹介します。
長いメールメッセージを閲覧している際、メッセージ本文の末尾や先頭に素早く移動したい場合があります。例えば、送信者の署名を確認したい場合、末尾に移動する必要があります。通常、末尾に到達するまでスクロールし続けなければなりませんが、これは少々面倒です。そこで、ここではワンクリックで末尾または先頭にジャンプできるVBAコードをご紹介します。
メッセージ本文の最初または最後にすばやくジャンプする
- まず最初に、Outlookプログラムを起動してください。
- 次に、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() '現在のメールがワードエディターを使用している場合のみ機能します Set objCurrentMail = 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() If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.Start Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub
- その後、メッセージウィンドウのクイックアクセスツールバーにXNUMXつの新しいサブルーチンを追加することをお勧めします。
- まず、メッセージウィンドウでメールを開きます。
- 次に、クイックアクセスツールバーの下矢印をクリックします。
- ドロップダウンリストから、「その他のコマンド」を選択する必要があります。
- 次のウィンドウで、次のスクリーンショットのようにマクロをクイックアクセスツールバーに追加できます。
- 最後に、一連の「OK」をクリックして変更を保存します。
- 今後は、クイックアクセスツールバーにあるボタンをクリックするだけで、メールの先頭または末尾にジャンプできるようになります。ボタンは以下の画像のように表示されます。
PSTファイルが危険にさらされた場合はどうなりますか
PSTファイルはエラーや破損の影響を受けやすいという事実のため、PSTデータを保護するために最善を尽くす必要があります。 たとえば、PSTファイルを定期的にバックアップする必要があります。 また、取り戻せるように 破損したPST 時間内のデータ、あなたは次のような強力なツールを近くに置いたほうがいいです DataNumen Outlook Repair。 PSTの問題の修正とPSTデータの取得を専門としています。
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL Server 修正します と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com