Hello,
I'm trying to create an application that will "wash" a number of files containing emailadresses so each user only gets a certain amout of newsletters per week.
For instance we send one general newsletter and a number of specialized newsletters per week.
If your profile matches all the newsletters we still only want you to receive two newsletters per week.
The application should look at the emailadress and the priority of the file to determine which two newsletters the emailadress should be used in.
The solution I have thought of means that the user would upload any number of files (and set a priority for each file).
( I would prefer it if there is a way that does not mean that the files needs to be loaded in the script and instead are uploaded by the end-user).
We have managed to create a VB script that allows the end user to select and upload files using the following code:
Sub LoadFile
'Create and initialize variables
Dim oFSO, inputFile, oFile, row
Dim emailAddress, emailHash, tmp
Dim emailListVar, emailHashVar
Dim selection
Set selection = ActiveDocument.getField("FilNr").GetSelectedValues(1)
emailListVar = "Email_list_" & Selection.Item(0).Text
emailHashVar = "Email_hash_" & Selection.Item(0).Text
emailAddress = ""
emailHash = ""
'Get file to read
inputFile = GetFileOpenDlg()
'Read selected file
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(inputFile) Then
Set oFile = oFSO.OpenTextFile(inputFile, 1)
Do While Not oFile.AtEndOfStream
row = oFile.ReadLine
'If row is not empty
If Trim(row) <> "" Then
tmp = Split(row, VbTab)
'If neither field is empty, add to variables
If (Len(Trim(tmp(0))) > 0 And Len(Trim(tmp(1))) > 0) Then
emailAddress = emailAddress & Trim(tmp(0)) & VbCrLf
emailHash = emailHash & Trim(tmp(1)) & VbCrLf
End If
End If
Loop
oFile.Close
'Set QV-variables with the file contents
ActiveDocument.GetVariable(emailListVar).SetContent emailAddress, true
ActiveDocument.GetVariable(emailHashVar).SetContent emailHash, true
MsgBox(emailAddress)
MsgBox(emailHash)
End If
End Sub
When I look in my application (for instance create a listbox with the following expression =Email_list_1, then I can see that the emailadresses are there.
My problem is that I can not find a way to work with the data.
If the data was loaded via the script I would be able to create logic that would give me which emailadresses should go in which files.
Anyone know how to get the variable data into i field in qv?
br
Martin
