Enviar Email

[Marcelo Bill]

Olá pessoal

to eu de novo.

Achei fantastico a velocidade do envio de Email dos arquivos xml e pdf no componente acbrnfe2

a única deficiencia é ter que distribuir as dlls. mas até ai isso não é nada

Gostaria de criar uma função EnviarEmailGeral, no mesmo formato

daquela função que tem no componente nfe2, já encontrei a

função dentro do componente, mas infelizmente com o meu pouco

conhecimento não consegui criar uma que me permita exatemnete

o que a função executa, excluindo apenas o anexo automatico da

xml e do pdf.

Desenvolvi uma função usando os componente da Indy...

Funciona, mas o usuario fica muito limitado, pois não são todos

os portais de emails que funcionam ou talvez eu não

tenha feito da forma correta.

Se alguem puder me dar umas dicas de quais Units utilizar

no Uses e como posso eliminar o codigo que envolve a NFE eu

ficaria muito feliz

Valeu obrigado

[armizimm]

Olá Amigo Tem um exemplo aqui, o problema é quando os portais exigem canais seguro para enviar o e-mail.

Resolvi o problema de uma forma radical, me cadastrei no {{ http://www.hospedagratis.net/ }} e transferi um domínio para lá, o preço é bem acessível são R$ 12,00 por 3 anos de hospedagem grátis, la ele aceita o envio de e-mail de todos os padrões.

Como cada cliente usa um provedor diferente, isso acaba tornando-se um pé no saco para nós, então deixo pré definido para a rotina usar o e-mail do domínio HOSPEDAGRATIS, e usar este provedor para envia pelo SMTP, claro os dados do e-mail como resposta, assunto etc vão com a configuração do cliente.

Fica a dica, no meu caso resolveu.

Segue a rotina.

begin

// configura servidor smtp

idSMTP1.Host := 'smtp.empresaxyz.com.br';

idSMTP1.Username := '[email protected]';

idSMTP1.Password := 'xxxxxxxx';

// configurando mensagem

// e-mail da sua loja

idmessage1.ContentType := 'text/html';

idmessage1.from.address := '[email protected]';

// e-mail destinatario

idmessage1.recipients.emailaddresses := '[email protected]';

// Assunto (titulo E-mail)

idmessage1.subject := 'Empresa XYZ (Envio automático NF-e) '+DateTimeToStr(now);

// Corpo da Mensagem (use aqui um HTML ou texto que deseja enviar

// juntamente com a mensagem.

idmessage1.body.Add(

'Prezado Cliente,'+

'Obrigado por comprar na Empresa XYZ. Estamos encaminhando esse e-mail contendo'+

' em anexo, o arquivo eletrônico da sua Nota Fiscal de Compra; de acordo com '+

' o "Manual de Integração do Contribuinte" da Nota Fiscal Eletrônica. '+

'Sds,'+

'A administração!'+

'

'+

'PS. Caso tenha alguma dúvida favor entrar em contato conosco '+

'pelos fones: xx xxx xxxxx ou E-mail: [email protected].x'+

';

'+

'Favor não responder!. Esse e-mail foi enviado automáticamente pelo'+

' nosso servidor após registro da autorização de uso da NF-e para a vossa '+

'Empresa.'

);

// ou carregue uma mensagem pré-definida em um arquivo

//idmessage1.Body.LoadFromFile('mensageNFe_destinatario.html');

// anexa o XML da NFe compartillhada no e-mail

TIdAttachment.create(idmessage1.MessageParts,

TFileName('c:\nfe_arquivos\compartilhadas\procNFE.xml'));

// conecta com o servidor SMTP

idSMTP1.connect;

try

// Envia o e-mail

idSMTP1.send(idmessage1);

finally

idSMTP1.Disconnect;

end;

end

[André Ferreira de Moraes]

Veja http://www.ararat.cz/synapse/doku.php/p ... o:smtpsend

[Cristina Rodriguez]

Eu também vivia tendo problemas com meus e-mails na antiga hospedagem que usava. Tomei coragem também e migrei pra hospedagem da Hostinger. Cara, foi sensacional. Uma coisa tão simples quanto e-mail não pode dar dor de cabeça e tirar o foco do nosso negócio. Resolvi os problemas pagando mais barato do que pagava pela hospedagem de antes.