E-Mail auf mehrere Vorkommen überprüfen

Beschreibung:

Insbesondere bei Anbindung von Email-Marketing-Software ist es notwendig, dass Email-Adressen eindeutig sind. Denn der Abgleich zwischen Kontakten in der CRM-Software AG-VIP und der Email-Marketing-Software, z.B. Klick-Tipp oder EVALANCHE, erfolgt über das Feld EMAIL1.

Kommt die identische Email-Adresse in mehreren Kontakten vor, ist es Zufall welche Daten von AG-VIP in der Email-Marketing-Software ankommen bzw. in welcher Adresse in AG-VIP das Verhalten des Email-Empfängers eingetragen wird.

Möglichkeiten der Prüfung:

Im Reiter "Sonstiges" gibt es den Option "Doppelte Adressen suchen..." in der auch über identische E-Mail Adressen gesucht werden kann:
Suche nach gleicher E-Mail

Wenn man jedoch direkt beim Speichern eines Vorgangs prüfen möchte, ob die E-Mail Adresse im Feld "Email1" noch in einem anderen Datensatz vorkommt, fügt man folgendes Makro an die gewünschte Makro-Position ein:

If ActiveAddressSet.Query("commEmail1='"&Trim(ActiveRecord.fields("commEmail1").value)&"'&Id<>"&ActiveRecord.IdAddress).Count > 0 Then
   MsgBox "Die E-Mail Adresse '"&ActiveRecord.fields("commEmail1").value&"' wird bereits in einem anderen Datensatz verwendet!" & vbCrLf &
          "Bitte eine andere E-Mail Adresse wählen oder im anderen Datensatz die E-Mail Adresse anpassen!",
           vbOkonly+vbExclamation,"AG-VIP SQL - E-Mail Adresse nicht eindeutig"
   Macro.Abort
   Macro.Exit
End If