ken3memoの下書き日記

グループ日記にコードを書くテスト

07:23 |

グループ日記にコードを書いてみる。

'Access97の場合
Private Sub コマンド0_Click()
On Error GoTo Err_コマンド0_Click

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True

Exit_コマンド0_Click:
    Exit Sub

Err_コマンド0_Click:
    MsgBox Err.Description
    Resume Exit_コマンド0_Click
    
End Sub

こんな感じで載せてみた。

Set oApp = CreateObject("Excel.Application")

ツイートする

あとで探す、チェックする。 Outlook SendUsingAccount 使用方法を

09:54 |

送信アカウントの切り替え

Outlook2007なら SendUsingAccount ってアカウントがあるみたいです。

outlook VBA SendUsingAccount で検索

http://www.google.co.jp/search?hl=ja&q=outlook+VBA+SendUsingAccount&lr=lang_ja&aq=f&oq=

残念ながら2003や2002だと無いみたいです。※ホントカヨ？

(outlook2003のヘルプで探したのですが、

出てきませんでした。私の見落としで普通に使えるならいいのですが。。。)

あとで調べる,あとで見る

また今度の約束 と お化け は出たことがない？

[あとで調べる]と[あとで見る]も見たことがない？

なんてことにならないように・・・調べないと・・・

ツイートする