###やりたいこと
自分の書いているメールの文字列の長さがある一定に達したら、
警告メッセージを表示したい。
返信メールを書く場合、オリジナルのメールの文字列も
一緒にカウントしてしまいます。
新しく返信のために入力した文字列だけを、
数える方法はありますでしょうか?
###マクロのコード
Sub LenCount()
Dim NewMail As Object
Set NewMail = Application.ActiveInspector.CurrentItem
Dim NewMailString As String
Dim LenCount As Integer
NewMailString = NewMail.Body
LenCount = Len(NewMailString)
If LenCount > 300 Then
MsgBox (“ストップ!長いメールは迷惑です!”)
End If
End Sub
###補足情報(言語/FW/ツール等のバージョンなど)
Outlook 2010
あなたの回答
tips
プレビュー