erro ao enviar email

[reij]

Gente alguém teria alguma ideia do que pode estar acontecendo em um cliente meu que ao enviar nfe da a mensagem "unable to create directory"

 

asintaxe que estou usando é essa

var
 Mensagem: Tstrings;
 Assunto, Endereco: string;

 

begin
 F_Nfe.ACBrNFe1.NotasFiscais.Clear;
  F_Nfe.ACBrNFe1.NotasFiscais.LoadFromFile(EdtArquivo.Text);
  F_Nfe.ACBrNFeDANFEFR1.FastFileEvento := 'C:\Admin\Projeto\Report\EVENTOS.fr3';
   F_Nfe.ACBrNFeDANFEFR1.FastFile := 'C:\Admin\Projeto\Report\DANFeRetrato_Basic.fr3';

 

    mensagem := TStringList.Create;
    Endereco := edtPara.Text; //especifique um email válido
    mensagem.add('nfe emitdas');
    Assunto :='Envio de XML-NFE';

 

      acbrmail1.Host :=                      F_Nfe.edtSmtpHost.Text;
      acbrmail1.port :=                      F_Nfe.edtSmtpPort.Text;
      acbrmail1.Username:=                   F_Nfe.edtSmtpUser.Text;
      acbrmail1.Password :=                  F_Nfe.edtSmtpPass.Text;
      acbrmail1.From :=                      F_Nfe.edtSmtpUser.Text;
      if F_Nfe.cbEmailSSL.Checked = true then // SSL - Conexão Segura then
      begin
      acbrmail1.SetSSL := True
      end
      else
      begin
       acbrmail1.SetSSL := False;
      end;
      ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email
       ACBrMail1.UseThread := False;           //Aguarda Envio do Email(não usa thread)
       ACBrMail1.FromName := F_Nfe.edtSmtpHost.Text;
      F_Nfe.ACBrNFe1.MAIL := ACBrMail1;
      F_Nfe.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(
                                             Endereco //Lista com emails que serão enviado cópias - TStrings
                                             ,Assunto
                                             ,mensagem
                                             ,True //Enviar PDF junto
                                             ,nil // Lista de anexos - TStrings
                                             ,nil  //Pede confirmação de leitura do email
                                            );

 

     Mensagem.Free;

 

na minha maquina funciona sem problemas porem quando tento enviar la no cliente da a mensagem

unable to create directory

 

não tenho ideia do que pode ser o erro, alguém poderia me dar uma dica de como resolver isto

[reij]

Acabei de atualizar o ACBR e continua o mesmo erro

[Juliomar Marchetti]

37 minutos atrás, reij disse:

Acabei de atualizar o ACBR e continua o mesmo erro

Já debugou?

usou o demo da pasta exemplos? faz o mesmo? como reproduzir?

[JoaoPauloRicardo]

pah, soh o facto de funcionar numa maquina e não em outra já diz quase tudo, isto é, o problema está na maquina e não no programa. Parto do principio que ambas as maquinas tem a mesma configuração para enviar os emails.

será que tens problemas de acesso ao tentar criar o pdf que vai enviar em  anexo, ou estás a indicar um caminho inválido para esse efeito?

 

[reij]

na minha maquina com windows 10 e delphi funciona ja na maquina do cliente e na maquina virtual com ambas windows 7 não funciona

[reij]

gente descobri onde estava o problema estava no path do pdf que estava em branco