tak********

2022/1/22 11:18

22回答

Outlookの受信メール振り分けについて教えて下さい。

Outlookの受信メール振り分けについて教えて下さい。 仕分け機能では特定の文字を含むのような方法しかなく、件名なしを設定することが出来ませんでした。 「件名なし」で受信したメールを自動的に削除する方法はありませんでしょうか。 もしくは受信フォルダから別フォルダへの振り分けが出来ればと思っております。 vbaで出来るのではと思っていろいろ探してみましたが、思うようなものがなく質問した次第です。 何卒よろしくお願いいたします。

メール | Visual Basic・258閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0
kky********

2022/1/23 8:02

一例です。 受信トレイの下に「件名なし」のフォルダを作成して下さい。 件名がないメールを受信すると自動でそのフォルダへ移動させます。 ThisOutlookSession に下記をコピペして下さい。 Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) Dim myNameSpace As Object Dim objId As Object Dim myInbox As Folder Set myNameSpace = GetNamespace("MAPI") Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).Folders.Item("件名なし") Set objId = myNameSpace.GetItemFromID(EntryIDCollection) If objId.Subject = "" Then objId.Move myInbox End If End Sub

画像
tak********

質問者2022/1/23 12:45

ご回答ありがとうございます。 コピペして件名なしメールを送ってみましたが、受信トレイに残ったままとなってしまいます。 原因わからないため、ご教授頂けますと幸いです。

ThanksImg質問者からのお礼コメント

いろいろと細かい質問にもお答え頂きありがとうございます。 おかげさまで、望んでいた仕分けが出来るようになりました。 ありがとうございました。

お礼日時：1/23 14:45

その他の回答（1件）

0
m3_maki0

2022/1/22 15:51

受信フォルダから移動の場合です。 Sub Sample1() Dim Infld As Folder Dim fldTo As Folder Dim strFolder As String Dim cnt As Long strFolder = "タイトルなし" Set Infld = Session.GetDefaultFolder(olFolderInbox) With Infld On Error Resume Next Set fldTo = .Folders(strFolder) If Err <> 0 Then Set fldTo = .Folders.Add(strFolder) End If On Error GoTo 0 For cnt = .Items.Count To 1 Step -1 If .Items(cnt).Subject = "" Then .Items(cnt).Move fldTo End If Next End With End Sub 受信時に振り分けるなら Application_NewMailEx について調べてください。