|
フリーのメールソフトでサンダーバードを利用しているのですが、チェックボックスにチェックを入れると同時にメールソフトが起動するようにしたいのですが開けません、ちなみにアウトルックだと下記の記述で開く事が可能なのですが、このサンダーバードのメールソフトをチェックボックスにチェックすることにより自動的にメールソフトを起動する方法はありますでしょうか?
<アウトルックの記述>
Private Sub チェック9_click()
Me.テキスト11 = Now
Set m_olapp = CreateObject("outlook.application")
Set m_namespace = m_olapp.getnamespace("mapi")
Set m_folder = m_namespace.getdefaultfolder(6)
m_folder.display
モジュールには下記の記述によりVBA宣言をしております。
Option Compare Database
Dim m_olapp As Object
Dim m_namespace As Object
Dim m_folder As Object
Dim m_item As Object
Dim m_recvitem As Object
|
|