Heb een vraag over een script wat ik gebruik voor het versturen van emails naar mijn klanten en/of collega's.
Er zit een fout in het script, want als ik er gebruik van maak wordt een email 3x verstuurd i.p.v. 1x.
Wie kan mij helpen?
Denk dat het in onderstaand deel van het script zit.
Script:
'" & rsProject!klantcode & "'" )
End If
If RTrim(rsProject!klantcode) = "1241" Or RTrim(rsProject!klantcode) = "1242" Or RTrim(rsProject!klantcode) = "1079" Then
MailTo = "" & SQL.RunQueryGet1Field( "SELECT email FROM Klanten WITH (READUNCOMMITTED) WHERE Admin = " & SQL.AdminCode & " And Code = '" & rsProject!klantcode & "'" )
If MailCC = "" Then
MailCC = "[email protected]"
Else
MailCC = MailCC & "[email protected]"
End If
End If
ElseIf JobEDIT Then
MailTo = "<bewerken>"
Else
MailTo = SQL.SearchWithQuery(MailQuery,"Verstuur bevestiging aan:",0)
End If
If Len(MailTo)=0 Then
If Not JobAUTO Then
MessageBox "U heeft de selectie geannuleerd, het document wordt geopend",mbInformation
MailTo = "<bewerken>"
Else
MailTo = "<afdrukken>"
