質問編集履歴
2
コードの挿入を使用
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -82,7 +82,11 @@
|
|
|
82
82
|
|
|
83
83
|
質問が多くなりましたが、どうかご指南お願いします。
|
|
84
84
|
|
|
85
|
+
|
|
86
|
+
|
|
85
87
|
--------------------------------------------------------------------
|
|
88
|
+
|
|
89
|
+
```ここに言語を入力
|
|
86
90
|
|
|
87
91
|
Sub macro1()
|
|
88
92
|
|
|
@@ -98,9 +102,9 @@
|
|
|
98
102
|
|
|
99
103
|
If InStr(objId.Subject, "●●●●●●●●") Then
|
|
100
104
|
|
|
101
|
-
debug.print "目的のメールが到着しました。"
|
|
105
|
+
debug.print "目的のメールが到着しました。"
|
|
102
106
|
|
|
103
|
-
'②
|
|
107
|
+
'②到着した↑のメールを自動で開く
|
|
104
108
|
|
|
105
109
|
MailItem.Display
|
|
106
110
|
|
|
@@ -142,7 +146,7 @@
|
|
|
142
146
|
|
|
143
147
|
Dim strFile As String
|
|
144
148
|
|
|
145
|
-
'④予めデスクトップ上に存在するxlsmを開く
|
|
149
|
+
'④予めデスクトップ上に存在するxlsmを開く
|
|
146
150
|
|
|
147
151
|
strFile = "C:\Users\〇〇〇〇〇\Desktop\▲▲▲▲▲▲.xlsm"
|
|
148
152
|
|
|
@@ -163,3 +167,5 @@
|
|
|
163
167
|
End If
|
|
164
168
|
|
|
165
169
|
End Sub
|
|
170
|
+
|
|
171
|
+
```
|
1
不要なコードの削除
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -110,10 +110,6 @@
|
|
|
110
110
|
|
|
111
111
|
Dim objIns As Inspector
|
|
112
112
|
|
|
113
|
-
Dim lngStart As Long
|
|
114
|
-
|
|
115
|
-
Dim lngEnd As Long
|
|
116
|
-
|
|
117
113
|
Dim Ch_Lng1 As Long
|
|
118
114
|
|
|
119
115
|
Dim mystr As String
|
|
@@ -134,9 +130,7 @@
|
|
|
134
130
|
|
|
135
131
|
mystr = Mid(objItem.Body, Ch_Lng1, 5)
|
|
136
132
|
|
|
137
|
-
|
|
138
|
-
|
|
139
|
-
|
|
133
|
+
|
|
140
134
|
|
|
141
135
|
Dim objExcel As Excel.Application
|
|
142
136
|
|