Par2: Email attachments 2002-05-16 -- Christian Jurca I used this in an old App made in CW2.01
ShellCmd = 'mailto:'& CLIP(eMailTo)
IF eMailCC
ShellCmd = CLIP(ShellCmd) &'?cc='& CLIP(eMailCC)
END
IF eMailSubject
ShellCmd = CLIP(ShellCmd) &'&subject='& CLIP(LEFT(eMailSubject))
END
IF eMailText
ShellCmd = CLIP(ShellCmd) &'&body='& CLIP(eMailText)
END
IF AttachFileName
ShellCmd = CLIP(ShellCmd) &'?attachment; filename="'&
CLIP(AttachFileName) &'"'
END
ShellRet = ShellExecute(0{prop:handle}, 0, ShellCmd, 1, ShellP2, 1)
Printed November 23, 2024, 2:25 am This article has been viewed/printed 35225 times. |