質問編集履歴
2
ソースコードの改善
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -49,12 +49,12 @@
|
|
|
49
49
|
Set MyFolder_B = MymailFolder.Folders("B")
|
|
50
50
|
|
|
51
51
|
|
|
52
|
-
For i = 1 To MyFolder_A.
|
|
52
|
+
For i = 1 To MyFolder_A.Items.Count
|
|
53
53
|
If InStr(MyItem.To, "test") > 0 Then
|
|
54
54
|
|
|
55
55
|
Set MyItem = MyFolder_A.Items(1)
|
|
56
56
|
MsgBox MyItem.To 'これを消すとエラーが発生する
|
|
57
|
-
Set
|
|
57
|
+
Set MyItem = Aplication.ActiveExplorer().Selection(1)
|
|
58
58
|
MyItem.GetInspectoy.Disply
|
|
59
59
|
MyItem.GetInspector.CommandBars.ExcuteMso ("MoveToOneNote")
|
|
60
60
|
MyItem.Close (0)
|
1
ソースコードの改善
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -42,11 +42,13 @@
|
|
|
42
42
|
Dim MyFolder As Outlook.MAPIFolder
|
|
43
43
|
Dim MyNameSpace As Outlook.Namespace
|
|
44
44
|
|
|
45
|
-
Set MyNameSpace = Aplication.GetName
|
|
46
|
-
Set MyFolder_A = objNAMESPC.Folders(olFolderInbox).Folders("A")
|
|
47
|
-
Set MyFolder_B = objNAMESPC.Folders(olFolderInbox).Folders("B")
|
|
48
45
|
|
|
46
|
+
Set MyNameSpace = Aplication.GetNamespace("MAPI")
|
|
47
|
+
Set MyMailFolder = MyNameSpace.GetDefaultFolder(olFolderInbox)
|
|
48
|
+
Set MyFolder_A = MymailFolder.Folders("A")
|
|
49
|
+
Set MyFolder_B = MymailFolder.Folders("B")
|
|
49
50
|
|
|
51
|
+
|
|
50
52
|
For i = 1 To MyFolder_A.Ttems.Count
|
|
51
53
|
If InStr(MyItem.To, "test") > 0 Then
|
|
52
54
|
|
|
@@ -57,6 +59,7 @@
|
|
|
57
59
|
MyItem.GetInspector.CommandBars.ExcuteMso ("MoveToOneNote")
|
|
58
60
|
MyItem.Close (0)
|
|
59
61
|
MyItem.Move MyFolder_B
|
|
62
|
+
|
|
60
63
|
|
|
61
64
|
End If
|
|
62
65
|
Next i
|