I've tried this following code without succes :
Code: Select all
startCase(Action,_) :-
Action = 4,
try
ResultStream = outputStream_String::new(),
Connection = vPcURL::new(ResultStream, caseCompletion, Action),
_ = Connection:curl_easy_setopt(cURLOPT_USERPWD, s("xxx.xxx@xxx.com:my_passwd")),
_ = Connection:curl_easy_setopt(cURLOPT_URL, s("pop3://mail.xxx.com/1")), % first mail
_ = Connection:curl_easy_setopt(cURLOPT_CUSTOMREQUEST, s("DELE")),
_ = Connection:curl_easy_setopt(cURLOPT_NOBODY, i(1)),
_ = Connection:curl_easy_perform()
catch _ do
taskWindow::ecri_log(string::format("startCase % not ok.", Action)),
succeed()
end try.