teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

誤記の修正

2020/06/12 07:56

投稿

koyamashinji
koyamashinji

スコア45

title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,5 @@
1
- ■のように、IEオブジェクト作成時、
1
+ ■のように、IEオブジェクトやOutlookオブジェクト作成時、
2
- レイトバインディングした場合のみ、下記のエラーが出ます。
2
+ レイトバインディング(?)した場合のみ、下記のエラーが出ます。
3
3
 
4
4
  どのようなロジックでこのエラーが起きてしまうのでしょうか。
5
5
  回避方法を教えてください。
@@ -18,4 +18,15 @@
18
18
  'エラーが出ない
19
19
  Dim objIE As InternetExplorerMedium
20
20
  Set objIE = New InternetExplorerMedium
21
+ ```
22
+ ###Outlookオブジェクトの作成時
23
+ ```
24
+ 'エラーが出る
25
+ Dim OLobj As Outlook.Application
26
+ Set OLobj = GetObject(, "Outlook.Application")
27
+ ```
28
+ ```
29
+ 'エラーが出ない
30
+ Dim OLobj As Outlook.Application
31
+ Set OLobj = New Outlook.Application
21
32
  ```

1

誤記の修正。

2020/06/12 07:56

投稿

koyamashinji
koyamashinji

スコア45

title CHANGED
File without changes
body CHANGED
@@ -1,5 +1,5 @@
1
- ■のように、IEオブジェクトやOutlookオブジェクト作成の際
1
+ ■のように、IEオブジェクト作成
2
- レイトバインディング(?)した場合のみ、下記のエラーが出ます。
2
+ レイトバインディングした場合のみ、下記のエラーが出ます。
3
3
 
4
4
  どのようなロジックでこのエラーが起きてしまうのでしょうか。
5
5
  回避方法を教えてください。
@@ -18,15 +18,4 @@
18
18
  'エラーが出ない
19
19
  Dim objIE As InternetExplorerMedium
20
20
  Set objIE = New InternetExplorerMedium
21
- ```
22
- ###Outlookオブジェクトの作成時
23
- ```
24
- 'エラーが出る
25
- Dim OLobj As Outlook.aApplication
26
- Set OLobj = GetObject(, "Outlook.Application")
27
- ```
28
- ```
29
- 'エラーが出ない
30
- Dim OLobj As Outlook.Application
31
- Set OLobj = New Outlook.Application
32
21
  ```