作成者	カテゴリ	返答の対象		公開
きゃぴちゃん 11/15/2004 04:03 PM		Lotus Scriptで新規文書保存時にメールが送信されない

なるほど、Errはエラーコードで、Erlが行番号なのですね！
思いっきり勘違いしていました。(初心者なのですいません。)

それと、いろいろ実験してみましたが、ノーツクライアントからだと何の問題もなく
メールが送信されますが、Webブラウザ(IE)から入力すると「エラー 13／24行 : T003 型が一致しません。 」のメッセージが表示され、メールが送信されませんでした。

24行目の型が違うということは、どういうことなのでしょうか？
doc.*で呼んでいるフィールドはすべてテキストなのですが…。
-----------------------------------------------------------------------------
Sub Initialize

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim maildoc As NotesDocument
Dim strblindCopyTo(1 To 2) As String
strblindCopyTo(1) = ""
strblindCopyTo(2) = ""

Set db = session.CurrentDatabase
Set doc = session.DocumentContext
Set maildoc = New NotesDocument(db)

Set rtitemB = New NotesRichTextItem( maildoc, "Body" )

On Error Goto ErrorOccurrence

Call rtitemB.AppendText("輸入手配が入力されました。ご確認ください。")
Call rtitemB.AddNewLine(2)
Call rtitemB.AppendText("連　番：　")
Call rtitemB.AppendText(doc.SEQ_HEADER(0))
Call rtitemB.AppendText("-")
Call rtitemB.AppendText(doc.SEQ(0))
Call rtitemB.AddNewLine(1)
Call rtitemB.AppendText("日　付：　")
Call rtitemB.AppendText(doc.MAILDATE1(0))
Call rtitemB.AddNewLine(1)
Call rtitemB.AppendText("購入先：　")
Call rtitemB.AppendText(doc.SELLER(0))
Call rtitemB.AppendText("　")
Call rtitemB.AppendText(doc.SELLER_NAME(0))
Call rtitemB.AddNewLine(2)
Call rtitemB.AppendText("以上です。")

maildoc.Form="Memo"
maildoc.SendTo=doc.MAILWH
maildoc.Subject="[輸入手配]新規入力されました"

Call maildoc.Send(False)

Exit Sub

ErrorOccurrence:
Dim z As Integer
z% = Erl()
Print "エラーが発生しました。<BR>下記内容を管理者へ問い合わせて下さい。<BR><BR>" &_
"エラー" & Str(Err) & "／" & Cstr(z%) & "行 : " & Error$
Exit Sub

End Sub