作成者	カテゴリ	返答の対象		公開
omamu 03/12/1999 02:51 PM		ノーツメールの１行あたりの文字数制限方法

Bodyフィールドの値を下記のようにチェックするしか
ないのでは？

iCnt = 0 : iLineCnt = 0
'アイテムの長さだけ１文字ずつチェックを続ける
Do While iCnt <= Len(Item.Text)
'現在の文字が改行コードなら１行文字数変数を初期化
'それ以外の文字なら１行文字数変数をインクリメント
If (ASC(Mid(Item.Text , iCnt , 1)) = 13 Or _
(ASC(Mid(Item.Text , iCnt , 1)) = 10 Then
iLineCnt = 0
Else
iLineCnt = iLineCnt + 1
End If
If iLineCnt > 40 Then
〜４０文字を超えているときの処理〜
Exit Do
End If
Loop