Versenden von HTML e-Mails mit indy

10/5/2023

15679

Versenden von HTML e-Mails mit indy

Dieses Beispiel zeigt, wie Sie HTML-Emails mit Delphi und Indy, mit eingebetteten Bildern zu senden.

verwendet
IdMessage;
Prozedur TForm1.Button1Click(Sender: TObject);
var
HTML: TStrings;
Htmpart, Txtpart: TIdText;
Bmppart: TIdAttachment;
e-Mail: TIdMessage;
Dateiname: string;
beginnen
Filename: = ExtractFilePath(Application.ExeName) + 'us.jpg';
HTML: = TStringList.Create();
HTML-Code. Fügen Sie hinzu ('< html >');
HTML-Code. Fügen Sie hinzu ('< Head >');
HTML-Code. Hinzufügen ('</head >');
HTML-Code. Hinzufügen ('< Körper >< h1 > Hallo </h1 >');
HTML-Code. Hinzufügen ('< Img src=/upload/computers-internet/programming/sending_html_emails_with_indy_0.jpg/> ');
HTML-Code. Hinzufügen ('Dies ist ein Bild von uns! </body >');
HTML-Code. Hinzufügen ('</html >');
e-Mail: = TIdMessage.Create(nil);
E-Mail. From.Text: = 'Die [email protected]';
E-Mail. Recipients.EMailAddresses: = 'Die [email protected]';
E-Mail. Betreff: = 'Hallo';
E-Mail. ContentType: = ' Multipart/mixed';
E-Mail. Body.Assign(html);
Txtpart: = TIdText.Create (e-Mail. MessageParts);
Txtpart. ContentType: = ' Text/Plain';
Txtpart. Body.Text: = '';
Htmpart: = TIdText.Create (e-Mail. MessageParts, html);
Htmpart. ContentType: = ' Text/html';
Bmppart: = TIdAttachment.Create (e-Mail. MessageParts, Filename);
Bmppart. ContentType: = 'Image/Jpeg';
Bmppart. FileIsTempFile: = True;
Bmppart. ContentDisposition: = 'Inline';
Bmppart. ExtraHeaders.Values ['Content-Id']: = 'us.jpg';
Bmppart. DisplayName: = 'us.jpg';
versuchen Sie
idSMTP.Connect();
versuchen Sie
idSMTP.Send(email);
ShowMessage('Sent');
mit Ausnahme von
auf E: Ausnahme do
ShowMessage (' Fehler: '+ E.Message);
Ende;
Schließlich
idSMTP.Disconnect();
E-Mail. Free();
HTML-Code. Free();
Ende;
Ende;