迷惑メールメッセージを「迷惑メール」というIMAPフォルダに移動するIMAPメールサービス(fastmail.fm)を使用しています。 Outlookは迷惑メールを「迷惑メール」にアーカイブします。
Outlookを変更して、デフォルトではなく迷惑メール用の「迷惑メール」フォルダを使用するようにするにはどうすればよいですか。
カスタムOutlook構成を構築するよりも、Outlookが作成するJunk E-Mail
フォルダーにスパムの可能性を保存する方がはるかに簡単ですfastmail.fmを構成。
Options > Spam/Virus Protection
に移動しますSpam Protection
の横にあるCustom
をクリックしますJunk Mail
からJunk E-Mail
に変更して保存します。 まず、deletefastmailの「迷惑メール」フォルダが現在存在する場合。次に、以下の手順を使用します。
インストール コラボレーションデータオブジェクト 。 (直接インストールされないことに注意してください。ダウンロードしたファイルは、実際のインストーラーを解凍するだけです。迷惑です。)
Outlookで、VisualBasicエディターを開きます。 Alt+F11、またはツール-マクロ-Visual Basic Editor
VBウィンドウで、Tools-Referencesに移動し、リストでCDO 1.2.1
を有効にします。
左側のツリーで、Project1-Microsoft Office Outlook-ThisOutlookSessionを開きます。 )、このスクリプト(元のソース)を開いたウィンドウに貼り付けます。
Sub CDORenameFolder()
Dim outlookApp As Outlook.Application
Dim cdoSession As MAPI.Session
Dim folder As Outlook.MAPIFolder
Dim cdoFolder As MAPI.folder
Dim newName As String
Set outlookApp = New Outlook.Application
Set cdoSession = New MAPI.Session
cdoSession.Logon ShowDialog:=False, NewSession:=False
Set folder = outlookApp.Session.PickFolder()
Set cdoFolder = cdoSession.GetFolder(folder.EntryID, folder.StoreID)
newName = InputBox("Rename '" + cdoFolder.Name + "' to:", "Rename folder", cdoFolder.Name)
If newName <> "" Then
cdoFolder.Name = newName
cdoFolder.Update
End If
cdoSession.Logoff
Set cdoSession = Nothing
Set outlookApp = Nothing
End Sub
押す F5 (またはRun-Run Sub)、およびThisOutlookSession.CDORenameFolder
マクロを実行します。フォルダ選択ウィンドウがポップアップするはずです。 IMAPアカウントで、[迷惑メール]フォルダー(Outlookで作成されたフォルダー)を選択し、[OK]をクリックします。
(「ユーザー定義タイプが定義されていません」というメッセージが表示された場合は、CDOのインストールやアクティブ化を忘れています。)
はい、それがまさに私が今Outlookを嫌う理由です。
それを行う方法はありませんが、迷惑メールが配置されているフォルダーからデフォルトの迷惑メールフォルダーに移動するルールを作成できます。