Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Lotus Notes OLE web.de/gmx Zustellungsfehler 554 (https://www.delphipraxis.net/204579-lotus-notes-ole-web-de-gmx-zustellungsfehler-554-a.html)

dataspider 8. Jun 2020 17:10

Lotus Notes OLE web.de/gmx Zustellungsfehler 554
 
Hat zufällig noch jemand noch Lotus Notes in Einsatz und ebenfalls Probleme beim Senden von Mails an gmx - oder web.de - Mailadressen?
Die Mails werden nach dem letzten Notes - Update auf 9.01 FP10 abgewiesen:

554-Transaction failed 554-Reject due to policy restrictions. 554 For explanation visit https://www.gmx.net/mail/senderguide...7.214.229&c=hi

Ich sende per OLE / CoNotesSession.Create...


Danke

Frank Reim

Elspass 8. Jun 2020 22:40

AW: Lotus Notes OLE web.de/gmx Zustellungsfehler 554
 
Moin, Moin,

wir setzen "noch" IBM Notes ein und sind nicht sich ob wir auf HCL gehen.
Die Versionen 9.x und 10.x haben auch ohne OLE Verbindung einige Probleme. Für eine SSL Verbindung hat Eknori eine NSF mit Let's Encrypt kostenlos zur Verfügung gestellt.
Vielleicht akzeptiert GMX mit einem Zertifikat Deine Mail.

Gruß Jörg

dataspider 9. Jun 2020 14:59

AW: Lotus Notes OLE web.de/gmx Zustellungsfehler 554
 
Vielen Dank!

Ich habe es nun gelöst.
Die Version mit FP10 ist tatsächlich fehlerhaft.
Ich hatte das SendTo im MIME - Part im Header untergebracht.
Lotus Notes hat daraus 3 identische Einträge gemacht.
Und 3 mal die selbe Mailadresse hat gmx / web.de halt nicht akzeptiert.

Jetzt habe ich die Recipients nicht mehr im MIME - Part sondern im Document.
Damit funktioniert es wieder.

Frank

Elspass 9. Jun 2020 16:27

AW: Lotus Notes OLE web.de/gmx Zustellungsfehler 554
 
Hast Du das FP4 installiert?
Dann würde ich das bei uns auch mal einspielen.

dataspider 10. Jun 2020 07:30

AW: Lotus Notes OLE web.de/gmx Zustellungsfehler 554
 
Zitat:

Zitat von Elspass (Beitrag 1466872)
Hast Du das FP4 installiert?
Dann würde ich das bei uns auch mal einspielen.

Release 9.0.1FP10 SHF315
Revision 20180125.1451-T00315SHF-FP10 (Release 9.0.1FP10 SHF315)

Um diese Version geht es.
Aus Lotus Notes direkt gibt es keine Probleme, nur aus Delphi über OLE.
Ich habe auch die Typenbibliothek neu importiert etc.
Aber jetzt läuft es ja wieder...

Frank

Elspass 10. Jun 2020 07:35

AW: Lotus Notes OLE web.de/gmx Zustellungsfehler 554
 
Okay, danke für die Antwort.
Wir haben das Problem mit der 10.01 FP1 sogar mit LotusScript.

dataspider 10. Jun 2020 08:26

AW: Lotus Notes OLE web.de/gmx Zustellungsfehler 554
 
Lotus Script nutzt sicher die selben DLL' s wie OLE.

Vielleicht hilft es dir ja:

Delphi-Quellcode:
procedure TLotusNotesMail.BuildMail;
Var
  MailMain: IMIMEEntity;
  MailParent: IMIMEEntity;
  MailBody: IMIMEEntity;
  BodyStream: INotesStream;
  MimeHeader: IMIMEHeader;
  i: Integer;

  procedure AddHeader(const AEntity: IMIMEEntity; const AHeaderName,
      AHeaderValue: string; const AEncode: Boolean = False);
  begin
    MimeHeader := AEntity.CreateHeader(AHeaderName);
    if AEncode then
      MimeHeader.SetHeaderVal(EncodeHeader(AHeaderValue, '', 'Q', 'ISO-8859-15'))
    else
      MimeHeader.SetHeaderVal(AHeaderValue);
  end;

  procedure SetToHeader(const AName, AValue: string);
  begin
    FDocument.ReplaceItemValue(AName, EncodeHeader(AValue, '', 'Q', 'ISO-8859-15'));
    //FDocument.ReplaceItemValue(AName, AValue);
  end;

begin

  LNSession.ConvertMime := False;
  FDocument := FLNDataBase.CreateDocument;
  FDocument.ReplaceItemValue('From', LNSession.EffectiveUserName);
  FDocument.ReplaceItemValue('Principal', LNSession.EffectiveUserName);
  // Hauptblock
  MailMain  := FDocument.CreateMIMEEntity(sBody);
  AddHeader(MailMain, SContentType, CONTENTTYPE_MULTIPART_MIXED);

  // Hier die Änderungen von MIME zu Document
  if (Mail.SendTo <> '') then
    SetToHeader(STo, Mail.SendTo);
    //AddHeader(MailMain, STo, Mail.SendTo);
  if (Mail.ToAddresses <> '') then
    SetToHeader(STo, Mail.ToAddresses);
    //AddHeader(MailMain, STo, Mail.ToAddresses, True);
  if (Mail.CcAddresses <> '') then
    SetToHeader(SCc, Mail.CCAddresses);
    //AddHeader(MailMain, SCc, Mail.CcAddresses, True);
  if (Mail.BccAddresses <> '') then
    SetToHeader(SBCc, Mail.BccAddresses);
    //AddHeader(MailMain, SBcc, Mail.BccAddresses, True);

  SetToHeader('Recipients', Mail.Recipients);

  //AddHeader(MailMain, SSubject, Mail.Subject, True);
  FDocument.ReplaceItemValue(SSubject, Mail.Subject);

  // Parent Entity
  MailParent := MailMain.CreateChildEntity(nil);
  AddHeader(MailParent, SContentType, CONTENTTYPE_MULTIPART_RELATED);

  // Body
  EncodeBodyText;
  MailBody := MailParent.CreateChildEntity(nil);

  BodyStream := FLNSession.CreateStream;
  BodyStream.WriteText(FBodyText.Text, EOL_CRLF);
  BodyStream.WriteText('<br><br>', EOL_CRLF);

  MailBody.SetContentFromText(BodyStream, STextHtml, ENC_QUOTED_PRINTABLE);
  MailBody.EncodeContent(ENC_QUOTED_PRINTABLE);

  BodyStream.Close;
  BodyStream.Truncate;
  BodyStream := nil;

  // Files
  for i := 0 to Mail.Attachments.Count - 1 do
     AttachFile(MailMain, Mail.Attachments.Strings[i]);

  for i := 0 to Mail.InlineImages.Count - 1 do
    WriteInlineImage(MailParent, Mail.InlineImages.Items[I]);

  MimeHeader := nil;
  MailParent := nil;
  MailBody  := nil;
  MailMain  := nil;
end;
Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf