Script库里面的中文字符会时不时的变成乱码。

是的。你去修改发送邮件的代码。邮件最后是通过MIME封装的。

MIME Header里可以设置Content-Type属性，如果是文本就是text/plain,charset=...，网页HTML格式就是text/html.charset=..。

一般中文编码是GB2312、GBK或者UTF-8。

Dim mime As NotesMimeEntity

Dim stream As NotesStream

Dim HTML As String

...

Set stream = session.CreateStream  

Call stream.WriteText(HTML)  

普通文本

  Call mime.SetContentFromText(stream,\"text/html;charset=GB2312\",ENC_NONE)

富文本

  Call mime.SetContentFromText(stream,\"text/plain;charset=GB2312\",ENC_NONE)

Call stream.Close

Call mime.EncodeContent(ENC_NONE)  

只是给你大概个参考示意。