office2000を使用してます。
Excelでボタンをクリックするのみであらかじめ作られたメッセージがメールで送信されるマクロを作成中です。
Private Sub CommandButton2_Click()
Dim OLApp As Outlook.Application
Dim mItem As Outlook.MailItem
Set OLApp = CreateObject("Outlook.Application.9")
Set mItem = OLApp.CreateItem(olMailItem)
With mItem
.Recipients.Add("abcd@abcd.co.jp").Type = olTo
.Subject = "明日の件"
.BodyFormat = olFormatPlain
.Body = "明日、久しぶりに会えるのを" & _
"楽しみにしています。" & vbCr & _
"それじゃ。"
.Send
End With
Set mItem = Nothing
Set OLApp = Nothing
End Sub
このように作成したのですがうまくいきません。
エラーで「オブジェクトは、このプロパティまたはメソッドをサポートしていません」と出ます。参照設定も行ったのですが、どうしてでしょうか?どなたかお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは。
>.BodyFormat = olFormatPlain
これは、OL2002 のプロパティではありませんか?
たぶん、Versionが違うと思います。それを無しにすれば、コードは通るはずです。
No.3
- 回答日時:
こんにちは。
KenKen_SPさん、pa-man2goさんいつも読ませていただいております。
>参照設定(Microsoft Outlook 9.0 Object Library ?)している
>のなら、改めて CreateObject する必要はありません。
たぶん、pa-man2goさんは、どこかのサンプルコードを見ておつくりなったものだと思います。
時々、他でも、参照設定をしながら、CreateObjectを使うケースを見かけるのですが、これは特別なもので、確か、Outlookは、マルチユース で、他のExcelやWordのシングル・ユースのアプリケーションのオートメーション・オブジェクトと違い、CreatObjectでオブジェクトを作っても、ホストアプリケーションを指すために、こういうことをするのではないかと思うのです。
これは、MSDNでも紹介されていたかと思います。
No.2
- 回答日時:
こんにちは。
KenKen_SP です。BodyFormat は Outlook2002以降 のプロパティーです。Outlook2000
では使えません。
また、参照設定(Microsoft Outlook 9.0 Object Library ?)している
のなら、改めて CreateObject する必要はありません。
Private Sub CommandButton2_Click()
Dim OLApp As Outlook.Application
Dim mItem As Outlook.MailItem
Set OLApp = New Outlook.Application
Set mItem = OLApp.CreateItem(olMailItem)
With mItem
.Recipients.Add("abcd@abcd.co.jp").Type = olTo
.Subject = "明日の件"
’.BodyFormat = olFormatPlain ’Outlook2002 Later Only
.Body = "明日、久しぶりに会えるのを" & _
"楽しみにしています。" & vbCr & _
"それじゃ。"
.Send
End With
Set mItem = Nothing
Set OLApp = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
EXCEL VBA:埋め込みグラフオブ...
-
ExcelのVBAで、IEを最大化の状...
-
上下の位置揃えについて
-
テキストボックス中の文字列の...
-
VBからPDFファイル自動生成...
-
VBA:オートシェイプの線の長...
-
EXCEL VBA オートシェイプナン...
-
Word2007数式でIMEオン/オフを...
-
VBAからPDFファイルにパスワー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
-
VB6 ファイルのリネームの仕方
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
Excel VBAでWordの複数ファイル...
-
パソコンへの「Dropbox...
-
VBAがブレークモードになっ...
-
VBA シートのボタン名を変更し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
EXCEL VBA オートシェイプナン...
-
VBAからPDFファイルにパスワー...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAで Set wb = Sheets(1).Cop...
-
AccessVBAで「dim dbs as datab...
-
上下の位置揃えについて
-
Excel VBA Collection.add で R...
-
UserForm1.Showでエラーになり...
-
VBScriptでファイルの日時順(降...
-
テキストボックス中の文字列の...
-
ExcelVBAでのNZ関数について
-
PowerPointVBAでスライドマスタ...
おすすめ情報