作成者	カテゴリ	返答の対象		公開
松葉 優 05/10/2004 07:51 PM		NotesからOutlookへの起動

アクションボタンを作成し、実行を [ロータススクリプト] にして、
Click イベント に以下を貼り付ければ、Windows API で mailto: を呼び出せ、ご要望を満たせます。
※ Outlook Express が、既定のメールハンドラになっている必要があります。


Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (Byval hwnd As Long, _
Byval lpOperation As String, _
Byval lpFile As String, _
Byval lpParameters As String, _
Byval lpDirectory As String, _
Byval nShowCmd As Long) As Long

Dim ws As New NotesUIWorkSpace
Dim uidoc As NotesUIDocument
Dim cmdline As String

Set uidoc = ws.CurrentDocument
cmdline = "mailto:" & uidoc.FieldGetText("Email") 'フィールド名が Email の場合

Call ShellExecute(GetDesktopWindow, "open", cmdline , Chr$(0),"",5)