This code works (except decode_mime) with old plugin. With new one,
it gets to 8 lines in debug window (nothing is displayed, only line
numbers - but this is because of PP i suppose). Just an adaptatin of
code supplied with the plugin....
b = validpath( "D:\\email.xml" )
if( b == 0 ) do
mail.unload
Quit
Endif
ml_test_log_file = "D:\\email.xml"
a = file.deletenorecycle( ml_test_log_file )
mail.error_dialog_off()
mail.use_long_vars()
mail.returns_values()
ml_test_server = "pop.*****.com"
ml_test_username = "******"
ml_test_password = "******"
mail.set_timeout(4000)
ml_no_msgs = mail.connect_to_accnt(ml_test_server, ml_test_username,
ml_test_password)
If (ml_no_msgs == 0) do
mail.unload
Quit
Endif
ml_test_msg_no = 0
ml_result = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<database>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<sortorder>display</sortorder>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<paths>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "</paths>"
RunFile VisualX\GetMail.powerpro @OutputToFile
for (ml_i = 1; ml_i <= ml_no_msgs; ml_i = ml_i + 1)
mfrom = mail.get_msg_from(ml_i)
mfrom = mail.decode_mime( mfrom )
; mfrom = select ( mail.get_msg_from_clean(ml_i), 450 )
; mfrom = translate(
mfrom, "ìèøýáúùíòóæÌÈØÝÁÚÍÒÓÆ", "escrzyauuinocESCRZYAUINOC" )
mto = select ( mail.get_msg_to_clean(ml_i), 450 )
mto = translate(
mto, "ìèøýáúùíòóæÌÈØÝÁÚÍÒÓÆ", "escrzyauuinocESCRZYAUINOC" )
msubj = select ( mail.get_msg_subj_clean(ml_i),450 )
msubj = translate(
msubj, "ìèøýáúùíòóæÌÈØÝÁÚÍÒÓÆ", "escrzyauuinocESCRZYAUINOC" )
msize = select ( mail.get_msg_size(ml_i), 450 )
mdate = select ( mail.get_msg_date(ml_i), 450 )
ml_result = "<item>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<parameter>" ++ msubj ++ "</parameter>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<display>" ++ mfrom ++ "</display>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<information>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<from>" ++ mfrom ++ "</from>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<to>" ++ mto ++ "</to>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<subject>" ++ msubj ++ "</subject>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<size>" ++ msize ++ "</size>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "<date>" ++ mdate ++ "</date>"
RunFile VisualX\GetMail.powerpro @OutputToFile
; *** don't get mesage body, takes too long
; ml_result = "<body>" ++ mail.retrieve_clean(ml_i)
; RunFile VisualX\GetMail.powerpro @OutputToFile
; ml_result = "</body>"
; RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "</information>"
RunFile VisualX\GetMail.powerpro @OutputToFile
ml_result = "</item>"
RunFile VisualX\GetMail.powerpro @OutputToFile
Endfor
ml_result = "</database>"
RunFile VisualX\GetMail.powerpro @OutputToFile
mail.disconnect()
mail.unload
Quit
;---------------------------------------------------------------------
-
@OutputToFile
If (ml_status == "OK") do
Debug &(ml_result)
Exec ToFile "&(ml_test_log_file)" &(ml_result)
Else
Debug &(ml_result ++ " returned error msg: " ++ ml_status)
; Exec ToFile &(ml_test_log_file) &(ml_result ++ "returned
error msg: " ++ ml_status)
Endif
*Quit
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income homes are not online. Make a difference this holiday season!
http://us.click.yahoo.com/5UeCyC/BWHMAA/TtwFAA/JV_rlB/TM
--------------------------------------------------------------------~->
Attention: PowerPro's Web site has moved: http://www.ppro.org
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/power-pro/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
