Beiträge von RaphaelH

RaphaelH · 18. August 2015

Hi Steffen,

ist mir noch nie aufgefallen, ist aber bei uns tatsächlich auch der Fall. Wenn man es über RpcItems.SetDone macht passiert das allerdings nicht..

Hab mal zwei Screens vom Systemprotokoll angehangen, einmal RpcItems.Put und einmal RpcItems.SetDone

RaphaelH · 24. Juni 2015

Quick&Dirty würde ich das einfach in der Datenbank ändern, sofern du selber hostest

RaphaelH · 4. März 2015

Man könnte herkömmliche Algorithmen implementieren, die basieren aber meist auf einen globalen Seed-Wert, was man eventuell mit einer globalen Regelvariable umsetzen könnte aber man kann auch etwas tricksen mit der FbmRandomStr Funktion:

Code

var
Str: string;
i: Integer;
Random: Integer;
begin
Str := FbmRandomStr + FbmRandomStr + FbmRandomStr;
Random := 0;
for i:= 1 to Length(Str) do
Random := Random+Ord(Str[i]);
Random := Random mod 100;
Item.AddToRemarks(IntToStr(Random));
end.

Alles anzeigen

Erstellt mittels FbmRandomStr eine zufällige Zeichenkette, loopt dann über jedes Zeichen in der Kette und addiert den Wert dann zu Random welcher am Ende dann modulo 100 gemacht wird um einen Wert zwischen 0 und 100 zu erhalten.

Random Zahlen sind übrigens immer Pseudo-Zufall

RaphaelH · 9. Dezember 2014

Soweit ich die API kenne, geht das denke ich so nicht..

Alternativ aber könntest einfach die Regel zeitgesteurt mit einem Filter laufen lassen.

Also einfach Mails als wartend anlegen und einen Filter auf die wartenden Mails anlegen und dann die Regel zeitgesteuert mit dem Filter laufen lassen.

RaphaelH · 1. Dezember 2014

Wäre sicherlich auch möglich wenn man einen SMTP Server programmiert, welcher dann die Nachricht via Whatsapp schickt..

RaphaelH · 28. November 2014

WhatsApp selber direkt in GH einbinden, geht sicherlich nicht..

Was man aber machen könnte, wäre mittels einer WhatsApp Library (gibt es ja ein paar OpenSource) die Nachrichten/Fotos per EMail weiterzuleiten an eine EMail-Adresse welche bei euch dann im GH landet. Das müsst ihr euch dann aber denke ich schon selber programmieren

RaphaelH · 12. November 2014

Na dann prüft man das einfach mit

Code

AnsiEndsText(".pdf", Item.Attachments.Items[i].Name)

RaphaelH · 12. November 2014

Wäre mit folgender Regel möglich, wobei 'G:\Test\' dann mit dem jeweilig gewünschten Pfad ausgetauscht werden sollte

Code

var
i: Integer;
begin
Item.LoadAttachmentsContent;
for i:= 0 to Item.Attachments.Count-1 do
begin
FbmCopyFile(Item.Attachments.Items[i].StoredFilePath, 'G:\Test\' +Item.Attachments.Items[i].Name);
end;
end.

RaphaelH · 1. September 2014

In der Datenbank werden die einfach in der Tabelle "textblocks" gespeichert, da könnte man sie sich rausziehen. Sofern man Zugriff auf die Datenbank hat natürlich

Edit: Oder auch möglich mittels Regel (einfach auf irgendein Element ausführen):

Code

var
i: integer;
QueryResult: TFbmDbResult;
s, Filename: string;
begin
Filename := 'G:\textblocks.csv';
QueryResult := TFbmDbResult.Create;
try
Item.DbQuery.Sql.Clear;
Item.DbQuery.Sql.Add('SELECT c_name, b_htmldata, b_textdata FROM textblocks');
Item.DbQuery.ExecuteEx(QueryResult);
if QueryResult.RowCount > 0 then
begin
for i := 0 to QueryResult.RowCount - 1 do
begin
s := s + '"' + FbmAnsiReplaceStr(QueryResult.ValuesByIndex[0].AsString, '"', '""') + '";"' + FbmAnsiReplaceStr(QueryResult.ValuesByIndex[1].AsString, '"', '""') + '";"' + FbmAnsiReplaceStr(QueryResult.ValuesByIndex[2].AsString, '"', '""') + '"' + #13#10;
QueryResult.Next;
end;
FbmSaveStrToFile(Filename, s);
end;
finally
QueryResult.Free;
end
end.

Alles anzeigen

RaphaelH · 29. Juli 2014

Hi Floh!

Probier's mal so:

PHP

$filter->Kinds = GhRpcUtils::newSet(rpc_itemslib::ikTask);

Gruß
Raphael

RaphaelH · 7. Juli 2014

Ne andere Möglichkeit wäre mittels nem kleinen Stück Quelltext den gewünschten Header auszulesen und diesen z.B. in einem benutzerdefinierten Feld speichern und damit dann die gewünschten Bedinungen erstellen:

RaphaelH · 17. Juni 2014

Wolfram schrieb:

...
Was man auf den Screenshots nicht erkennen kann ist, ob auch die Einstellungen bei Benutzer, Themen und Kennwörter so gewählt sind, dass die für die fraglichen Benutzer relevanten Mails erfasst werden? Eigentlich sollte das standardmäßig passen, aber wer weiß.
...

Ja das hatte ich vergessen zu erwähnen, habe natürlich da auch einmal ohne und einmal mit allen angewählt probiert, beides gleiche Ergebnis..

Das mit dem Ton ist schlecht mit nem PC ohne Soundkarte

Wolfram schrieb:

...
Allerdings weiß ich mit der Anzahl von 13 Benachrichtigungen bei mir gerade nichts anzufangen. Ich muss das mal beobachten.

In meiner Ansicht habe ich insgesamt 11 Elemente (davon 8 Mails) und keine davon ungelesen, und das kleine Icon zeigt mir 5 an.. Also das passt hinten und vorne nicht..

RaphaelH · 14. Juni 2014

Moin!

Bei uns gibt's jetzt ein paar Kollegen die den GH hauptsächlich als E-Mail Client nebenbei nutzen und wollen nicht ständig reinschauen müssen ob's was Neues gibt und fragen jetzt ob man nicht benachrichtigt werden kann, wenn eine neue Mail kommt.

Hab mit diesen Benachrichtigungen jetzt viel rumgespielt aber da tut sich nichts

Habe es wie folgt eingestellt:

Damit die Kollegen nicht ständig in den Client und dann auch noch F5 drücken müssen, habe ich kleines Tool geschrieben welches an die "TcxTreeList" alle paar Sekunden F5 sendet. Damit das wenigstens automatisch funktioniert.
Aber selbst wenn das Tool läuft und ich im Hintergrund eine neue Mail sehe, bekomm ich keinerlei Benachrichtigung vom Greyhound..

RaphaelH · 12. Mai 2014

@Sascha: Vielleicht solltest du deine etwas finalere Version hier posten?

RaphaelH · 12. Mai 2014

Du könntest dir natürlich auch ein Skript schreiben welches die Benutzeraktivität beobachten und den GH dann nach gegebenen Kriterien schließt..

Aber das hat dann nichts mehr mit dem GH selber zu tun und gehört wahrscheinlich auch nicht hier hin

RaphaelH · 11. März 2014

Hi Sasche,

Hab da jetzt noch ne ganz tolle andere Funktion gefunden, "Item.LoadFromStr".

Wenn ich diese nutze statt die EditorData Eigenschaft anzupassen und nicht die Referenznummer verändere, funktionierts auch

Den HTML-Regex hab ich auch nochmal etwas angepasst!

HTML

function DecodeQP(Input : String) : String;
var
i : Integer;
t : String;
begin
t := FbmRegExReplace(Input, '=[\r\n]+', '');
for i:= 255 downto 127 do
begin
if AnsiContainsText(t, '='+IntToHex(i,2)) then t := FbmAnsiReplaceStr(t, '='+IntToHex(i,2), Chr(i));
end;
if AnsiContainsText(t, '='+IntToHex(61,2)) then t := FbmAnsiReplaceStr(t, '='+IntToHex(61,2), Chr(255)+Chr(254));
for i:= 32 downto 10 do
begin
if AnsiContainsText(t, '='+IntToHex(i,2)) then t := FbmAnsiReplaceStr(t, '='+IntToHex(i,2), Chr(i));
end;
t := FbmAnsiReplaceStr(t, '=', '');
t := FbmAnsiReplaceStr(t, Chr(255)+Chr(254), '=');
Result := FbmUtf8ToAnsi(t);
end;
const
Base64 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
function DecodeBase64(Input : String) : String;
var
gb,len,ndb,cc,td,ng : Integer;
tc,hng,po,so : String;
begin
Input := FbmRegExReplace(Input, '[\r\n\s\t]+', '');
len := Length(Input);
If len mod 4 = 0 Then
begin
gb := 1;
while gb <= len do
begin
ndb := 3;
ng := 0;
for cc := 0 to 3 do
begin
tc := copy(Input, gb+cc, 1);
if tc = '=' then
begin
ndb := ndb-1;
td := 0;
end
else
begin
td := Pos(tc, Base64)-1;
end;
if td <> -1 then ng := 64*ng+td;
end;
hng := IntToHex(ng,6);
po := Chr(StrToInt('$'+copy(hng,1,2)))+Chr(StrToInt('$'+copy(hng,3,2)))+Chr(StrToInt('$'+copy(hng,5,2)));
so := so + copy(po, 1, ndb);
gb := gb+4;
end;
Result := FbmUtf8ToAnsi(so);
end;
end;
var
t,b,ma,mb,mc : String;
begin
if (Item.Kind = ikEmail) then
begin
t := Item.LoadEMLToStr;
b := FbmRegExExtract(t, '(?-m)Content-Type:\s+multipart/alternative(?:.*?)boundary="?(.*?)"?\r\n', '$1', '');
if Length(b) > 0 then
begin
ma := FbmRegExExtract(t, '(?-m)(Content-Transfer-Encoding:\sbase64(?:.*?)\r\n\r\n(?:.*?)(?:--'+b+'))', '$1', '');
while Length(ma) > 0 do
begin
mb := FbmRegExExtract(ma, '(?-m)Content-Transfer-Encoding:\sbase64(?:.*?)\r\n\r\n(.*?(?:--'+b+'))', '$1', '');
mc := FbmRegExExtract(ma, '(?-m)Content-Transfer-Encoding:\sbase64(.*?)\r\n\r\n(?:.*?)(?:--'+b+')', '$1', '');
t := FbmAnsiReplaceStr(t, ma, mc+#13#10+DecodeBase64(mb));
ma := FbmRegExExtract(t, '(?-m)(Content-Transfer-Encoding:\sbase64(?:.*?)\r\n\r\n(?:.*?)(?:--'+b+'))', '$1', '');
end;
ma := FbmRegExExtract(t, '(?-m)(Content-Transfer-Encoding:\squoted-printable(?:.*?)\r\n\r\n(?:.*?)(?:--'+b+'))', '$1', '');
while Length(ma) > 0 do
begin
mb := FbmRegExExtract(ma, '(?-m)Content-Transfer-Encoding:\squoted-printable(?:.*?)\r\n\r\n(.*?(?:--'+b+'))', '$1', '');
mc := FbmRegExExtract(ma, '(?-m)Content-Transfer-Encoding:\squoted-printable(.*?)\r\n\r\n(?:.*?)(?:--'+b+')', '$1', '');
t := FbmAnsiReplaceStr(t, ma, mc+#13#10+DecodeQP(mb));
ma := FbmRegExExtract(t, '(?-m)(Content-Transfer-Encoding:\squoted-printable(?:.*?)\r\n\r\n(?:.*?)(?:--'+b+'))', '$1', '');
end;
end
else
begin
ma := FbmRegExExtract(t, '(?-m)(Content-Transfer-Encoding:\squoted-printable)', '$1', '');
mb := FbmRegExExtract(t, '(?-m)(Content-Transfer-Encoding:\sbase64)', '$1', '');
mc := FbmRegExExtract(t, '(?-m)^((?:.*?)\r\n\r\n)', '$1', '');
t := FbmAnsiReplaceStr(t, mc, '');
if Length(ma) > 0 then t := DecodeQP(t);
if Length(mb) > 0 then t := DecodeBase64(t);
end;
{
ma := FbmRegExExtract(t, '\[#(.*?)#\]', '$1', '');
while Length(ma) > 0 do
begin
t := FbmAnsiReplaceStr(t, '[#'+ma+'#]', '[ #'+ma+'#]');
ma := FbmRegExExtract(t, '\[#(.*?)#\]', '$1', '');
end;
}
ma := FbmRegExExtract(t, '<html(?:.*?)>(?:.*?)<head(?:.*?)>(?:.*?)</head>(?!.*</head>)(?:.*?)<body(?:.*?)>(.*?)</body>(?!.*</body>)(?:.*?)</html>(?!.*</html>)', '$1', '');
if Length(ma) > 0 then
begin
mb := FbmRegExReplace(ma, '(?:</?(?:html|head|body)(?:.*?)>)', '');
t := FbmAnsiReplaceStr(t, ma, mb);
end;
Item.LoadFromStr(t);
//TFbmItemEMailProperties(Item.Properties).EditorData := t;
end;
end.

Alles anzeigen

RaphaelH · 10. März 2014

Moin!

Bei diesen eBay-Mails gibt es zwei Probleme, das eine wie backinblack schon bemerkt hat, eBay zitiert mit <html>,<head>,<body>.

Jedoch gibt es ein zweites Problem, in den Mails gibt es eine Referenz Nummer aufgebaut : "[#....#]". Damit kann Greyhound nicht umgehen, Greyhound versucht die Zeichen nach [# als Identifier zu nutzen (wofür auch immer).

Meine Regel fügt zwischen [ und # jetzt ein Leerzeichen ein, wodurch Greyhound damit kein Problem mehr hat

RaphaelH · 6. März 2014

Hi Sascha,

Das ganze löst aber noch nicht das Problem mit Wiederholung von <html>,<head>,<body>.. Das werd ich mir morgen mal anschauen

RaphaelH · 6. März 2014

Hab das ganze mal etwas erweitert (da bei mir eine Mail in Base64 enkodiert wurde und ich keine interne Base64 Dekodierungsfunktion gefunden habe, eine selber reingeschrieben).

RaphaelH · 4. März 2014

Richtig, in EML's wird wohl oft "quoted-printable" Enkodierung genutzt..

Hab mal ne Funktion in Regel-Sprache konvertiert, die das relativ gut ersetzt:

Beiträge von RaphaelH

API: item rpc_itemslib::isDone setzen verursacht Verdoppelung des gesamten protokolls

Nachricht kann nicht bearbeitet oder gelöscht werden - Fehlercode 319

Zufallszahlen in Regel generieren

RPC-Schnittstelle Regel zu neuer Email hinzufügen (Zeitversetzter Versand)

Whatsapp einbinden?

Whatsapp einbinden?

Anhänge per Regel automatisiert drucken

Anhänge per Regel automatisiert drucken

Textbausteine aus Greyhound exportieren

Aufgaben über XML-RPC abholen

Sortierung Mails über X-Original-To

Benachrichtigung bei E-Mail Eingang

Benachrichtigung bei E-Mail Eingang

eBay Nachrichten ohne Inhalt

Benutzer zeitgesteuert automatisch abmelden

eBay Nachrichten ohne Inhalt

eBay Nachrichten ohne Inhalt

eBay Nachrichten ohne Inhalt

eBay Nachrichten ohne Inhalt

eBay Nachrichten ohne Inhalt