質問編集履歴
2
コードの挿入を使用
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -40,7 +40,9 @@
|
|
|
40
40
|
outlookもxlsmもわざわざ開いて閉じてをせずに、両方とも開きっぱなしで動かすものでしょうか？
|
|
41
41
|
|
|
42
42
|
質問が多くなりましたが、どうかご指南お願いします。
|
|
43
|
+
|
|
43
44
|
--------------------------------------------------------------------
|
|
45
|
+
```ここに言語を入力
|
|
44
46
|
Sub macro1()
|
|
45
47
|
'①メールが到着したら件名に特定の文字(※●●●●●●●●)が「含まれるか」を判断し、含まれる場合だけ動作に進む。
|
|
46
48
|
Dim objId As Object
|
|
@@ -48,8 +50,8 @@
|
|
|
48
50
|
Set objId = myNamespace.GetItemFromID(EntryIDCollection)
|
|
49
51
|
|
|
50
52
|
If InStr(objId.Subject, "●●●●●●●●") Then
|
|
51
|
-
debug.print "目的のメールが到着しました。"
|
|
53
|
+
debug.print "目的のメールが到着しました。"
|
|
52
|
-
'②
|
|
54
|
+
'②到着した↑のメールを自動で開く
|
|
53
55
|
MailItem.Display
|
|
54
56
|
'③今まさに開いているメールオブジェクト本文の◇から始まる5文字を取得する
|
|
55
57
|
Dim objItem As Object
|
|
@@ -70,7 +72,7 @@
|
|
|
70
72
|
Dim ws As Worksheet
|
|
71
73
|
|
|
72
74
|
Dim strFile As String
|
|
73
|
-
'④予めデスクトップ上に存在するxlsmを開く
|
|
75
|
+
'④予めデスクトップ上に存在するxlsmを開く
|
|
74
76
|
strFile = "C:\Users\〇〇〇〇〇\Desktop\▲▲▲▲▲▲.xlsm"
|
|
75
77
|
|
|
76
78
|
Set objExcel = New Excel.Application
|
|
@@ -80,4 +82,5 @@
|
|
|
80
82
|
ws.Range("A1") = mystr
|
|
81
83
|
End If
|
|
82
84
|
End If
|
|
83
|
-
End Sub
|
|
85
|
+
End Sub
|
|
86
|
+
```
|
1
不要なコードの削除
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -54,8 +54,6 @@
|
|
|
54
54
|
'③今まさに開いているメールオブジェクト本文の◇から始まる5文字を取得する
|
|
55
55
|
Dim objItem As Object
|
|
56
56
|
Dim objIns As Inspector
|
|
57
|
-
Dim lngStart As Long
|
|
58
|
-
Dim lngEnd As Long
|
|
59
57
|
Dim Ch_Lng1 As Long
|
|
60
58
|
Dim mystr As String
|
|
61
59
|
|
|
@@ -66,8 +64,7 @@
|
|
|
66
64
|
|
|
67
65
|
If Ch_Lng1 > 0 Then
|
|
68
66
|
mystr = Mid(objItem.Body, Ch_Lng1, 5)
|
|
69
|
-
|
|
70
|
-
|
|
67
|
+
|
|
71
68
|
Dim objExcel As Excel.Application
|
|
72
69
|
Dim wb As Workbook
|
|
73
70
|
Dim ws As Worksheet
|