10091-Network subsystem unusable

digitosistemas · 26 Agosto

Ao tentar enviar email aparece a mensagem Smtp10091-Network subsystem unusable. Como corrigir?

digitosistemas · 26 Agosto

Enviei sem ter finalizado o assunto: Ao tentar enviar email aparece a mensagem Smtp Error: Unable to login, 10091-Network subsystem unusable. Como corrigir?
Enviei por outro componente e o email esta sendo enviado. Só que gostaria de usar somente o acbr.

Var  Dir, ArqXML: string;
  MS: TMemoryStream;
  //P, N: Integer;
begin
  ACBrMail1.From := edemailRemetente.text;
  ACBrMail1.FromName := EdnomeRemetente.text;
  ACBrMail1.Host := edtHost.text; // servidor smtp -> smtp.outlook.com
  ACBrMail1.Username := edtUser.text;
  ACBrMail1.Password := edtPassword.text;
  ACBrMail1.Port := edtPort.text; // porta do servidor smtp 587
  ACBrMail1.SetTLS := chkTLS.Checked;  //False
  ACBrMail1.SetSSL := chkSSL.Checked;  //True servidor necessita SSL
  //ACBrMail1.DefaultCharset := TMailCharset(cbbDefaultCharset.ItemIndex);
  //ACBrMail1.IDECharset := TMailCharset(cbbIdeCharSet.ItemIndex);
  ACBrMail1.AddAddress(edEmailDestinatario.Text, edtAddressName.text);
  ACBrMail1.UseThread := False;
  if edEmailBCC.Text <> '' then
     ACBrMail1.AddCC(edEmailBCC.Text); // opcional
  //ACBrMail1.AddReplyTo('um_email'); // opcional
  //ACBrMail1.AddBCC('um_email'); // opcional
  //case rgPrioridade.ItemIndex of
  //0 : ACBrMail1.Priority := MP_high;
  //1 : ACBrMail1.Priority := MP_high;
  //end;

  //ACBrMail1.ReadingConfirmation := True; // solicita confirmação de leitura
  mLog.Lines.Clear;
  ProgressBar1.Position := 1;

  Dir := FormPrincipal.Caminho;

  //P := pos(' - ', edSubject.Text);
  //if P > 0 then
  //begin
  //  N := StrToIntDef(copy(edSubject.Text, P + 3, 5), 0) + 1;
  //  edSubject.Text := copy(edSubject.Text, 1, P + 2) + IntToStr(N);
  //end;

  ACBrMail1.Clear;
  ACBrMail1.IsHTML := cbUsarHTML.Checked;
  ACBrMail1.Subject := edSubject.Text;

  // mensagem principal do e-mail. pode ser html ou texto puro
  if cbUsarTXT.Checked then
    ACBrMail1.AltBody.Assign(edMensagem.Lines);

  if cbUsarHTML.Checked then
    ACBrMail1.Body.Assign(mBody.Lines);

  {NÃO INCLUIR
  if cbUsarHTML.Checked and cbAddImgHTML.Checked then
  begin
    // Depende de: "<img src='cid:LogoACBr'>" em ACBrMail1.Body;
    if Pos('cid:LogoACBr', ACBrMail1.Body.Text) > 0 then
      ACBrMail1.AddAttachment(Dir + 'acbr_logo2.png', 'LogoACBr', adInline);
  end;
  }
  {
  if cbAddImgAtt.Checked then
    ACBrMail1.AddAttachment(Dir + 'acbr_logo.jpg', '', adAttachment);
   }
   {
   if cbAddXML.Checked then
   begin
    MS := TMemoryStream.Create;
    try
      ArqXML := '52240821962645000185550010000111291000111298-nfe.xml';
      MS.LoadFromFile(Dir + ArqXML);
      ACBrMail1.AddAttachment(MS, ArqXML, adAttachment);
    finally
      MS.Free;
    end;
   end;
   }
   ACBrMail1.Send(cbUsarThread.Checked);
   If Fechar Then
      Close;
end;