Dialog auch als pop3 Mailclient

06/08/2014 - 10:15 von Wolfgang Bauer | Report spam
Servus.

Für die wenigen Mails die ich sende und empfange reicht der Mailteil in
Dialog leicht.

Nun möchte ich bei eingehenden Mails gerne die Soundausgabe post.wav.

Im Basis_Modul_ini.ds habe ich das schon hinzugefügt.

BM_Sound1='notify.wav'; (für direkte Newsantworten)
BM_Sound2='tada.wav'; (für indirekte Newsantworten)
BM_Sound3='post.wav'; (für eingehende Mails)

In OnXOver müßte dann BM_PlaySound(BM_Sound3, 1); hinzugefügt werden.

Begin
If BM_RegexMatch(MID,Strings[i],TRUE) = False Then
Begin
If (BM_RegexMatch(REF,Strings[i]+'>(\s*<[^<]+>){0,0}$',True) = True)
Then BM_PlaySound(BM_Sound1, 1) Else
If (BM_RegexMatch(REF ,Strings[i]+'>(\s*<[^<]+>){0,'+d+'}$',True) = True)
Then BM_PlaySound(BM_Sound2, 1);
Sleep(150);
End;
End;

Muß das mit einer Bedingung verknüpft sein? Geht es überhaupt?

Wolfgang
Kubuntu 14.04 - KDE 4.13.2
 

Lesen sie die antworten

#1 Thomas Barghahn
06/08/2014 - 20:36 | Warnen spam
*Wolfgang Bauer* meinte:

Für die wenigen Mails die ich sende und empfange reicht der Mailteil in
Dialog leicht.



Ja, das kann man machen. :-)

Nun möchte ich bei eingehenden Mails gerne die Soundausgabe post.wav.
Im Basis_Modul_ini.ds habe ich das schon hinzugefügt.

BM_Sound1='notify.wav'; (für direkte Newsantworten)
BM_Sound2='tada.wav'; (für indirekte Newsantworten)
BM_Sound3='post.wav'; (für eingehende Mails)



Bis hier hin ist alles OK! :-)

In OnXOver müßte dann BM_PlaySound(BM_Sound3, 1); hinzugefügt werden.



Das wird ab hier nicht mehr funktionieren. Hier hilft uns aber das
"OBSaveM" wie folgt weiter:

- 8< -

procedure OnBeforeSavingMessage(
var Message : TStringlist;
const Servername : string;
const IsEmail : boolean
);


begin
// Your code goes here

if IsEmail = True then
begin
BM_PlaySound(BM_Sound3, 1);
end;

// Andere_Scripte (...);
end;

begin
end;

- 8< -


Freundliche Grüße
Thomas Barghahn
+++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
Paulus sprach zu den Apachen:
"Ihr sollt nicht nach der Predigt klatschen!"
(Otto)

Ähnliche fragen