Login
Templates, Tools and Utilities
for Clarion Developers
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 March 31, 2025, 12:07 pm This article has been viewed 35297 times.
|
|