Thema: Delphi EMail mit Anhang

Einzelnen Beitrag anzeigen

Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
397 Beiträge
 
Delphi 10.4 Sydney
 
#14

AW: EMail mit Anhang

  Alt 11. Nov 2019, 19:02
Dies sind meine Einstellungen.
Delphi-Quellcode:
  IdSmtp.Host := fSmtpServer;
  IdSmtp.Port := fSmtpPort;
  IdSmtp.Username := fUserName;
  IdSmtp.Password := fPassword;
  IdSmtp.ConnectTimeout := 60000;
  IdSmtp.UseEHLO := true;

  //-- Test --
  if test then begin
    // IdSmtp.UseEHLO := false;
  end;

  // IdMsg.Clear;
  IdMsg.Sender.Text := fSenderEMail;
  IdMsg.From.Name := fSenderName;
  IdMsg.From.Address := fSenderEMail;
  IdMsg.ReplyTo.EMailAddresses := fSenderEmail;
  IdMsg.Recipients.EMailAddresses := fToEmail;
  IdMsg.Subject := fSubject;
  IdMsg.Priority := fPriority;
  IdMsg.CCList.EMailAddresses := fCCEMail;
  IdMsg.ReceiptRecipient.Text := '';
  IdMsg.BccList.EMailAddresses := fBCCEMail;
  IdMsg.CharSet := 'Windows-1252';
  IdMsg.Encoding := meMIME;
  IdMsg.AttachmentEncoding := 'MIME';
  IdMsg.ContentType := 'text/plain; charset=Windows-1252; format=flowed';
  IdMsg.ContentTransferEncoding := '8 bit';
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat