|
いつも参考にしています。
環境は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
|
|