delphi jmail 发邮件

最新推荐文章于 2025-09-04 10:52:29 发布

fjclc2008

最新推荐文章于 2025-09-04 10:52:29 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

文章标签： delphi forms windows

本文链接：https://blog.youkuaiyun.com/fjclc2008/article/details/6133755

本文介绍了一种利用jmail组件发送HTML格式邮件的方法。通过设置邮件的各种属性，如文字编码、内容类型、发件人信息等，并通过指定SMTP服务器完成邮件发送过程。

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls; //+ComObj

var
Form1: TForm1;
jmail:Variant; //+

try

     jmail:=CreateOleObject('jmail.message');
     jmail.Silent    :=    true;
     jmail.Charset    :=    'gb2312';   // 邮件的文字编码为国标
     jMail.ContentType    :=    'text/html';
     jmail.From    := ‘’;
     jmail.FromName    :=    '‘;
     jmail.Subject    :=    'ninghaidata';
     jmail.AddRecipient(‘’);
     jmail.Body    := 'sdafsdf';
     jmail.MailServerUserName    :=    '';
     jmail.MailServerPassWord    :=    '';

       try
        jmail.Send('smtp.163.com');
       except
        Exit;
       end;
    finally
     jmail.Close;
end;