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 21, 2024, 1:48 pm This article has been viewed/printed 35222 times. |