Sendmail Funktion über vba ausführen

Sendmail Funktion über vba ausführen

Hallo,
ich starte die Funktion zum versenden von Mails in einem VBA Skript
thisProject.RtFunctions.Item("FU_Send_Alarm_Mail_Grenzwert_1").Start
Seltsamer Weise werden aber immer 2 Mails verschickt. Der Empfänger liegt in einer Stringvariable, den Alarm löse ich testweise über eine interne Boolsche Variable aus (Grenzwert verletzung), hier ist keine Funktion verknüpft, da der Empfänger erst bestimmt wird, nach dem der Alarm ausgelöst hat und dann in die StringVariable geschrieben wird.
Dadurch konnte ich eine zur Runtime änderbare Alarmierung realisieren.
Benutzer können dort auswählen ob sie Alarme bekommen möchten oder nicht, oder anderen Benutzern Alarme zuweisen.
Hat jemand eine Idee warum die Funktion 2 mails verschickt. Ich habe das Skript überprüft, die Anweisung wird nur einmal aufgerufen.
Ich verwende Zenon7 die Runtime läuft auf einem Server Windows 2008.
Falls euch die Infos nicht ausreichen, gebt mir bescheid, dann poste ich den ganzen Code.
Gruß Tobi

This is a migrated post! Originally posted on 19.07.2013 by user zero. Please be aware that information can be outdated.