Envio de Anexo via Email utilizando TIpMail
Enviado: 18 Out 2013 14:02
Saudações!
Estou tendo dificuldades para anexar um arquivo a um email e envilá-lo através da classe TIpMail().
Não estou conseguindo montar o email, utilizar TIpMail, com um anexo.
Eu verifico o retorno do método attachFile e é sempre False.
Alguém utiliza esta classe e consegue enviar seus anexos por email ?
Utilizo o Seguinte Código para enviar email. O envio ocorre, o email é enviado como HTML, so o arquivo que não é anexado ao email.
Obrigado pela atenção de todos!
Deus continue nos abençoando!
Estou tendo dificuldades para anexar um arquivo a um email e envilá-lo através da classe TIpMail().
Não estou conseguindo montar o email, utilizar TIpMail, com um anexo.
Eu verifico o retorno do método attachFile e é sempre False.
Alguém utiliza esta classe e consegue enviar seus anexos por email ?
Utilizo o Seguinte Código para enviar email. O envio ocorre, o email é enviado como HTML, so o arquivo que não é anexado ao email.
Código: Selecionar todos
oEmail = TIpMail():new()
//Para definir o email como Html
oEmail:setFieldPart('From:', '"'+cEmpNome+'" <'+emaildefault+'>')
oEmail:setFieldPart('Content-Type', 'multipart/alternative; charset="utf-8"') //'text/html; charset="iso-8859-1"')
oEmail:setFieldPart("content", "Content-Type")
oEmail:setFieldPart("MIME-Version", "1.0")
//Fim Definir o email como Html
oEmail:setHeader(cAssunto, cEmailEmit, cDest)
oEmail:setBody(FormHtml(cAssunto,cMsg))
//Mudar para case: Case null faz nada, case Array faz for, e caso contr rio so so pega o valor.
if oEmail:attachFile(cArq) //Já tentei indicar um arquivo direto.
alert("Arquivo Anexado")
else
alert("Arquivo não foi anexado")
endif
oUrl = TUrl():new(emaildefaulturl) //Utilizado na conexão com do SMTP.
oSmtp = TIpClientSmtp():new(oUrl:buildAddress())
if oSmtp:open()
oSmtp:sendMail(oEmail)
oSmtp:Close()
else
alert("Não foi possível conectar ao servidor para envio do email, erro: "+oSmtp:lastErrorMessage())
endif
Deus continue nos abençoando!