Übernahme Body inkl. Anhänge in Kalendereintrag

[Kiezkicker]

Ich möchte aus einer Mail (Mail-In-DB, nicht Standard-Mail-Schablone) den Betreff und den Body in einen neuen Kalendereintrag eines fremden Kalenders übernehmen (Seminareinladungen). Dieses mache ich mit der untenstehenden Formel-Aktion. Leider werden die Anhänge bei einigen Mails nicht im Body angezeigt, sondern unterhalb des Kopfbereichs. In diesem Fall werden Sie beim Kopieren des Bodys nicht mit erfasst.

Hat jemand für mich einen Tipp, wie ich dieses Problem auf einfache Art und Weise lösen könnte?

Code

_subject := Subject;

@Command([OpenDocument];1);
@Command([EditGotoField];"Body");
@Command([EditSelectAll]);
@Command([EditCopy]);
@Environment("CSDocType";"3");
@Command([Compose];"Server" : "mail\\seminare.nsf"; "Appointment");
@Command([EditGotoField];"Subject");
@Command([EditInsertText];_subject);
@Command([EditGotoField];"Body");
@Command([EditPaste]);
@Command([EditGotoField];"EnterSendTo");
@Command([RefreshHideFormulas])

MfG
Jens

[koehlerbv]

Mit Formelsprache ist das nicht machbar.

Bernhard

[Kiezkicker]

Das hatte ich mir fast gedacht  Mit Script bin ich bisher leider kläglich gecheitert.

Was ist eigentlich der Grund für die unterschiedliche Darstellung? Kann man das bei der Zustellung der Mail vielleicht verhindern?

[Kiezkicker]

Habe eine Lösung gefunden. Wenn ich die erste Zeile durch @Command( [MailForward] ) ersetze klappt es. In der weitergeleiteten Mail werden die Anhänge in den Body übernommen.

Nun wollte ich das Fenster mit der neuen E-Mail (durch Weiterleitung)  noch automatisch schließen. Leider wird der Befehl nicht unmittelbar nach dem EditCopyPaste ausgeführt, so dass nun versucht wird den neuen Kalendereintrag zu schließen.

Aktueller Code:

Code

@Command([MailForward]);
@Command([EditGotoField];"Body");
@Command([EditSelectAll]);
@Command([EditCopy]);
@Command([FileCloseWindow]);
@Environment("CSDocType";"3");
@Command([Compose];"S184LN01/KrSpkBersenbrueck/DE" : "mail\\seminare.nsf"; "Appointment");
@Command([EditGotoField];"Subject");
@Command([EditInsertText];_subject);
@Command([EditGotoField];"Body");

@Command([EditPaste]);
@Command([EditGotoField];"EnterSendTo");

[Peter Klett]

Mach's mit Script, das ist wirklich nicht so schwer, wie es Dir im Augenblick vielleicht vorkommt. Hast Du den Einstieg geschafft, wirst Du sehen, welche Fülle an neuen Möglichkeiten sich Dir damit auftun...

[Kiezkicker]

Habe eine Lösung gefunden. Ich habe den Code nach dem FileCloseWindow in einen Agenten ausgelagert und rufe diesen am Ende mit ToolsRunMacro auf.

Danke für eure Hilfe

P.S.: Beim Script bin ich immer an den RT-Items gescheitert, der Rest lief eigentlich schon.

[Peter Klett]

Du solltest in Antwort #3 den Servernamen anonymisieren ...

[y20frank]

Du solltest in Antwort #3 den Servernamen anonymisieren ...

Wie dumm - zu spät! *hack...*