Forum: สอบถามปัญหา Notes ทางด้านเทคนิค |
Tags1: | Created on Mar 12, 2008, 12:36 AM by fibkids/9Notes|Topic Responses: 11 |
&action=openDocument&documentId=22AE |
ถ้าต้องการส่งเมล์ไปหาคนหนึ่ง ซึ่งคนนี้มีสองเมล์ โดยการส่งเป้นการส่งแบบอัติโนมัติคือจะดึงข้อมู,มาจากตัวแรหนึ่ง ดังนี้
newdoc.Form = "Memo"
If doc.numPeople(0) = 1 Then
newdoc.SendTo = doc.toWho(0)
Else
For i =0 To doc.numPeople(0)-1
Redim Preserve addresses(i)
addresses(i) = doc.toWho(i)
Next
newdoc.SendTo =addresses
End If
newdoc.Subject = "แจ้งเวียนเอกสาร เีืื่ืรื่อง :"+doc.Subject(0)
Set rtitem = New NotesRichTextItem(newdoc,"Body")
Call rtitem.AddNewline(1)
Call rtitem.AppendDocLink(doc,db.Title)
Call rtitem.AppendText("<- - - click to open document.")
'send message
newdoc.Send(False)
Msgbox "ส่งเมล์เรียบร้อยแล้ว"
โดยดึงข้อมูลชื่อ .toWho(0) แต่นี้เป็นการส่งเฉพาะภายในองค์กรเท่านั้น ถ้าเราจะส่งไปทั้งภายในและภายนอก อย่าง hotmail เราต้องไปกำหนดค่า ใน Admin ด้วยใช่ไหมค่ะ ดังรูป
[img]http://www.9notes.net/download.nsf/0/4053B39DFB0BB5A84725740900601843/$file/ATTWO5NA.GIF[/img]
อยากรู้ว่า ต้องกำหนด ต้องไหน อย่างไร และต้องเขียนโค๊ดเพิ่มไหมค่ะ |
|