Hello everyone
I have an agent which sends documents with attachments. It takes data from Oracle database and then preparing and sending e-mails. The problem is that it should send all e-mails which are in oracle at one time but it sends only one. on the next ru not sends another one and so on. Agent runs every 15 minutes
When i run it in debug mode it’s all OK.
What i made wrong with that?
Here is the code with changed e-mails:
Option Public
Option Declare
UseLSX “*LSXLC”
Sub Initialize()
'Dim ws As New NotesUIWorkspace
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entrycol As NotesViewEntryCollection
Dim doccol As NotesDocumentCollection
Dim entry As NotesViewEntry
Dim doc As notesdocument
Dim newdoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim ndrtitem As NotesRichTextItem
Dim path As String
Dim notes As String
Dim www As String
Dim link As String
Dim sql As String
Dim sql_cd As String
Dim src_connect As New LCConnection (“ORACLE”)
Dim src_update As New LCConnection (“ORACLE”)
Dim src_pliki As New LCConnection (“ORACLE”)
Dim data As String
Dim adres As String
Dim nadawca As NotesName
Dim wynik As Double
Dim count As Double
Dim count_pliki As Double
Dim count_upd As Double
Dim fieldlist As lcfieldlist
Dim pliki As lcfieldlist
Dim UpdateFL As lcfieldlist
Dim i As Integer
Dim nazwapliku As String
Dim fakt,email,stalo,file,extp,comp,korg,plik_nazwa,plik_sciezka,plik_folder As LCField
Dim folder As String
Dim plik As string
Dim object As NotesEmbeddedObject
On Error Resume Next
'On Error GoTo petla
path=“E:\Send\Att”
Set db=session.Currentdatabase
Set fieldlist = New LCFieldlist
Set pliki=New LCFieldlist
Set UpdateFL=New LCFieldlist
src_connect.UserID = “c”
src_connect.Password=“c123”
src_connect.server= “LN”
src_connect.metadata = “table1”
src_connect.Connect
src_pliki.UserID = “c”
src_pliki.Password=“c123”
src_pliki.server= “LN”
src_pliki.metadata = “table2”
src_pliki.Connect
src_update.UserID = “c”
src_update.Password=“c123”
src_update.server= “LN”
src_update.metadata = “table1”
src_update.Connect
sql="select f1,f2,f3,f4,f5,f6,f7 from table1 where status=2
wynik=src_connect.Execute(sql,fieldlist)
count = src_connect.Fetch (fieldlist, 1, 1)
While (count > 0)
If count>0 then
Set fakt=fieldlist.GetField(1)
Set email=fieldlist.GetField(2)
Set stalo=fieldlist.GetField(3)
Set file=fieldlist.GetField(4)
Set extp=fieldlist.GetField(5)
Set comp=fieldlist.GetField(6)
Set korg=fieldlist.Getfield(7)
Set doc=db.Createdocument()
doc.Form=“Memo”
doc.Subject=fakt.value
doc.sendTo=email.value
doc.Principal=“f@a.a”
doc.InetFrom=“f@a.a”
doc.From=“f@a.a”
Set rtitem= New NotesRichTextItem(doc,“Body”)
If korg.Value(0)=1 Then
doc.ReplyTo=“resp@a.a”
End If
If file.text(0)<>“” Then
folder=Replace(extp.Text(0),“/”,“")
plik=path+folder+”"+file.text(0)
Set object= rtitem.Embedobject(EMBED_ATTACHMENT, “”, plik)
If object.name=“” Then
GoTo petla
End If
If doc.Sendto(0)=“” Then
GoTo petla
End If
Else
sql=|select p1,p2,p3 from table2 where fakt=‘|+fakt.value(0)+|’ |
wynik=src_pliki.Execute(sql, pliki)
count_pliki=src_pliki.Fetch(pliki, 1, 1)
If count_pliki<1 Then
GoTo petla
End If
While count_pliki>0
If count_pliki>0 Then
Set plik_nazwa=pliki.GetField(1)
Set plik_sciezka=pliki.GetField(2)
Set plik_folder=pliki.GetField(3)
folder=Replace(plik_folder.Text(0),“/”,“")
plik=path+folder+”"+plik_nazwa.text(0)
Set object= rtitem.Embedobject(EMBED_ATTACHMENT, “”, plik)
If object.name=“” Then
GoTo petla
End If
If doc.Sendto(0)=“” Then
GoTo petla
End If
End If
count_pliki=src_pliki.Fetch(pliki, 1, 1)
Wend
End If
If doc.Sendto(0)=“” Then
GoTo petla
End If
Call doc.Save(true,false)
Call doc.Send(False)
sql=“update table1 set status=3 where f1='”+CStr(fakt.value(0))+"’ "
count_upd=src_update.Execute(sql,UpdateFL)
End if
petla:
count = src_connect.Fetch (fieldlist, 1, 1)
Wend
Call src_update.Disconnect()
Call src_connect.Disconnect()
End Sub