質問編集履歴
2
誤字脱字の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,11 +8,9 @@
|
|
|
8
8
|
連絡先グループを含む連絡先グループを作成したい。
|
|
9
9
|
|
|
10
10
|
### 発生している問題・エラーメッセージ
|
|
11
|
-
|
|
12
|
-
```
|
|
13
11
|
エラーメッセージは発生していません。
|
|
14
12
|
見かけ上は、エラーが無く、下記コードが終了します。
|
|
15
|
-
|
|
13
|
+
|
|
16
14
|
|
|
17
15
|
### 該当のソースコード
|
|
18
16
|
|
|
@@ -75,13 +73,6 @@
|
|
|
75
73
|
|
|
76
74
|
### 試したこと
|
|
77
75
|
|
|
78
|
-
|
|
76
|
+
結果のイメージ
|
|
79
|
-
上記コードを実行したところ、メールアドレスだけの連絡先グループは上手く設定できます。
|
|
80
77
|
|
|
81
78
|
|
|
82
|
-
|
|
83
|
-
Outlookをマウスを操作して、手動で「全社」にA社、B社、C社を追加すると手く設定できます。
|
|
84
|
-
### 補足情報（FW/ツールのバージョンなど）
|
|
85
|
-
|
|
86
|
-
ここにより詳細な情報を記載してください。
|
|
87
|
-
|
1
A、B、C社の作成コードを削除しました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
Excel VBAにて、Outlookの連絡先グループを
|
|
1
|
+
Excel VBAにて、Outlookのアドレス帳に連絡先グループを作成したい。
|
test
CHANGED
|
@@ -43,47 +43,6 @@
|
|
|
43
43
|
Dim oDistList As Outlook.DistListItem
|
|
44
44
|
Dim addAddress As Recipient
|
|
45
45
|
|
|
46
|
-
'--------------------------------------------------------
|
|
47
|
-
Set oDistList = oItems.Add(olDistributionListItem)
|
|
48
|
-
oDistList.DLName = "A社"
|
|
49
|
-
|
|
50
|
-
Set addAddress = Session.CreateRecipient("A社の経理<Akeiri@example.com>")
|
|
51
|
-
addAddress.Resolve
|
|
52
|
-
oDistList.addMember addAddress
|
|
53
|
-
|
|
54
|
-
Set addAddress = Session.CreateRecipient("A社の営業<Aeigyou@example.com>")
|
|
55
|
-
addAddress.Resolve
|
|
56
|
-
oDistList.addMember addAddress
|
|
57
|
-
|
|
58
|
-
oDistList.Save
|
|
59
|
-
'--------------------------------------------------------
|
|
60
|
-
|
|
61
|
-
'--------------------------------------------------------
|
|
62
|
-
Set oDistList = oItems.Add(olDistributionListItem)
|
|
63
|
-
oDistList.DLName = "B社"
|
|
64
|
-
|
|
65
|
-
Set addAddress = Session.CreateRecipient("B社の経理<Bkeiri@example.com>")
|
|
66
|
-
addAddress.Resolve
|
|
67
|
-
oDistList.addMember addAddress
|
|
68
|
-
|
|
69
|
-
oDistList.Save
|
|
70
|
-
'--------------------------------------------------------
|
|
71
|
-
|
|
72
|
-
'--------------------------------------------------------
|
|
73
|
-
Set oDistList = oItems.Add(olDistributionListItem)
|
|
74
|
-
oDistList.DLName = "C社"
|
|
75
|
-
|
|
76
|
-
Set addAddress = Session.CreateRecipient("C社の経理<Ckeiri@example.com>")
|
|
77
|
-
addAddress.Resolve
|
|
78
|
-
oDistList.addMember addAddress
|
|
79
|
-
|
|
80
|
-
Set addAddress = Session.CreateRecipient("C社の営業<Ceigyou@example.com>")
|
|
81
|
-
addAddress.Resolve
|
|
82
|
-
oDistList.addMember addAddress
|
|
83
|
-
|
|
84
|
-
oDistList.Save
|
|
85
|
-
'--------------------------------------------------------
|
|
86
|
-
|
|
87
46
|
'*****思うように動かない箇所*****************************
|
|
88
47
|
Set oDistList = oItems.Add(olDistributionListItem)
|
|
89
48
|
oDistList.DLName = "全社"
|