
こんばんは
以下の、プログラムでエクセルVBAからノーツメールを起動させることができメールは送れました。
その後、それぞれの変数にどんな値が格納されているのか確認したところ、
ノーツが起動しWknSesのなかみを確認したところ、Emptyと表示されておりました。
なぜ、そのなかにはいっている値など確認するこができないのでしょうか?
でも、ノーツが起動し動作しております。
CreateObject("Notes.NotesSession")は、wknsesになにを格納しているのでしょうか?
Set wkNSes = CreateObject("Notes.NotesSession")
たとえば、
'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")
だどすると Objieという変数をウオッチリストで確認するとpathの情報などがはいっていることを確認できました。
以上 よろしくおねがいたします。
-------------------
Const EMBED_ATTACHMENT As Integer = 1454
Public Sub SendNotesMail()
Dim wkNSes As Object ' lotus.NOTESSESSION
Dim wkNDB As Object ' lotus.NOTESDATABASE
Dim wkNDoc As Object ' lotus.NOTESDOCUMENT
Dim wkNRtItem As Object ' lotus.NOTESRICHTEXTITEM
Dim wkNAtt As Object ' lotus.NOTESEMBEDDEDOBJECT
Dim AttFName As String ' 添付ファイル名(フルパス)
' Notesのセッションを起動する
Set wkNSes = CreateObject("Notes.NotesSession")
' NotesDatabaseオブジェクトを作成し、そのデータベースを開く
Set wkNDB = wkNSes.GETDATABASE("", "")
' NotesDBをユーザーのメールDBに割り当てた後に開く
wkNDB.OpenMail
' NotesDBに文書を作成し、新規文書をオブジェクト変数にセットする
Set wkNDoc = wkNDB.CREATEDOCUMENT()
' 件名をセットする
wkNDoc.Subject = "テスト(タイトル)"
' 宛先をセットする
wkNDoc.SendTo = Array("belie.kondo@mbh.nifty.com")
'wkNDoc.CopyTo = Array("xxx@xxx")
'wkNDoc.blindCopyTo = Array("xxx@xxx")
' 文書にリッチテキストアイテムを作成する
Set wkNRtItem = wkNDoc.CreateRichTextItem("BODY")
' 本文をセットする
With wkNRtItem
.APPENDTEXT "本文(1行目)"
.ADDNEWLINE 1
.APPENDTEXT "本文(2行目)"
.ADDNEWLINE 2
' 添付ファイル名をセットする
AttFName = "D:\TEST\Book1.xls"
' ファイルを添付する
Set wkNAtt = .EmbedObject(EMBED_ATTACHMENT ,"" ,AttFName)
.ADDTAB 1
.ADDNEWLINE 1
End With
' メールを送信する
wkNDoc.Send False
' オブジェクト変数を解放する
Set wkNAtt = Nothing
Set wkNRtItem = Nothing
Set wkNDoc = Nothing
Set wkNDB = Nothing
Set wkNSes = Nothing
MsgBox "メール発信", vbOKOnly + vbInformation
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBAにて動的にCheckBOXを...
-
bmp画像をjpegやpng画像に圧縮...
-
CFileDialogでフォルダだけを選...
-
CoCreateInstanceでエラーになる。
-
戻り値がクラスオブジェクト
-
ワイルドカード<?>と型パラメー...
-
正規表現
-
オブジェクトレベルとメタレベル
-
VBAからノーツを起動
-
パワーポイントのVBAでテキスト...
-
直線と点の距離を使って当たり...
-
Java認定試験3級の問題です。 ...
-
エクセルVBAで、条件に一致する...
-
「タイプ初期化子が例外をスロ...
-
複数のクラスで共通した関数を...
-
c++,ある関数のクラスから別の...
-
Fileの読み取り専用の解除
-
変数名の付け方
-
インスタンス参照でアクセスで...
-
そんなにお金がなくても年に1度...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで =EMBED("Acrobat Docu...
-
VBA 同じ名前のオブジェクトを...
-
EXCEL VBAにて動的にCheckBOXを...
-
パワーポイントのVBAでテキスト...
-
C#でフォームのオブジェクト名...
-
VBAのWindowオブジェクトとWork...
-
Object型からDouble型へのキャスト
-
時間帯判定をする。
-
C++で*thisは何を指しているの...
-
ワイルドカード<?>と型パラメー...
-
Accessの連結・非連結オブジェ...
-
COMコンポーネントって何?
-
newは明示的にした方が良いのか?
-
ビジュアルC++でボタンの有...
-
CoCreateInstanceでエラーになる。
-
ResultSet での問題
-
多人数のじゃんけんプログラム
-
printerオブジェクトでのテキス...
-
サーブレットのクラス図について。
-
VBSでのステートメントの末尾が...
おすすめ情報
早速のご回答ありがとうございます。
具体的にどういうことでしょうか?
実際にそこにはいっている値をみることはできないのでしょうか?
こんばんは。
値 変数なし 型 Objectとなっておりました。
EMPTYではありませんでした。
すみません。