versuche mit einem Icon!
Ein Beispiel, anpassen net vergessen!!!
Name := "Uwe Mustermann";
Titel:= "Guru";
Tel := "0555 / 555555";
Fax := "0555 / 555555"
Mobil := "0555 / 55555";
Str := "Strasse . 22";
Plz := "11111";
Ort := "Ort;
Mail := "mustermann@domain.de";
Web:= "
http://www.hompage.de";
@Command([EditGotoField];"Body");
@Command([EditInsertText];@NewLine + @NewLine);
@Command([EditInsertText];"Mit freundlichen Grüßen"+ @NewLine + @NewLine);
@Command([EditInsertText];Name+ @NewLine+ @NewLine+ @NewLine);
@Command([TextSetFontFace]; "Arial");
@Command([TextSetFontSize];"9");
@Command([TextBold]);
@Command([TextItalic]) ;
@Command([EditInsertText];"PO");
@Command([TextSetFontColor];
) ;
@Command([EditInsertText];"W");
@Command([TextSetFontColor]; [Magenta]) ;
@Command([EditInsertText];"E");
@Command([TextSetFontColor];);
@Command([EditInsertText];"R"+@NewLine);
@Command([TextSetFontFace]; "Arial");
@Command([TextSetFontSize];"8");
@Command([TextNormal]) ;
@Command([EditInsertText];"____________________" + @NewLine);
@Command([EditInsertText];Titel + @NewLine);
@Command([EditInsertText];Str+ @NewLine);
@Command([EditInsertText];Plz + "-" + Ort + @NewLine + @NewLine);
@Command([EditInsertText];"Tel: ");
@Command([EditInsertText];Tel+ @NewLine);
@Command([EditInsertText]; "Fax: ");
@Command([EditInsertText];Fax + @NewLine);
@Command([EditInsertText]; "Mobil: ");
@Command([EditInsertText];Mobil + @NewLine);
@Command([EditInsertText];"e-Mail: ");
@Command([EditInsertText]; Mail+ @NewLine);
@Command([EditInsertText];"Internet: ");
@Command([EditInsertText];Web);
@Command([EditInsertText];@NewLine);
@Command([EditInsertText];"_________________________________________________________________________________________"+ @NewLine);
@Command([EditInsertText];"Über das Internet versandte E-mails können leicht verfälscht oder unter fremdem Namen erstellt werden."+ @NewLine);
@Command([EditInsertText];"Demzufolge müssen wir zu Ihrer und unserer Sicherheit die rechtliche Verbindlichkeit der vorstehenden "+ @NewLine);
@Command([EditInsertText];"Erklärungen ausschließen. Der Versand von E-mail dient somit ausschließlich dem Informationsaustausch. "+ @NewLine);
@Command([EditInsertText];"Der Inhalt dieser E-Mail ist ausschließlich für den/die in der E-Mail bezeichneten Empfänger bestimmt. "+ @NewLine);
@Command([EditInsertText];"Wir dürfen Sie bitten, sofern Sie nicht dem Empfängerkreis angehören, uns durch die Rücksendung "+ @NewLine);
@Command([EditInsertText];"dieser E-Mail von deren irrtümlichen Versand an Sie in Kenntnis zu setzen. "+ @NewLine);
@Command([EditInsertText];"_________________________________________________________________________________________"+ @NewLine);
@Command([EditUp];"26")