Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9446 / 13644 ツリー ←次へ | 前へ→

【27274】メールの送信 hiro 05/8/4(木) 8:52 質問[未読]
【27285】Re:メールの送信 小僧 05/8/4(木) 11:42 発言[未読]
【27288】Re:メールの送信 hiro 05/8/4(木) 12:33 お礼[未読]

【27274】メールの送信
質問  hiro  - 05/8/4(木) 8:52 -

引用なし
パスワード
   いつも参考にしています。
環境はwinXP&98SE Excel2000 です。

Excelからメールを送信出来るようコードを書きました。
メール送信にはOutLookを使用して送信しています。

ExcelのBookはPC1(Win98SE)にあってそれを他のPC(WinXPや98SE)からLAN越しにつついてます。
各PCのOutLookバージョンは2000と2002が混在しています。

コードはExcelのBookはPC1(Win98SE)、OutLook2000用に書いてます。
参照設定もMicrosoft OutLoop 9.0 Object Librayにチェックを付けてます。

OutLook2000のあるPCが使用しても問題ないのですが、OutLook2002のPCが使用
してから、OutLook2000のPCが使用するとエラーになります。
そのエラーというのが
参照設定のMicrosoft OutLook 10.0 Object Librayが「参照不可」となりエラーになるのです。
全PCをOutLook2002にすれば良いんでしょうけど、貧乏なのでそうもいきません…。
なにかエラーを回避出来るよい方法あるでしょうか?
コードは下記の通りです(サンプルですけど)
よろしくお願いします。

Sub ボタン1_Click()

Dim myOl  As New Outlook.Application
Dim myMail As Outlook.MailItem
Dim myBody As String
Dim hyodai
Dim addres

addres = "*****@*****.co.jp"

hyodai = "メール送信"
myBody = "届きました?"

Set myMail = myOl.CreateItem(olMailItem)
  With myMail
    .Subject = hyodai
    .Body = myBody
    .To = addres
    .Send
  End With

Set myMail = Nothing

myBody = ""

End Sub

【27285】Re:メールの送信
発言  小僧  - 05/8/4(木) 11:42 -

引用なし
パスワード
   ▼hiro さん:
こんにちは。

OutLookに関する知識はほとんどないのですが、

> Dim myOl  As New Outlook.Application
→Dim myOl  As Object
> Dim myMail As Outlook.MailItem
→Dim MyMail As Object

>addres = "*****@*****.co.jp"
>
>hyodai = "メール送信"
>myBody = "届きました?"

→'追加
Set myOl = CreateObject("Outlook.Application")
> Set myMail = myOl.CreateItem(olMailItem)
→Set myMail = myOl.CreateItem(0)

として参照設定を外してもだめでしょうか?

【27288】Re:メールの送信
お礼  hiro  - 05/8/4(木) 12:33 -

引用なし
パスワード
   小僧さん返信ありがとうございます。

教えていただいたコードでバッチリ動きました。

ありがとうございました。

9446 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free