| Forum: สอบถามปัญหา Notes ทางด้านเทคนิค |
| Tags1: | Created on Oct 13, 2009, 4:50 PM by gm445566/9Notes|Topic Responses: 4 |
| &action=openDocument&documentId=2BC6 |
เข้าใจแล้วครับ ก็ตามที่ผมบอก มันไม่มี function (default)มาตราฐาน การส่ง mail ที่อยากได้ ต้องไปเขียน code ส่ง mail เอาเองครับ
Sub sendmail
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim docmail As NotesDocument
Set db=ss.CurrentDatabase
Set docmail=New NotesDocument(db)
docmail.Form="Memo"
docmail.subject="Your subject"
docmail.sendto="abc@xxx.co.th"
docmail.Principal="aaa aaa"
docmail.Body="Your body"
Call docmail.Send(True)
End Sub
[b]Text[/b] [b]Principal[/b] |
|