กำลังทำระบบ survey อยู่หรือเปล่าครับ
Dim s As New NotesSession
Set w = New NotesUIWorkspace
Set s = New NotesSession
Set db = s.CurrentDatabase
Set note = New NotesDocument(db)
note.SendTo = ""
note.SubjectTo = ""
If Not w.DialogBox("NamesPrompt", True, True, False, False, False, False, "Send Mail", note) Then
Exit Sub
End If
Set memo = New NotesDocument(db)
memo.SendTo = note.SendTo
memo.Subject = note.Subject
Set item = memo.ReplaceItemValue("_ViewIcon", 58)
memo.SendDate = Now
memo.From = s.UserName
memo.Form = "Memo"
Call memo.Send(False)
:yellow_cool.gif: |