MATLAB发邮件

最新推荐文章于 2025-01-18 15:21:05 发布

pdw2009

最新推荐文章于 2025-01-18 15:21:05 发布

阅读量792

点赞数

分类专栏： R-MatLab-Weka

R-MatLab-Weka 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用Matlab实现的邮件发送函数MatlabSendMailGeneral，该函数支持发送带附件的邮件，并能处理多种邮箱服务商的SMTP服务器配置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

函数MatlabSendMailGeneral.m

 function MatlabSendMailGeneral(subject, content, TargetAddress, Attachments,SourceAddress,password)
%% by LiYang_faruto
% Email:farutoliyang@foxmail.com
% 2015/05/01
%% 输入输出设置
if nargin < 6 || isempty(password)
    str = ['请输入发送邮件的邮箱密码'];
    disp(str);
    return;
end
if nargin < 5 || isempty(SourceAddress)
    str = ['请输入发送邮件的邮箱地址'];
    disp(str);
    return;
end
if nargin < 4
    Attachments = [];
end
if nargin < 3 || isempty(TargetAddress)
    TargetAddress = SourceAddress;
end
if nargin < 2 || isempty(content)
    content = 'contentTest(FromMatlab)';
end
if nargin < 1 || isempty(subject)
    subject = 'subjectTest(FromMatlab)';
end

%% SMTP_Server Get
ind = find( SourceAddress == '@', 1);
temp = SourceAddress(ind+1:end);

FieldName = temp;
SMTP_Server = ['smtp.',FieldName];

% ind = find( temp == '.', 1 );
% FieldName = temp(1:ind-1);
% if strcmpi(FieldName, 'foxmail')
%     FieldName = 'qq';
% end
% SMTP_Server = ['smtp.',FieldName,'.com'];

str = ['SMTP_Server=',SMTP_Server];
disp(str);
disp('即将发送邮件，若发送邮件不成功，请手动修改代码调整SMTP_Server');
%% 发送邮件
try
    setpref('Internet','SMTP_Server',SMTP_Server);%SMTP服务器，记住要改成自己邮箱的smtp（百度一下就行了）
    setpref('Internet','E_mail',SourceAddress);
    setpref('Internet','SMTP_Username',SourceAddress);
    setpref('Internet','SMTP_Password',password);
    
    props = java.lang.System.getProperties;
    props.setProperty('mail.smtp.auth','true');
    
    if isempty(Attachments)
        sendmail(TargetAddress, subject, content);
    else
        sendmail(TargetAddress, subject, content, Attachments);
    end
catch err
    str = ['发生异常'];
    disp(str);
    for i = 1:size(err.stack,1)
        StrTemp = ['FunName：',err.stack(i).name,' Line：',num2str(err.stack(i).line)];
        disp(StrTemp);
    end
    
%     str = ['SMTP_Server=',SMTP_Server];
%     disp(str);
%     disp('若发送邮件不成功，请手动修改代码调整SMTP_Server');
end

%%
disp('邮件发送完毕！');
DateTimedemo = datestr(now,'yyyy-mm-dd HH:MM:SS')

测试脚本：

%% Main_MatlabSendMailTest
% by LiYang_faruto
% Email:farutoliyang@foxmail.com
% 2015/05/01
%% A Little Clean Work
tic;
% clear;
% clc;
% close all;
format compact;
%%

SourceAddress = '输入自己的邮箱地址'; %自己的邮箱地址
password = '输入自己邮箱的密码'; %输入自己邮箱的密码

subject = '中文英文123Test';
content = subject;

TargetAddress = SourceAddress;

MatlabSendMailGeneral(subject, content, TargetAddress, [],SourceAddress,password);


%% Record Time
toc;
displayEndOfDemoMessage(mfilename);