MZP @ !L!This program must be run under Microsoft Windows.
$ NE
@ P P q B 0 ] 0 ^:0 0 0 . 0 0 cdoponx LIBENTRY WEP ˸ Borland Standard File @ | ~ @ c Form UIManager UIContainer UIObject Page FormObj Button Text f& open+ close+ canArrive2 arrive2 setFocus+ canDepart2 removeFocus+ depart2 mouseEnter, mouseExit, mouseMove, mouseDown, mouseUp, mouseDouble, mouseRightDown, mouseRightUp, mouseRightDouble, keyPhysical- keyChar- action. menuAction/ timer4 pushButton+ changeValue0 calcField+ run+ newValue+ proc+ error3 status1 mouseClick, init+ stringListChange+ Uses Type Var Const Proc
C ] * 3 . 4 C d:\w\Corel\WordPerfect Office 2000\Paradox\PDOXHome\DEFAULT.FT B #Formdata1 POST >
E H - method open(var eventInfo Event)
endMethod
open+
* 0 2 < X )
method pushButton(var eventInfo Event) ; Michel Claveau Informatique
var
ponx oleauto
mem memo
endvar
if not ponx.open("Ponx.Mci") then
errorshow()
endif
sleep()
mem=memo("import win32com.client","
oa = win32com.client.Dispatch('CDO.Message')","
oa.From='mc@mclaveau.com'","
oa.To='bergoiata@free.fr'","
oa.Subject = 'ssuujjeett'","
oa.Textbody = 'Corps du message en texte brut (plain/.text)'","
oa.HTMLbody = 'Partie du message,
en HTML
Hourrah ! pour Michel Claveau Informatique
http://mclaveau.com
'","
oa.AddAttachment('C:\\\\velo.jpg')","
oa.Send()")
ponx.PRun(mem)
ponx.close()
endMethod
pushButton+ R Uses ObjectPal
closeDoc(var Word OleAuto) logical
WordClose(var Word OleAuto) logical
WordOpen(var Word OleAuto) logical
WordShow(var Word OleAuto) logical
openDoc(var Word OleAuto, fileName string) logical
saveDocAs(var Word OleAuto, fileName string) logical
saveDoc(var Word OleAuto) logical
print(var Word oleauto) logical
printPreview(var Word oleauto) logical
closePrintPreview(var Word oleauto) logical
chercheRemplace(str string, rpl string, var Word OleAuto)
chercheDelPos(str string, var Word OleAuto)
pasteClipBoard(var Word OleAuto)
apropos()
endUses
Uses W Const
OLECMDID_ALLOWUILESSSAVEAS=46
OLECMDID_CLEARSELECTION=18
OLECMDID_CLOSE=45
OLECMDID_COPY=12
OLECMDID_CUT=11
OLECMDID_DELETE=33
OLECMDID_DONTDOWNLOADCSS=47
OLECMDID_ENABLE_INTERACTION=36
OLECMDID_FIND=32
OLECMDID_GETPRINTTEMPLATE=52
OLECMDID_GETZOOMRANGE=20
OLECMDID_HIDETOOLBARS=24
OLECMDID_HTTPEQUIV=34
OLECMDID_HTTPEQUIV_DONE=35
OLECMDID_NEW=2
OLECMDID_ONTOOLBARACTIVATED=31
OLECMDID_ONUNLOAD=37
OLECMDID_OPEN=1
OLECMDID_PAGESETUP=8
OLECMDID_PASTE=13
OLECMDID_PASTESPECIAL=14
OLECMDID_PREREFRESH=39
OLECMDID_PRINT=6
OLECMDID_PRINT2=49
OLECMDID_PRINTPREVIEW=7
OLECMDID_PRINTPREVIEW2=50
OLECMDID_PROPERTIES=10
OLECMDID_PROPERTYBAG2=38
OLECMDID_REDO=16
OLECMDID_REFRESH=22
OLECMDID_SAVE=3
OLECMDID_SAVEAS=4
OLECMDID_SAVECOPYAS=5
OLECMDID_SELECTALL=17
OLECMDID_SETDOWNLOADSTATE=29
OLECMDID_SETPRINTTEMPLATE=51
OLECMDID_SETPROGRESSMAX=25
OLECMDID_SETPROGRESSPOS=26
OLECMDID_SETPROGRESSTEXT=27
OLECMDID_SETTITLE=28
OLECMDID_SHOWFIND=42
OLECMDID_SHOWMESSAGE=41
OLECMDID_SHOWPAGESETUP=43
OLECMDID_SHOWPRINT=44
OLECMDID_SHOWSCRIPTERROR=40
OLECMDID_SPELL=9
OLECMDID_STOP=23
OLECMDID_STOPDOWNLOAD=30
OLECMDID_UNDO=15
OLECMDID_UPDATECOMMANDS=21
OLECMDID_UPDATEPAGESTATUS=48
OLECMDID_ZOOM=19
OLECMDEXECOPT_DODEFAULT=0
OLECMDEXECOPT_PROMPTUSER=1
OLECMDEXECOPT_DONTPROMPTUSER=2
OLECMDEXECOPT_SHOWHELP=3
endConst
Const )
: 0 2 < o J J
0 2 < 4
Envoyer un e-mail par CDO par PONX
( HTML compris ) J $ @- t " Arial Narrow X _ " Arial Narrow X _ V d ` e CONTAINER d \ b ACTIVE > LASTMOUSECLICKED \ SUBJECT b Z LASTMOUSERIGHTCLICKED < SELF Z
#FORMDATA1 ? [ #PAGE2
W #BUTTON3 `
# F i
0 \ p = H #TEXTE4 o OLECMDID_ALLOWUILESSSAVEAS . o OLECMDID_CLEARSELECTION OLECMDID_CLOSE -
OLECMDID_COPY OLECMDID_CUT OLECMDID_DELETE ! - OLECMDID_DONTDOWNLOADCSS / OLECMDID_ENABLE_INTERACTION $
OLECMDID_FIND w OLECMDID_GETPRINTTEMPLATE 4 OLECMDID_GETZOOMRANGE OLECMDID_HIDETOOLBARS , OLECMDID_HTTPEQUIV " P
OLECMDID_HTTPEQUIV_DONE # OLECMDID_NEW w OLECMDID_ONTOOLBARACTIVATED OLECMDID_ONUNLOAD % ,
OLECMDID_OPEN S OLECMDID_PAGESETUP OLECMDID_PASTE
OLECMDID_PASTESPECIAL OLECMDID_PREREFRESH ' OLECMDID_PRINT OLECMDID_PRINT2 1 j OLECMDID_PRINTPREVIEW OLECMDID_PRINTPREVIEW2 2 M OLECMDID_PROPERTIES
OLECMDID_PROPERTYBAG2 & :
OLECMDID_REDO
OLECMDID_REFRESH
OLECMDID_SAVE OLECMDID_SAVEAS m OLECMDID_SAVECOPYAS OLECMDID_SELECTALL OLECMDID_SETDOWNLOADSTATE +
OLECMDID_SETPRINTTEMPLATE 3
OLECMDID_SETPROGRESSMAX
OLECMDID_SETPROGRESSPOS l OLECMDID_SETPROGRESSTEXT
OLECMDID_SETTITLE OLECMDID_SHOWFIND *
OLECMDID_SHOWMESSAGE ) OLECMDID_SHOWPAGESETUP + j OLECMDID_SHOWPRINT , O OLECMDID_SHOWSCRIPTERROR ( OLECMDID_SPELL
OLECMDID_STOP OLECMDID_STOPDOWNLOAD
OLECMDID_UNDO
OLECMDID_UPDATECOMMANDS V OLECMDID_UPDATEPAGESTATUS 0
OLECMDID_ZOOM K OLECMDEXECOPT_DODEFAULT
OLECMDEXECOPT_PROMPTUSER OLECMDEXECOPT_DONTPROMPTUSER OLECMDEXECOPT_SHOWHELP CLOSEDOC LIB_SELF
WORDcloseDoc WORDCLOSE LIB_SELF
WORDWordClose WORDOPEN G
LIB_SELF
WORDWordOpen WORDSHOW
LIB_SELF
WORDWordShow
OPENDOC
LIB_SELF
WORD FILENAMEopenDoc SAVEDOCAS L LIB_SELF
WORD FILENAMEsaveDocAs SAVEDOC LIB_SELF
WORDsaveDoc PRINT LIB_SELF
WORDprint PRINTPREVIEW - LIB_SELF
WORDprintPreview J
CLOSEPRINTPREVIEW LIB_SELF
WORDclosePrintPreview CHERCHEREMPLACE LIB_SELF STR RPL
WORDchercheRemplace
CHERCHEDELPOS ^ LIB_SELF STR
WORDchercheDelPos PASTECLIPBOARD LIB_SELF
WORDpasteClipBoard APROPOS LIB_SELFapropos
OPEN METHOD_SELF EVENTINFO METHOD_SELF EVENTINFO
PUSHBUTTON METHOD_SELF EVENTINFO 4 m J - METHOD_SELF EVENTINFO W , PONX MEM t r p r
T ; r i r u u
%
+
| ' h h&\ P 'AP
KA t< ( D ` | $ !( * t- h h H < t P \ h
+
| U ` P D K ( F A < 7 2 - (
0Ponx.Mciimport win32com.client.
oa = win32com.client.Dispatch('CDO.Message')
oa.From='mc@mclaveau.com'
oa.To='bergoiata@free.fr'
oa.Subject = 'ssuujjeett'>
oa.Textbody = 'Corps du message en texte brut (plain/.text)'
oa.HTMLbody = 'Partie du message,
en HTML
Hourrah ! pour Michel Claveau Informatique
http://mclaveau.com
'"
oa.AddAttachment('C:\\velo.jpg')
oa.Send()PRUN