Forum: สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) |
Tags1: | Created on Feb 14, 2008, 7:01 PM by 9notes/9Notes|Topic Responses: 5 |
&action=openDocument&documentId=1436 |
ใช้ Error handle ตามนี้เลยครับ
Type RecType
email As String
End Type
On Error Goto Errhandle
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
Exit Sub
Errhandle:
Resume Next
:yellow_cool.gif: |
|