Eintreffende Mails abfragen und per Sprachausgabe ausgeben

[Funkmaus]

Hallo FS20Gemeinde,

kann mir wirklich keiner helfen??

Danke

Funkmaus

[Funkmaus]

Hallo Zusammen,

zunächst mal Frohe Weihnachten.

Ich komme hir einfach nicht weiter. Mir ist nicht klar, wie ich die Mails auf dem Server löschen kann.

Wer kennt sich aus??

Danke fuer die Hilfe vorab.

Funkmaus

[Funkmaus]

Hallo FS20 Gemeinde,

ich habe meine Lösung gefunden. Die Webseite von PHP hat mir den entscheidenden Hinweis gegeben.

Funktion:

Ich starte in der Visualisuíerung einen Button in der Visualisierung. Daraufhin ertönt mein Hinweis. Wenn ich innerhalb der nächsten 5 s nochmal den Button drücke, wird der Löschvorgang abgebrochen. Ansonsten wird nach Ablauf der 5 s eine Verbindung zum Mailserver hergestellt und die letzte Mail gelöscht. Der Log dient nur zur Visualisierung.


Falls Interesse besteht, hier das Makro:

Code: Alles auswählen

Wenn MailEingang.Anzahl >= 1 dann 
** Die Variabler Anzahl liefert die Anzahl der neuen Mails. Gelöscht werden kann nur, wenn überhaupt eine Mail vorhanden ist.
Wenn MailLoeschen eingeschaltet dann
** Wenn das Makro aktiviert wurde (Makro ist vom Typ Schalter)
Merker := "aus"
** Zuweisung Merker: Der Merker dient dazu, dass nach dem Löschen der Mail und Ausschalten des Makros nicht die Meldung "Mailbox: Abbruch Löschvorgang" erscheint
Log := "Mailbox: Letzte Mail wurde zum Löschen markiert"
starte(Log)
Play("c:\elv\Hinweis.wav")
** Hinweiston, dass Löschvorgang eingeleitet wurde
warte ("00:00:05")
<?
$mbx = imap_open ("{DeinMailserver:110/pop3}INBOX", "DeinMailuser", "DeinPasswort");
imap_delete ($mbx, 1);
imap_expunge($mbx);
imap_close($mbx);
?>
Log := "Mailbox: Neuste Mail wurde gelöscht"
starte(Log)
starte(MailEingang)
** Eigentliches Makro zum Mailabrufen. Hierdurch verändert sich sofort die Variable Anzahl. Darstellung Visualisierung
Merker := "an"
MailLoeschen ausschalten
** Ausschalten des Makros
endewenn
endewenn

Wenn MailEingang.Anzahl >= 1 dann
Wenn MailLoeschen ausgeschaltet dann
Wenn Merker = "aus" dann
Log := "Mailbox: Abbruch Löschvorgang"
starte(Log)
endewenn
endewenn
endewenn

Viel Spass

Gruß

Funkmaus