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; |
Versenden von HTML e-Mails mit indy
Versenden von HTML e-Mails mit indy : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
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; |
Versenden von HTML e-Mails mit indy
By Wiezutun
Versenden von HTML e-Mails mit indy : Mehreren tausend Tipps, um Ihr Leben einfacher machen.