Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: IBM Lotus Domino/Notes| Created on Feb 14, 2008, 9:58 AM by GeoSpherE/9Notes|Topic Responses: 5 |
&action=openDocument&documentId=C1E |
คือผมเขียน Script Load Email Address มาจาก Text File เพื่อมาส่งเมล์
Type RecType
email As String
End Type
Open "c:\email.txt" For Input As fileNum%
Do While Not Eof(fileNum%)
Line Input #fileNum%, txt$
counter% = counter% + 1
Loop
Seek fileNum%, 1
Redim arrayOfRecs(1 To counter%)
For countRec% = 1 To counter%
Input #fileNum%, arrayOfRecs(countrec%).email
Next
Close fileNum%
For x% = 1 To counter%
doc.SendTo = arrayOfRecs(x%).email
doc.SendDate = Cstr(Format(Now(),"mm/dd/yyyy hh:mm:ss AM/PM"))
Call uidoc.Save
Call doc.Send(False)
Print "Sending to " & arrayOfRecs(x%).email
Next
พอมาเจอเมล์ที่ไม่ถูกต้อง มันจะติดอยู่ตรงนั้นอ่ะครับ ไม่ส่งต่อ
จะตรวจสอบ Valid Email ก่อนส่งได้อย่างไร หรือสามารถให้มันข้ามเมล์ที่ไม่ถูกต้องได้หรือไม่ครับ |
|