VBからOUTLOOKに文字を送るには？

インスパ 2005-11-08 01:11:30 No: 92481

VBとOUTLOOKの連携を図っています。ワードへの文字転送は以前、作ったことがあるのですが、OUTLOOKの場合はどのようにプログラムして良いかわかりません。ワードで作った時はコマンドとテキストを二つ使って

Private Sub command1_click()
    text2.text=text1.text
    open "key2.txt" For Append As #2
    Write #2, text2.text
    Close #2
End Sub

Private Sub command2_click()
Activedocument.Content.Inseretafter Text2.tText
End Sub

で成功しました。プログラムに詳しい方、参考になるサイトをご存知の方、ご指南願います。

ヤマ 2005-11-08 10:55:28 No: 92482

MAPIを使ってアクセスできないでしょうか？

インスパ 2005-11-09 07:10:04 No: 92483

ヤマさん、レスありがとうございます。
当方、最近、ＶＢを学び始めたため、MAPIのことを知りませんでした。
ググって調べてみます。

ヤマ 2005-11-09 13:53:56 No: 92484

Office製品
はオブジェクトとして利用できると思うので、
参照設定か後から呼び出してやるかで
使えるようになると思うのですが。
Dim olApp As Outlook.Application
Set olApp = New Outlook.Application
これでどうでしょうか？

Dim olApp As Outlook.Application
Set olApp = New Outlook.Application

MSDNにのってました。