スクリプト/改行処理 - Notesってノーツと読むんだよ。

スクリプト>改行処理

簡単に例を挙げておきます。

例１と例２については、
MessageboxでもInputBoxでもテキストフィールドでも
リッチテキストフィールドでも使用できます。
（InputBoxについては一番下の注意を参照すること）

例３については、リッチテキストフィールドのみで
文字の修飾をするときの改行に使ってください。
※ Call richText.AppendText(kai) を
Call rtitem.AddNewLine(1) と書き換えても結構です。

例１

Dim MSG As String
MSG =|リンク文書の承認依頼を開始します。
次の承認者へメールを送信しました。|
Messagebox MSG, 64, "メール送信完了"

例２

Dim MSG As String
Dim Syouninsya As String
Syouninsya = "ｎａｍｉ" '次の承認者の名前
MSG = "リンク文書の承認依頼を開始します。" + Chr(10) + _
Syouninsya + "さんへメールを送信しました。"
Messagebox MSG, 64, "メール送信完了"

例３

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase

Dim MYMEMO As NotesDocument '新規文書を作成
Set MYMEMO = db.CreateDocument
MYMEMO.Form = "memo" 'メール用フォームの指定(*1)
MYMEMO.subject = db.Title + "ＤＢ：承認依頼メール" 'タイトル
MYMEMO.SendTo = "[e-mail]" '宛先

Dim richstyle As NotesRichTextStyle
Set richstyle = session.CreateRichTextStyle

kai = Chr(10) '改行コード

'BodyフィールドをNotesRichTextItemクラスに宣言
Dim richText As New NotesRichTextItem(MYMEMO, "Body")

'フォント→黒色/14Point/Bold
richstyle.NotesColor = COLOR_BLACK
richStyle.FontSize = 14
richStyle.Bold = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText(kai)
Call richText.AppendText(db.title + "ＤＢからの承認依頼メールです。")
Call richText.AppendText(kai)
Call richText.AppendText(kai)

'フォント→赤色/14Point/Bold*
richstyle.NotesColor = COLOR_RED
richStyle.FontSize = 14
richStyle.Bold = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText("●速やかにご承認をお願います！！")
Call richText.AppendText(kai)
Call richText.AppendText(kai)
Call richText.AppendText("－ 以上 －")

'ﾘｯﾁﾃｷｽﾄ作業を一時保存
Call MYMEMO.Save(False,True)
Call MYMEMO.Send( True )
'一時保存した文書をデータベースより削除
Call MYMEMO.Remove(True)

注意

R5のとき、例１と例２をInputBoxで使うと2行目の下が微妙に欠けます。
R7では問題ありません。（もしかしてR6から直ってるかも。）

Dim MSG As String
MSG = "昨日の晩御飯は何をたべました？" + Chr(10) + _
"入力してください。"
Ans = Inputbox$(MSG)

クロスリファレンス

• ＠関数の改行

ツッコミ・コメント

---