Fórum envio de boleto por email utilizando cobrebem #378748

pesquisando na internet encontrei isso dai e funcionou
só que só nos servidor smtp que não utilizam TSL
talvez sirva pra alguem que procure
atéh


declarando as variáveis
Boleto, Cobrebemx, EmailSacado : variant;

CobreBemX := CreateOleObject('CobreBemX.ContaCorrente');
CobreBemX.ArquivoLicenca := CobreBem.dataSet.FieldByName('ARQUIVOLICENCA').asString;

Boleto := CobreBemX.DocumentosCobranca.Add;

CobreBemX.PadroesBoleto.PadroesBoletoEmail.SMTP.Servidor := smtp.gmail.com
CobreBemX.PadroesBoleto.PadroesBoletoEmail.SMTP.Porta := 25 ou 587 (já testei as duas)
CobreBemX.PadroesBoleto.PadroesBoletoEmail.SMTP.Usuario := conta email da gmail;
CobreBemX.PadroesBoleto.PadroesBoletoEmail.SMTP.Senha := senha do conta do gmail acima;
CobreBemX.PadroesBoleto.PadroesBoletoEmail.URLImagensCodigoBarras := Endereço na web com as imagens;
CobreBemX.PadroesBoleto.PadroesBoletoEmail.URLLogotipo := Endereço na web com a imagem;
CobreBemX.PadroesBoleto.PadroesBoletoEmail.PadroesEmail.Assunto := 'qualquer um'
CobreBemX.PadroesBoleto.PadroesBoletoEmail.PadroesEmail.EmailFrom.Endereco := conta email da gmail;
CobreBemX.PadroesBoleto.PadroesBoletoEmail.PadroesEmail.EmailFrom.Nome := 'fulano'
CobreBemX.PadroesBoleto.PadroesBoletoEmail.PadroesEmail.FormaEnvio := feeSMTPBoletoHTML;

EmailSacado := Boleto.EnderecosEmailSacado.Add;
EmailSacado.Nome := 'Nome do cliente'
EmailSacado.Endereco := email do cliente;

Boleto.ControleProcessamentoDocumento.EnviaEmail := scpExecutar;
CobreBemX.EnviaBoletosPorEmail;

ahh se alguem descobrir como enviar o email com estes servidores que utilizam
TSL / SSL podem postar ai a forma que será de grande utilidade pra mim.
ainda preciso implementar isso no meu sistema

Desde já agradeço!

segue uma lista como os servidores smtp que usam e não usam o TSL/SSL;

http://superlogica.com/faq/00259