Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Public pdffile As ADODB.Stream Sub main() Const delimiter As String = "," Dim i As Integer Dim iterStr As String Dim mainlist As String Dim sublist As String Dim split_sublist() As String Dim pdfpath, pdfpath1 As String Dim sql As String Dim database As New ADODB.Connection Dim rs As ADODB.Recordset mainlist = AccountVariable("xrefidlist") sublist = AccountVariable("xrefidlist") split_sublist = Split(sublist, delimiter) For i = 0 To UBound(split_sublist) database.ConnectionString = "Provider=sqloledb; Data Source=192.168.2.121\EMMSDE;Initial Catalog=outlookreport; User Id=xxxxx; Password=xxxxx;" database.Open sql = "SELECT * FROM comlog" Set rs = New ADODB.Recordset rs.Open " select * from comlog", database, adOpenKeyset, adLockOptimistic rs.AddNew Set pdffile = New ADODB.Stream pdffile.Type = adTypeBinary pdffile.Open pdffile.LoadFromFile "C:\test.pdf" rs.Fields("location") = pdffile.Read rs.Fields("xrefid") = split_sublist(i) rs.Fields("sender") = "Testing VB6" rs.Fields("status") = "Unread" rs.Fields("fromemail") = "email@example.com" pdffile.Close Set pdffile = Nothing rs.Update Set rs = Nothing database.Close Next i 'clean mainlist the way you want. mainlist = Trim(mainlist) totaloutput = Left(mainlist, Len(mainlist) -1) AccountVariable("recievers") = totaloutput End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.