0 set $piece(%csmencf,Z,65)=+$$$horolog ; set ^%CSMENCF=%csmencf ; quit $$$OK ; ; Ver Tipo de Envio de Relatorio por E-mail ; VerTipoEnvioRelEmail(varRetorno) ; $$$VAR ; set varRetorno(0)="Servidor" set varRetorno(1)="Local" ; quit $$$OK ; ; Tipo de Envio de Relatório por E-mail ; TIPENVREL do ^%CSUTIMB("Servidor;Local","%codret","Envio Relatório por E-mail",,,,,,,,,"TIPENVRELMB1^%CSMEN080RG") quit:$$CSP^%CSW1UTI() TIPENVRELMB1 set %codret=$select(%=27:"",1:%codret-1) do SetF7^%CSW1UTI(%codret) quit ; ; Obter Tabela Controle Lock ; (JD 21/10/2010) ObterTabelaControleLock(tabControleLock,tipo) ; $$$VAR ; kill tabControleLock ; if $get(tipo)="" set tipo=1 if tipo=0 set tabControleLock="0 - Nativo;1 - Consistem" if tipo=1 set tabControleLock="Nativo;Consistem" ; if tipo=2 do . set tabControleLock(0)="Nativo" . set tabControleLock(1)="Consistem" ; quit $$$OK ; ; Obter Tabela Modelo Numeros com Ponto Flutuante ; ObterTabelaModeloFloat(tabModeloFloat) ; $$$VAR ; kill tabModeloFloat ; set tabModeloFloat(0)="Caractere" set tabModeloFloat(1)="Padrão" ; quit $$$OK ; ; Obter tabela Habilita Subscrito ; (MZ - 12/01/2011) ObterTabSubscrito(tabelaSubscrito,tipo) ; $$$VAR ; kill tabelaSubscrito ; if $get(tipo)="" set tipo=1 if tipo=0 set tabelaSubscrito="0 - Não;1 - Sim" if tipo=1 set tabelaSubscrito="Não;Sim" ; if tipo=2 do . set tabelaSubscrito(0)="Não" . set tabelaSubscrito(1)="Sim" ; quit $$$OK ; ; Ver Tipo de Segurança da Conexão ; VerTipoSegurancaConexao(varRetorno) ; $$$VAR ; set varRetorno(0)="Nenhuma" set varRetorno(1)="SSL/TLS" set varRetorno(2)="SSL" set varRetorno(3)="TLS" ; quit $$$OK ; ; Tipo de Segurança da Conexão ; SegurancaConexao ; do ^%CSUTIMB("Nenhuma;SSL/TLS;SSL;TLS","%codret","Segurança da Conexão",,,,,,,,,"SegurancaConexaoMb1^%CSMEN080RG") quit:$$CSP^%CSW1UTI() SegurancaConexaoMb1 set %codret=$select(%=27:"",1:%codret-1) do SetF7^%CSW1UTI(%codret) quit ; ; csw:csp:naogerar ]]> 4) { new msgcsw,sc merge msgcsw=@mesg set sc=$$EnviarEmail^%CSUTIEM(subject,.msgcsw,smtpdomain,%smtpport,from,.%to,.attachfile,attachtype,userSMTP,passSMTP,,$get(texttype),$get(emailConfirm),$get(%displayfrom),$get(replyTo)) if $$$ISERR(sc) { new er do $system.Status.DecomposeStatus(sc,.er) set FailureReason=$get(er(1)) set:$get(er(1))["#10000: " FailureReason=$piece($get(er(1)),"#10000: ",2) set sc=0 } quit sc } ; set %h=$$$horolog set %inetdate=$$DECDATE(%h) set %inettime=$$INETTIME(%h,%GMTOffset) set %date=%inetdate_" "_%inettime ; set %idx=0,i="" set %mess($increment(%idx))="Date: "_%date set %displayto=$translate($get(%displayto),",",";") if $get(%displayfrom)'="" do . set %mess($increment(%idx))="From: """_%displayfrom_"""<"_from_">" else do . set %mess($increment(%idx))="From: <"_from_">" for set i=$order(%to(i)) quit:i="" do ;quit Chamado: 65845 OS: 35517 . if $get(%displayto)'="" do . . set %mess($increment(%idx))="To: """_$piece(%displayto,";",i)_"""<"_%to(i)_">" . else do . . set %mess($increment(%idx))="To: <"_%to(i)_">" if $get(emailConfirm)=1 do . set %mess($increment(%idx))="Message-ID: <"_$random(1000000000000000)_">" . set %mess($increment(%idx))="Disposition-Notification-To: ""retorno"" <"_from_">" set %mess($increment(%idx))="Subject: "_subject ;set %mess($increment(%idx))="" set %mess($increment(%idx))="MIME-Version: 1.0" set %mess($increment(%idx))="Content-Type: multipart/mixed;boundary="""_separador_"""" set %mess($increment(%idx))="" set %mess($increment(%idx))="--"_separador if texttype=0 do . set %mess($increment(%idx))="Content-Type: text/plain; charset=ISO-8859-1; format=flowed" . ;set %mess($increment(%idx))="Content-Transfer-Encoding: quoted-printable" => Colocado em comentário conforme OS 21327 if texttype=1 do . set %mess($increment(%idx))="Content-Type: text/html;" set %mess($increment(%idx))="" ; set %from="<"_from_">" ;set %to="<"_to_">" set %sent=$$bigsmtp() quit %sent ; bigsmtp() ; raw SMTP client ; new dev,X,rcpt,mess,line,resp,error,port,%zt set %zt=$ztrap kill %smtpdialog ; set $ztrap="smtperr" set dev="|TCP|"_%smtpport,CRLF=$char(13,10) close dev ; just in case open dev:smtpdomain:%timeout else set FailureReason="Failed to connect to smtp server" goto FAIL use dev read resp:%timeout else set FailureReason="Failed to initiate connection with smtp server" goto FAIL dlg1 do ADD2DIALOG(resp) use dev read resp:1 do ADD2DIALOG(resp) ;set resp="passei por aqui 1" do ADD2DIALOG(resp) ; use dev write "EHLO ",owndomain,CRLF,! read resp dlg2 do ADD2DIALOG(resp) if resp'["250" set FailureReason=resp goto FAIL ; ;use dev write "MAIL FROM: ",from,CRLF,! read resp use dev write "MAIL FROM: <",from,">",CRLF,! read resp dlg3 do ADD2DIALOG(resp) if resp'["250" set FailureReason=resp goto FAIL ; set error=0,rcpt="" dlg4 for set rcpt=$order(%to(rcpt)) quit:rcpt="" do TO(%to(rcpt)) if error goto FAIL ; use dev write "DATA",CRLF,! read resp dlg5 do ADD2DIALOG(resp) if resp'["250"&(resp'[354) set FailureReason=resp goto FAIL ; set line="" for set line=$order(%mess(line)) quit:line="" do . set mess=%mess(line) . do MESS(mess) ; set line="" for set line=$order(@mesg@(line)) quit:line="" do . set mess=@mesg@(line) . do MESS(mess) ; ; verifica se existe arquivo(s) anexos a serem enviados ; set sc=1 if $get(attachfile)'="" do . set sc=$$AttachFile(attachfile,attachtype,separador,dev) ; for set cid=$order(attachfile($get(cid))) quit:cid="" do . set sc=$$AttachFile(attachfile($get(cid)),attachtype,separador,dev) ; goto:sc'=1 FAIL do MESS("--"_separador_"--") ; ;set resp="antes do write ." do ADD2DIALOG(resp) use dev write ".",CRLF,! read resp dlg6 do ADD2DIALOG(resp) if resp'["250"&(resp'[354)&($translate(resp,CRLF_" ","")'="") set FailureReason=resp goto FAIL ;set resp="depois do write ." do ADD2DIALOG(resp) ; use dev write "QUIT",CRLF,! read resp:0 dlg7 do ADD2DIALOG(resp) set resp="*** fim ***" do ADD2DIALOG(resp) ; close dev quit 1 ;-------------------------------------------------------------------------+ ; subrotinas incorporadas para facilitar a manutenção futura. | ;-------------------------------------------------------------------------+ DECDATE(dataint) ; transforma data interna em formato utilizado na mensagem ; new %D,%YY,%MM,%DD,%D1 set %D1=$zdate(dataint,5) set %YY=$piece(%D1,", ",2) set %DD=+$piece(%D1," ",2) if %DD<10 set %DD="0"_%DD set %MM=$piece(%D1," ",1) set %D=%DD_" "_%MM_" "_%YY quit %D ; DECTIME(HDATE) ; Decode Time from $H format ; new %T,%HR,%MIN,%SEC,%ampm set %T=$piece(HDATE,",",2) set %HR=%T\3600 set %T=%T-(%HR*3600) set %MIN=%T\60 set %SEC=%T-(%MIN*60) set %ampm="AM" if %HR>12 set %HR=%HR-12,%ampm="pm" if %HR<10 set %HR="0"_%HR if %MIN<10 set %MIN="0"_%MIN if %SEC<10 set %SEC="0"_%SEC set %T=%HR_":"_%MIN_":"_%SEC_" "_%ampm quit %T ; INETDATE(HDATE) ; Decode $H date and time to Internet format ; new %d,%day,%time,%date ; set %time=$piece(HDATE,",",2) if %time>86400 do . set %time=%time-86400 . set HDATE=(HDATE+1)_","_%time ; set %d="Thursday,Friday,Saturday,Sunday,Monday,Tuesday,Wednesday" set %day=(HDATE#7)+1 set %day=$piece(%d,",",%day) ; set %date=$$DECDATE(HDATE) set %date=$translate(%date," ","-") set %time=$$INETTIME(HDATE) set %date=%day_", "_%date_" "_%time quit %date ; INETTIME(horaint,offset) ; ; transforma hora interna em formato utilizado na mensagem ; Offset é relativo a GMT, ex: -0300 ; new %T,%HR,%MIN,%SEC,%ampm set offset=$get(offset) if offset="" set offset="GMT" set %T=$piece(horaint,",",2) set %HR=%T\3600 set %T=%T-(%HR*3600) set %MIN=%T\60 set %SEC=%T-(%MIN*60) if %HR<10 set %HR="0"_%HR if %MIN<10 set %MIN="0"_%MIN if %SEC<10 set %SEC="0"_%SEC set %T=%HR_":"_%MIN_":"_%SEC_" "_offset quit %T ; GetIP() ; pega o ip do servidor cache ; if $piece(%csmencf,"^",30)'="" quit $piece(%csmencf,"^",30) new ipd,ip set ipd=$zutil(54,13,$zutil(54,0)) ; get ip address + domain name set ip=$piece(ipd,",",1) quit ip ; GetFrom() ; quit $piece(%csmencf,"^",24) ; GetUserSMTP() ; quit $piece(%csmencf,"^",33) ; GetPassSMTP() ; quit $piece(%csmencf,"^",34) ; ; GetTo() ; busca o e-mail do destinatario ; new index,end set end=$piece(%csmencf,"^",25) for index=1:1:$length(end,";") do . if $piece(end,";",index)'="" set %to(index)=$piece(end,";",index) quit ;$p(%csmencf,"^",25) ; GetPort() ; busca o numero da porta SMTP ; if $piece(%csmencf,"^",28)'="" quit $piece(%csmencf,"^",28) quit 25 ; GetTimeOut() ; busca o valor de TIMEOUT padrão ; if $piece(%csmencf,"^",31)'="" quit $piece(%csmencf,"^",31) quit 20 ; FAIL close dev quit 0 ; OK close dev quit 1 ; smtperr ; error has occurred ;do ^%wldet set FailureReason="Erro ao enviar e-mail: "_$zerror set $ztrap=%zt quit 0 ; TO(to) ; use dev write "RCPT TO: <",to,">",CRLF,! read resp do ADD2DIALOG(resp) if resp'["250" set FailureReason=resp,error=1 quit quit ; MESS(line) ; new %buf,%p1 set %buf=$get(line) if %buf="" do quit . use dev write CRLF,! ; for quit:%buf="" do . set %p1=$extract(%buf,1,254),%buf=$extract(%buf,255,$length(%buf)) . if $extract(%p1)="." set %p1="."_%p1 . if $length(%p1) use dev write %p1,! use dev write CRLF,! quit ; MESS2(line) ; new %buf,%p1 set %buf=$get(line) if %buf="" do quit . use dev write ! ; for quit:%buf="" do . set %p1=$extract(%buf,1,254),%buf=$extract(%buf,255,$length(%buf)) . ;if $extract(%p1)="." set %p1="."_%p1 . if $length(%p1) use dev write %p1 use dev write CRLF,! quit ; ADD2DIALOG(line) ; ; new %lineno set %lineno=$zprevious(%smtpdialog(""))+1 set %smtpdialog(%lineno)=line quit ; ; Teste de E-mail ; ;set sc=$$TEST^%CSUTIEM("coelho@consistem.com.br","coelho@consistem.com.br",1) TEST(from,to,confirm) ; new codSeq,var,%,tabfile new tabEmail,tabDestino,i set (codSeq)="" set to=$get(to) set from=$get(from) if from="" write !,"Nao foi informado o e-mail do remetente" quit set confirm=+$get(confirm) ; kill tabEmail,tabDestino set tabEmail(1)="Teste de E-mail pelo Sistema Consistem ( "_$zdate(+$$$horolog,4)_" as "_$ztime($piece($$$horolog,",",2))_" )" set tabEmail(2)="Utilitário de E-mail %CSUTIEM" set tabEmail(3)="---------------------------------------------------------------------------------" if confirm=1 do . set tabEmail(4)="Este e-mail esta sendo enviado pelo gerador de e-mails da Consistem" . set tabEmail(5)="Com confirmação de resposta!" . set tabEmail(6)="Se seu software de e-mail nao enviar confirmacao, faca contato com a Consistem" ; kill tabDestino do . new idx,end,i . set idx=0,end=$piece($get(^%CSMENCF),"^",25) . for i=1:1:$length(end,";") do . . if $piece(end,";",i)'="" set tabDestino($increment(idx))=$piece(end,";",i) . set end=$piece($get(^%CSMENCF),"^",26) . for i=1:1:$length(end,";") do . . if $piece(end,";",i)'="" set tabDestino($increment(idx))=$piece(end,";",i) . set end=$translate(to,",",";") . for i=1:1:$length(end,";") do . . if $piece(end,";",i)'="" set tabDestino($increment(idx))=$piece(end,";",i) ; for set codSeq=$order(tabmsg(codSeq),1,var) quit:codSeq="" do . set tabEmail($order(tabEmail(""),-1)+1)=var set tabfile(1)="/usr/tmp/leandro/camaqua/2010/08/03/43100801229700000115550020000014940186551334-nfe.xml" ; ; Envia e-mail ; set %=$$SEND^%CSUTIEM("Teste %CSUTIEM","tabEmail","",from,"tabDestino",,,,,,,,,,confirm) quit % ; ; Novo metodo de envio de email ; EnviarEmail(subject,mesg,smtpdomain,smtpport,from,destinatario,attachfile,attachtype,userSMTP,passSMTP,timeZone,tipoTexto,emailConfirm,%cswDisplayFrom,replyTo) ; new AUTH,MSG,SMTP,sc,linha,IsWin,cid,confSSL,nspOri,conexaoSegura #include %occOptions #include %occStatus set sc=1,IsWin=$zversion["Windows" set:$get(attachfile)="" attachfile="" set:$get(mesg)="" mesg="" set:$get(^%SYS("TempDir"))="" ^%SYS("TempDir")=$select($piece($get(^%CSMENCF),"^",32)'="":$piece($get(^%CSMENCF),"^",32),1:$select(IsWin:"c:\WINDOWS\Temp",1:"/usr/tmp")) set conexaoSegura=+$piece($get(^%CSMENCF),"^",77) ; ; Verifica se utiliza conexão segura (SSL/TLS) if "123"[conexaoSegura { quit $$EnviarEmailSeguro(subject,.mesg,smtpdomain,smtpport,from,.destinatario,.attachfile,userSMTP,passSMTP,tipoTexto,emailConfirm,%cswDisplayFrom,$get(replyTo),conexaoSegura) } ; set SMTP=##class(%Net.SMTP).%New() if $get(userSMTP)'=""&&($get(passSMTP)'="") do . set AUTH=##class(%Net.Authenticator).%New() . set AUTH.UserName=userSMTP . set AUTH.Password=passSMTP . set SMTP.authenticator=AUTH set SMTP.smtpserver=smtpdomain set SMTP.port=smtpport ; set MSG=##class(%Net.MailMessage).%New() set MSG.From=$get(%cswDisplayFrom)_"<"_from_">" if $get(replyTo)'="" set MSG.ReplyTo = replyTo if ($get(emailConfirm)=1) do . do MSG.Headers.SetAt($random(1000000000000000),"Message-ID") . do MSG.Headers.SetAt(""""_from_""" <"_from_">","Disposition-Notification-To") ; ; STRING - Tratamento na String caso seja passado um endereço separado por ; if ($get(destinatario)'="")&&($get(destinatario)'[";") do . set sc=$$VerEmail^%CSUTICSP(destinatario) . if $$$ISERR(sc) quit . else do MSG.To.Insert(destinatario) ; if $$$ISERR(sc) quit sc ; if $get(destinatario)[";" do . for i=1:1:$length(destinatario,";") do . . if $piece(destinatario,";",i)'="" set sc=$$VerEmail^%CSUTICSP($piece(destinatario,";",i)) . . if $$$ISERR(sc) quit . . else if $piece(destinatario,";",i)'="" do MSG.To.Insert($piece(destinatario,";",i)) ; if $$$ISERR(sc) quit sc ; ; VETOR - Tratamento na String caso seja passado um endereço separado por ; ; for set linha=$order(destinatario($get(linha))) quit:linha=""!(sc'=1) do . if $get(destinatario($get(linha)))'[";" do . . set sc=$$VerEmail^%CSUTICSP($get(destinatario($get(linha)))) . . if $$$ISERR(sc) quit . . else do MSG.To.Insert($get(destinatario($get(linha)))) . else do . . for i=1:1:$length($get(destinatario($get(linha))),";") do . . . if ($piece($get(destinatario($get(linha))),";",i)'="") do . . . . set sc=$$VerEmail^%CSUTICSP($piece($get(destinatario($get(linha))),";",i)) . . . . if $$$ISERR(sc) quit . . . . else do MSG.To.Insert($piece($get(destinatario($get(linha))),";",i)) ; if $$$ISERR(sc) quit sc ; set MSG.Subject=subject ; if $get(attachfile)'="" do . set sc=$$AttachStream(attachfile,.MSG) ; for set cid=$order(attachfile($get(cid))) quit:cid="" do . set sc=$$AttachStream(attachfile($get(cid)),.MSG) ; if $get(tipoTexto)=1 set MSG.IsHTML=1 for set linha=$order(mesg($get(linha))) quit:linha="" do . do MSG.TextData.Write($get(mesg(linha))) . do MSG.TextData.Write($char(13,10)) if $order(mesg(linha))="" do MSG.TextData.Write(mesg) if $$$ISERR(sc) quit sc set sc=SMTP.Send(MSG) if $$$ISERR(sc) quit sc quit $$$OK ; ; Envia e-mail seguro ; EnviarEmailSeguro(subject,msg,host,port,from,to,attachFile,user,password,isHTML,emailConfirm,displayFrom,replyTo,conexaoSegura) ; new IsWin,barra,nomeArq,toFormat,sc,attachFileFormat,tabParam set IsWin=$zversion["Windows" set barra=$select(IsWin:"\",1:"/") ; do CriarArqMensagem(.msg,.nomeArq,subject) set sc=$$GetDestinatarios(.to,.toFormat) if $$$ISERR(sc) quit sc set sc=$$GetAttachFile(.attachFile,.attachFileFormat) if $$$ISERR(sc) quit sc ; set tabParam(1)=nomeArq set tabParam(2)=host set tabParam(3)=port set tabParam(4)=from set tabParam(5)=toFormat set tabParam(6)=attachFileFormat set tabParam(7)=user set tabParam(8)=password set tabParam(9)=isHTML set tabParam(10)=emailConfirm set tabParam(11)=displayFrom set tabParam(12)=$get(replyTo) set tabParam(13)=conexaoSegura ; set sc=$$ExecutarArquivoJAR^CCUTIRG006($get(CE),13,.tabParam) if sc'=1 quit $$$ERROR(10000,"Falha no envio do e-mail!") ; set sc=##class(%File).Delete(nomeArq) quit $$$OK ; ; Cria arquivo com o corpo do e-mail ; CriarArqMensagem(msg,nomeArq,subject) ; new fileBodyEmail,linha,sc set nomeArq=$$caminhoTmp^%CSUTICI()_"bodyEmail"_$$$job_".txt" set fileBodyEmail=##class(%File).%New(nomeArq) set sc=fileBodyEmail.Open("WN:/IOTABLE=""UTF8""") do fileBodyEmail.WriteLine($get(subject)) for { set linha=$order(msg($get(linha))) quit:linha="" do fileBodyEmail.WriteLine($get(msg(linha))) } if $order(msg(linha))="" do fileBodyEmail.WriteLine($get(msg)) do fileBodyEmail.Close() set fileBodyEmail="" quit ; ; Busca destinatarios formatados com separador "," ; GetDestinatarios(destinatario,destFormat) ; new i,sc set destFormat="" set sc=1 if ($get(destinatario)'="")&&($get(destinatario)'[";") do . set sc=$$VerEmail^%CSUTICSP(destinatario) . if $$$ISERR(sc) quit . else set destFormat=$select(destFormat="":destinatario,1:destFormat_","_destinatario) ; if $$$ISERR(sc) quit sc ; if $get(destinatario)[";" do . for i=1:1:$length(destinatario,";") do . . if $piece(destinatario,";",i)'="" set sc=$$VerEmail^%CSUTICSP($piece(destinatario,";",i)) . . if $$$ISERR(sc) quit . . else if $piece(destinatario,";",i)'="" set destFormat=$select(destFormat="":$piece(destinatario,";",i),1:destFormat_","_$piece(destinatario,";",i)) ; if $$$ISERR(sc) quit sc ; ; VETOR - Tratamento na String caso seja passado um endereço separado por ; ; for set linha=$order(destinatario($get(linha))) quit:linha=""!(sc'=1) do . if $get(destinatario($get(linha)))'[";" do . . set sc=$$VerEmail^%CSUTICSP($get(destinatario($get(linha)))) . . if $$$ISERR(sc) quit . . else set destFormat=$select(destFormat="":$get(destinatario($get(linha))),1:destFormat_","_$get(destinatario($get(linha)))) . else do . . for i=1:1:$length($get(destinatario($get(linha))),";") do . . . if ($piece($get(destinatario($get(linha))),";",i)'="") do . . . . set sc=$$VerEmail^%CSUTICSP($piece($get(destinatario($get(linha))),";",i)) . . . . if $$$ISERR(sc) quit . . . . else set destFormat=$select(destFormat="":$piece($get(destinatario($get(linha))),";",i),1:destFormat_","_$piece($get(destinatario($get(linha))),";",i)) quit $$$OK ; ; Busca arquivos anexo formatados com separador "," ; GetAttachFile(attachFile,attachFileFormat) ; new i ; set attachFileFormat="" if $get(attachFile)'="" do . set attachFileFormat=$select(attachFileFormat="":attachFile,1:attachFileFormat_","_attachFile) ; for set i=$order(attachFile($get(i))) quit:i="" do . set attachFileFormat=$select(attachFileFormat="":attachFile($get(i)),1:attachFileFormat_","_attachFile($get(i))) set attachFileFormat=""""_attachFileFormat_"""" quit $$$OK ; ; ; AttachStream(attachfile,Msg) ; new msg,file,stream,sc,IsWin,arquivo,dir,sep set msg=Msg.AttachNewMessage(),IsWin=$zversion["Windows" set sep=$select(IsWin:"\",1:"/") if $extract(attachfile,$length(attachfile))=sep set attachfile=$extract(attachfile,1,$length(attachfile)-1) set dir=$piece(attachfile,sep,1,$length(attachfile,sep)-1) set arquivo=$piece(attachfile,sep,$length(attachfile,sep)) set sc=msg.AttachFile(dir,arquivo,1) if sc'=1 quit $$$ERROR(10000,sc) do msg.%Close() quit $$$OK ; ; Incluir Arquivo Serial ; AttachFile(attachfile,attachtype,separador,dev) ; new narq,error,line,stream set narq=$translate(attachfile,"/","\") set narq=$piece(narq,"\",$length(narq,"\")) set $ztrap="attachError" set sc=1 if '##class(%File).Exists(attachfile) quit $$$ERROR(1000,"Arquivo para anexo não existe!") do MESS("") do MESS("--"_separador) if attachtype=0 { do MESS("Content-Type: text/plain;name="""_narq_"""") do MESS("Content-Transfer-Encoding: 7bit") ; O.S. 38019 } else { if ($zconvert($piece(narq,".",2),"l")="xml"){ do MESS("Content-Type: text/xml;name="""_narq_"""") } else { do MESS("Content-Type: application/octet-stream;Charset=ISO-8859-1;name="""_narq_"""") } do MESS("Content-Transfer-Encoding: base64") } do MESS("Content-Disposition: attachment;filename="""_narq_"""") do MESS("") set stream=##class(%FileBinaryStream).%New() set stream.Filename=attachfile while 'stream.AtEnd { if attachtype=0 { set line=stream.Read(254) do MESS2(line) } else { set line=stream.Read(63) use dev write $system.Encryption.Base64Encode(line),! } } set stream="" do MESS(CRLF) set $ztrap="smtperr" if sc'=1 { do $system.Status.DecomposeStatus(sc,.error) set FailureReason=$get(error(1)) quit 0 } use dev write ! use 0 quit $$$OK ; ; tratamento de erro para inclusão de arquivo ; attachError ; //quit 1 set FailureReason="Erro ao adicionar o anexo: "_$zerror close dev quit 1 ; csw:csp:naoconverter ]]>