Login
`
Templates, Tools and Utilities
|
||
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
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)
Today is November 21, 2024, 3:30 am This article has been viewed 35221 times.
|
|