如何使用matlab發(fā)送html格式郵件

1、Matlab 發(fā)送html格式郵件Matlab是非常優(yōu)秀的數(shù)據(jù)分析軟件,具有很多優(yōu)秀的功能,比如發(fā)送郵件。但是matlabmatlab自帶的sendmail不支持html方式發(fā)送郵件正文，有時(shí)候非常不方便。查詢可知的sendmail和java的javax.mail package有密切關(guān)系，可以通過修改原函數(shù)的部分參數(shù),擴(kuò)展后就可以發(fā)送帶 html格式正文的郵件了。先截圖看下效果:1<n；.1) 3TTgi671 swaztiMTi 託0 311315ilOSiMlJ的QRTp即町工9E65aa:n?Qg 假ncii2ip73ttt.：J30 50 慚 2DK92I7a SK13C10

2、362971? 731523 JZ5g-7pS25&17751755囲弓泗7&J旳備I3 9W37P53BH2(.44 珈修改的部分為:將原函數(shù)的119-130行改為下圖所示:Ihcsc巧dh字 Lh= rPoWtig pihei flvy. i 3U r lh= uTIjihd HEV】軻叮cG H；Ul ginn htJMnScdJ卜 匚i.rr* boife -a i t.uuilj 月d .xd rrwl akk> - 0l£ Ti!. ebe-Caue.丄削Ii4尿an-J ric T-iar- b-a-fT> jw* ft J. Jk :MGz

3、 i： 口uea"M-i-i M->Usrf-*ri!. Ev4.T-iat 'L-a If Lth .修改前F Ukzrer- hh - r- : p-i 卩宀計(jì) w- a- -t.I ，- 丁 DflT rfr J-iua Tu*. - r Zfiltu I :.aE 基亠-L 沖* 小飛- J- ' r L “Vi£y r.r E卜I 丨J'f- - lUC iuoJ.diu EIIC L "C* ITC /rci. I , indit mhL: r I. 1.-diSbkJ.esq. EBcCohr-arc:ue-S'

4、-kj j重丄電3E-.iiijn*.ai-J EK ZbZT.-ZlUXB-K ' _丄EVxfl-J«i44-T-tidy “5 =釜曲他“ (H.hr*i-J/ihnLPjsE X pHtE.LHA jOtJ u5._ Jvl LwU <hl. h.殆 Lkarj* L m t a ” DhuiE，iQ此-lF*h= Ei9: bdj, ohu CHC. end修改后此外將maxL in eLe ngth =75;改為maxL in eLe ngth =inf;然后再按照原來函數(shù)的用法發(fā)送郵件就可以了。htt p:/un docume ndi ng-html-em

5、ails-from-matlab附件自帶本人修改后的函數(shù)，可以復(fù)制下到matlab創(chuàng)建函數(shù)直接使用。matlab 說明。注意：使用sendmail函數(shù)發(fā)送郵件之前需要先進(jìn)行設(shè)置，具體可以參考fun ctio n sen dmail(to,subject,theMessage,attachme nts) %SENDMAIL Send e-mail.TO is either aSENDMAIL(TO,SUBJECT,MESSAGE,ATTACHMENTS) sends an e-mail.character vector sp ecify ing a sin gle address, or a c

6、ell array of character vectoraddresses. SUBJECT is a character vector.MESSAGE is either a character vector or a cellarray of character vectors.If it is a character vector, the text willautomatically wra p at 75 characters.If it is a cell array, it won't wra p, buteach cell starts a new line.In e

7、ither case, use char(10) to explicitly specifya new line. ATTACHMENTS is a character vector or a cell array of characterOnly TO and SUBJECT arevectors listing files to send along with the message.required.SENDMAIL relies on two preferences, "Internet:SMTP_Server", your mail server, and&quo

8、t;Internet:E_mail", your e-mail address.Use SETPREF to set these before usingIfSENDMAIL.The easiest ways to identify your outgoing mail server is to look atIfthe preferences of another e-mail application or consult your administrator.you cannot find out your server's name, setting it to jus

9、t 'mail' might work.you do not set these preferences SENDMAIL will try to determine themautomatically by reading environment variables and the Windows registry.Example:setpref('Internet','SMTP_Server','');setpref('Internet','E_mail','matt');sen

10、dmail('user','Calculation complete.')sendmail('matt','peter','You''re cool!', .'See the attached files for more info.','attach1.m','d:attach2.doc');sendmail('user','Adding additional breaks','one' 10 '

11、;two');sendmail('user','Specifying exact lines','one','two');See also WEB, FTP .% Copyright 1984-2016 The MathWorks, Inc.% This function requires Java.if usejava('jvm')error(message('MATLAB:sendmail:NoJvm');end import javax.mail.* import javax.mail

12、.internet.* import javax.activation.*% Argument parsing.narginchk(2,4);if ischar(to)to = to;if (nargin < 3)theMessage = ''end if (nargin < 4)attachments = ;elseif ischar(attachments)attachments = attachments;end% Determine server and from.server,from = getServerAndFrom;if isempty(serve

13、r)commandStr = 'setpref(''Internet'',''SMTP_Server'','''');'error(message('MATLAB:sendmail:SMTPServerIndeterminate',commandStr);end if isempty(from)commandStr = 'setpref(''Internet'',''E_mail'','&

14、#39;username'');'error(message('MATLAB:sendmail:FromAddressIndeterminate',commandStr);end% Use the system properties, but clone them so we don't alter ps = java.lang.System.getProperties.clone;props.put('mail.smtp.host',server);% Create session.username = getp

15、ref('Internet','SMTP_Username','');password = getpref('Internet','SMTP_Password','');if isempty(username)pa = ;elsepa = com.mathworks.util.PasswordAuthenticator(username,password);end session = Session.getInstance(props,pa);% Create the theMessage.msg

16、= MimeMessage(session);% Set sender.msg.setFrom(getInternetAddress(from);% Set recipients.for i = 1:numel(to)msg.addRecipient(getRecipientTypeTo(msg), .getInternetAddress(toi);end% Try to do the right thing on Japanese machines.isJapanese = ispc && strncmpi(ernal.display.language,&

17、#39;ja',2);% If charset is specified in preferences, then use it charset = ''if ispref('Internet', 'E_mail_Charset')charset = getpref('Internet', 'E_mail_Charset');elseif isJapanesecharset = 'UTF-8'end% Set subject.if any(subject = char(10) | any(s

18、ubject = char(13)error(message('MATLAB:sendmail:InvalidSubject');end if isempty(charset)msg.setSubject(subject, charset) elsemsg.setSubject(subject) end% Set other headers.msg.setHeader('X-Mailer', 'MATLAB ' version) msg.setSentDate( java.util.Date);% Construct the body of th

19、e message and attachments.body = formatText(theMessage);isHtml = isempty(body) && body(1) = '<'% msg starting with '<' indicates HTMLendif isHtmlif isempty(charset)charset = 'text/html; charset=utf-8'elsecharset = 'text/html; charset=' charset;end&&a

20、mp; isHtmlend if numel(attachments) = 0if isHtmlmsg.setContent(body, charset);elseif isempty(charset)msg.setText(body, charset);elsemsg.setText(body);else% Add body text.messageBodyPart = MimeBodyPart;endif isHtmlmessageBodyPart.setContent(body, charset);elseif isempty(charset)messageBodyPart.setTex

21、t(body, charset);elseendmessageBodyPart.setText(body);multipart = MimeMultipart;multipart.addBodyPart(messageBodyPart);% Add attachments.for iAttachments = 1:numel(attachments)file = attachmentsiAttachments;messageBodyPart = MimeBodyPart;fullName = locateFile(file);if isempty(fullName)endenderror(me

22、ssage('MATLAB:sendmail:CannotOpenFile', file);source = FileDataSource(fullName);messageBodyPart.setDataHandler(DataHandler(source);% Remove the directory, if any, from the attachment name., fileName, fileExt = fileparts(fullName);messageBodyPart.setFileName(fileName fileExt);multipart.addBod

23、yPart(messageBodyPart);% Put parts in messagemsg.setContent(multipart);% Send the message.tryTransport.send(msg);catch exception% Try to make the Java error friendlier.niceError = stripJavaError(exception.message);if isempty(niceError)throw(exception);error(message('MATLAB:sendmail:SmtpError'

24、;, niceError)endendelsefunction server,from = getServerAndFrom%getServerAndFrom Look in several places for default values.% Check preferences.server = getpref('Internet','SMTP_Server','');from = getpref('Internet','E_mail','');% Check Java properties.i

25、f isempty(server)props = java.lang.System.getProperties;server = char(props.getProperty('mail.smtp.host');end% Determine defaultMailAccountRegistry.if (ispc && (isempty(server) | isempty(from)trydefaultMailAccount = winqueryreg('HKEY_CURRENT_USER', .'SoftwareMicrosoftInte

26、rnet Account Manager', .'Default Mail Account');defaultMailAccountRegistry = .'SoftwareMicrosoftInternet Account ManagerAccounts' .defaultMailAccount;catch exception %#okdefaultMailAccountRegistry = ''endend% Determine SERVERif ispc && isempty(server) && i

27、sempty(defaultMailAccountRegistry)tryserver = winqueryreg('HKEY_CURRENT_USER',defaultMailAccountRegistry, .'SMTP Server');catch exception %#okendendif isempty(server)server = getenv('MAILHOST');% Determine FROMif ispc && isempty(from)tryendfrom = winqueryreg('HKEY

28、_CURRENT_USER',defaultMailAccountRegistry, .'SMTP Email Address');catch exception %#okend end if isempty(from)from = getenv('LOGNAME');end function internetAddress = getInternetAddress(from) %getInternetAddress Instantiate an InternetAddress object.tryinternetAddress = javax.mail

29、.internet.InternetAddress(from);catch exceptionerror(message('MATLAB:sendmail:AddressError', stripJavaError( exception.message );end function recipientTypeTo = getRecipientTypeTo(msg) %getRecipientTypeTo Return the static RecipientType.TO.% Get the class loader for the Message class.cl = msg

30、.getClass.getClassLoader;% Returns a Class object pointing to RecipientType using that ClassLoader.rt = java.lang.Class.forName('javax.mail.Message$RecipientType', false, cl);% Returns a Field object pointint to TO.field = rt.getField('TO');% Gets the static instance of TO.recipientT

31、ypeTo = field.get();function fullPathToFile = locateFile(file)If FILE cannot be%LOCATEFILE Resolve a filename to an absolute location.%LOCATEFILE(FILE) returns the absolute path to FILE.% found, it returns an empty string.% Matthew J. Simoneau, November 2003% Checking that the length is exactly one

32、in the first two checks automatically % excludes directories, since directory listings always include '.' and '.'. if (length(dir(fullfile(pwd,file) = 1)% Relative path.fullPathToFile = fullfile(pwd,file);elseif (length(dir(file) = 1)% Absolute path.fullPathToFile = file;elseif isemp

33、ty(rospective.safeWhich(file)% A file on the path.fullPathToFile = rospective.safeWhich(file);elseif isempty(rospective.safeWhich(file '.')% A file on the path without extension.fullPathToFile = ern

34、rospective.safeWhich(file '.');elsefullPathToFile = ''end function toSend = formatText(msgText) %formatText Format a block of text, adding line breaks every chars.cr = char(10);% For a cell array, send each cell as one line.if iscell(msgText)toSend = strjoin(reshape(ms

35、gText, 1, numel(msgText),cr);return end% For a char array, break each line at a char(10) or try to wrap to 75 % characters.lines = ;maxLineLength = inf;msgText = cr msgText cr;crList = find(msgText = cr);for i = 1:length(crList)-1nextLine = msgText(crList(i)+1 : crList(i+1)-1);lineLength = length(ne

36、xtLine);nextStart = 1;moreOnLine = true;while moreOnLinestart = nextStart;if (lineLength-start+1 <= maxLineLength)% The rest fits on one line.stop = lineLength;moreOnLine = false;else% Whole line doesn't fit.Needs to be broken up.spaces = find(nextLine = ' ');spaces = spaces(spaces &g

37、t;= start);nonSpaces = find(nextLine = ' ');nonSpaces = nonSpaces(nonSpaces >= start);if isempty(spaces)% No spaces anywhere.Chop!stop = start+maxLineLength-1;% No spaces anywhere.Preserve.stop = lineLength;elseif isempty(nonSpaces)% Nothing but spaces.Send an empty line.stop = start-1;el

38、seif (min(spaces) > (start+maxLineLength)Chop!% The first space doesn't show up soon enough to help.stop = start+maxLineLength-1;% No spaces anywhere.Preserve.stop = lineLength;elseif isempty(spaces( .spaces > min(nonSpaces) & spaces < start+maxLineLength .)Chop!% There are only leading spaces, which we respect.stop = start+maxLineLength-1;% No spaces anywhere.Preserve.stop = lineLength;else% Break on the last space t