3. November 2008 17:26
3. November 2008 18:18
// new lines begin
IF ISCLEAR (OLTasks) THEN
CREATE(OLTasks);
// new lines end
TaskItem := OLTasks.Item(i);
IF ISCLEAR(TaskItem) THEN
4. November 2008 09:24
Natalie hat geschrieben:PS: Hatte überlesen, dass ich technisch schon auf 5.x seid - ich weiß daher nicht, ob diese Lösung dann noch gilt.
4. November 2008 09:32
4. November 2008 09:34
6. November 2008 12:24
PROCEDURE NewMessageWSH@1000000001(ToName@1000000005 : Text[80];CCName@1000000004 : Text[80];Subject@1000000003 : Text[260];Body@1000000002 : Text[1024];AttachFileName@1000000001 : Text[260]);
VAR WSH_Shell@1000000000 : Automation "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 1.0:{72C24DD5-D70A-438B-8A42-98424B88AFB8}:'Windows Script Host Object Model'.WshShell";
IF ISCLEAR(WSH_Shell) THEN
CREATE(WSH_Shell);
WSH_Shell.Run('mailto:' + ToName + '?subject=' + Subject + '&cc=' + CCName + '&body=' + Body + '&attachment=' + AttachFileName);
6. November 2008 13:31
6. November 2008 13:35
7. November 2008 12:08