NotesとComコンポーネント

Notesメールにはステーショナリーという機能があって、定型メールを登録しておくと、すぐに呼び出して利用できて便利だったのですが、Outlookだと、テンプレートという似た機能はあるのですが、操作の手間が多くて使いづらいので、Notesの標準テンプレートにあるノートブックで文書を書いて、その内容をOutlook経由で転送させるというものを書いてみました。

Sub Click(Source As Button)
'現在の文書を取得
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = ws.CurrentDocument
	
'現在の文書を保存してフィールドの値を確定する			
	If Not uidoc.EditMode Then
		uidoc.EditMode = True
	End If
	Call uidoc.Save
	Call uidoc.Refresh
	
	Dim doc As NotesDocument
	Set doc = uidoc.Document
	
'送信済フラグが有効の場合は終了
	If doc.sendflg(0) = "1" Then
		Exit Sub
	End If
	
'Outlookを起動して、メールの内容をセットして送信する
	Dim OutlookObject As Variant
	Set OutlookObject = CreateObject("Outlook.Application")
	
	Dim ObjectItem As Variant
	Set ObjectItem = OutlookObject.CreateItem(0)
	
	With ObjectItem
		.To = "[e-mail]"       'メール宛先
		.Subject = doc.GetItemValue("Subject")(0)   'メール件名
		.Body = doc.Body     'メール本文
	End With
	ObjectItem.Send
	
'送信済フラグを設定して閉じる
	Dim item As NotesItem
	Set item = doc.ReplaceItemValue( "sendflg", "1" )
	
	doc.SaveOptions = "0"
	Call doc.Save(True,ture)
	
	Call uidoc.Close(True)
	
End Sub

#Comオブジェクト
ComオブジェクトはNotesでMicrosoftのアプリケーションを使いたいときに、メソッドやプロパティ込みで貸してくれる便利なヤツです。Notesと同世代の技術なので色々とお世話になってきました。ExcelはもちろんOffice製品は全てComで呼び出せます。

ただ、Notesと同世代の技術になるため、Edgeのような新しいMicrosoftのアプリケーションを呼び出すことはできません。ブラウザを呼び出すときは CreateObject(" InternetExplorer.Application") の一択です。もちろん、CromeやFireFoxのようなMicroSoft製品でないものは呼び出せません。
色々と複雑な処理をする場合は、バッチファイルを書いてからShell（バッチファイルまでのフルパス）みたいな使い方になります。