Forum: สอบถามปัญหา Notes ทางด้านเทคนิค |
Tags1: | Created on Mar 6, 2008, 2:37 PM by 9notes/9Notes|Topic Responses: 11 |
&action=openDocument&documentId=129A |
Dim db as NotesDatabase
Dim s as New NotesSession
Dim newdoc As NotesDocument
Dim rtitem As Variant
set db= s.CurrentDatabase
set newdoc = New NotesDocument(db)
newdoc.Form = "Memo"
newdoc.Subject = "หัวข้อจดหมายในเมลล์"
Set rtitem = New NotesRichTextItem(newdoc,"Body")
Call rtitem.AppendText( "Add text to the rich text item" )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText("Add more text to rich text item")
newdoc.SendTo = "ABC@hotmail.com, Def@hotmail.com"
Call newdoc.Send(true)
End If
:yellow_cool.gif:
[quote] newdoc.Form = "Memo"
Set rtitem = New NotesRichTextItem(newdoc,"Body")
ถ้าต้องการใส่ข้อความไปใน E-mail โดยอัติโนมัติ ต้องเซ็ตค่าอย่างไรค่ะ
[/quote] |
|