Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list Search Articles Add Comment Printer friendly Direct link Par2: Calling Outlook using OLE 2000-04-04 -- Jim Kane Here is a very simple program to send mail. For showing I put a send
button and called the display method where noramally from a program I
would just call the send method.
program
map
end
Window WINDOW('outlook'),AT(,,119,100),SYSTEM,GRAY,DOUBLE
OLE,AT(20,6,80,20),USE(?Ole1)
END
BUTTON('Send'),AT(33,79,45,14),USE(?Button1),DISABLE
END
citem cstring(20)
code
open(window)
accept
If event()=event:openwindow
?ole1{prop:create}='outlook.application'
cItem=?ole1{'createItem(0)'}
if citem[1]<>'`' then
Message('no mail item created - error')
else
?ole1{citem&'.to'} ='peder@pg-d.com'
?Ole1{citem&'.from'}='jkane@satx.rr.com'
?ole1{citem&'.subject'}='test message'
?ole1{citem&'.body'}='text message'
?ole1{citem&'.display'} !for testing only
enable(?button1)
end
end
if event()=event:accepted then
?ole1{citem&'.send'}
end
if event()=event:closewindow then
if citem[1]='`' then
?ole1{prop:release}=citem
clear(citem)
end
?ole1{'quit'}
end
end
close(window)
Bob Brooker adds:
to add to Jim's example, you can find the exact properties and methods for
all of the Office Applications at http://msdn.microsoft.com/resources/libraries.asp
there are too many to enum here.
Today is April 30, 2024, 1:55 pm This article has been viewed 35120 times.
|
|