作成者カテゴリ 
公開
EMIKO
10/26/2004 10:48 AM
クライアント
ノーツサーバノーツクライアントサーバOSクライアントOSネットワークプロトコル
6.x6.xWindows 2000 ServerWindows XP ProTCP/IP

VBAでノーツメールを送信する方法

EXCEL/VBAで作成したボタンを実行すると自動でノーツメールを送信する処理を行っています。
クライアントがWindows95の時は正常に動作していたのですが、XPに入れ替わり、以下のタイミングでエラーが起こるようになってしましました。エクセルのバージョンは97、ノーツクライアントは6.0です。
解決策をご存知の方、教えていただけますでしょうか。
よろしくお願いいたします。

Sub MAILSEND(prmTo As String, prmSubject As String, prmBody As String)
' パラメータは、(宛先、件名、本文)

' 変数定義
Dim session As Object
Dim db1 As Object
Dim db2 As Object
Dim doc As Object
Dim svname As String
Dim mailfl As String
Dim strTo(3) As String

' システム環境変数からサーバー名とメールファイル名を取得する。
Set session = CreateObject("notes.notessession")
   ↑ここでエラー
     実行時エラー429
     「ActiveXコンポーネントはオブジェクトを
      作成できません。」

svname = session.GetEnvironmentString("MailServer", True)
mailfl = session.GetEnvironmentString("MailFile", True)


[Previous Main Document]
VBAでノーツメールを送信する方法 (EMIKO) * 現在地 *
. . Re: VBAでノーツメールを送信する方法 (松葉 優)
[Next Main Document]