Outlookを使用すると、ユーザーはカスタムのフォローアップリマインダーと期日を使用して電子メールにフラグを立てることができます。 ただし、手動で選択して有効にする必要があります。 この記事では、VBAを介して自動的にそれを実現する方法を説明します。
Outlookには「フラグ」機能があり、重要な電子メールをより便利にフォローアップできます。 メールを作成できるだけでなく、優先フラグアイコンを選択したり、特定の期日を割り当てたり、メールにカスタムリマインダーを指定したりすることもできます。 間違いなく、とても便利です。
しかし、多くのユーザーはまだ別の欲求を持っています。 彼らは、Outlookが、フラグが立てられた電子メールに比較的固定されたカスタムの期日とリマインダー時間を自動的に指定できることを望んでいます。 したがって、VBAなどの他の手段に繰り返す必要があります。 ここでは、OutlookVBAを使用してこの要件を実現する方法を説明します。 詳細については、以下をお読みください。
Outlookの電子メールにフラグを立てるときにリマインダーと期日を自動設定する
- 最初に、Outlookプログラムを起動します。
- 次に、「Alt + F11」キーのショートカットを押して、VBAエディターにアクセスできます。
- 次に、次の「Microsoft Visual Basic for Applications」ウィンドウで、左側の「ThisOutlookSession」プロジェクトをダブルクリックする必要があります。
- 続いて、以下のVBAコードをコピーして貼り付けます。
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
'You can change the following lines as per your actual needs
With objMail
.FlagRequest = "Type the custom follow-up notes here"
.MarkAsTask olMarkNextWeek
'Set a custom due date
.TaskDueDate = Now + 7
.ReminderSet = True
'Set a custom reminder time
.ReminderTime = Now + 6.5
.Save
End With
End If
End If
End Sub
- その後、通常どおりこのコードに署名する必要があります。
- 後でVBAエディターを終了し、Outlookマクロ設定の変更に進んで、デジタル署名されたマクロのみを有効にします。
- 最後に、新しいマクロを有効にするにはOutlookを再起動する必要があります。その後、試してみてください。
- メールアイテムの末尾にあるフラグアイコンをクリックします。
- すぐに、フラグは自動的に「来週のフラグ」アイコンに変更されます。
- そして、その期日とリマインダー時間は、コードの事前設定に対応して設定されます。
Outlookがクラッシュしても慌てる必要はありません
Outlookが予期せずクラッシュすると、ほとんどの人はOutlookデータが破損するのではないかとパニックに陥ります。しかし、十分な対策を講じていれば、実際にはパニックになることはありません。最も重要な対策は、PSTファイルを定期的にバックアップすることです。さらに、優れたツールを使ってデータを復元することもできます。 破損したOutlook などのデータ DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL修正 と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com