blocks|key|945816|text|我会放弃使用R来做这件事。在Python中已经有了可以工作的、跨平台的、稳定的解决方案，您可以从R调用Python。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|945817|如果我必须在Python程序中使用混合效果模型，我会调用R来完成-如果我想在R中完成像发送电子邮件这样的系统任务，我会调用Python来完成。如果你还不知道，这是值得学习的。|945818|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

I would give up on using R for this. Working, cross-platform, stable solutions for doing this in Python exist, and you can call Python from R.

If I had to fit a mixed effects model in a Python program I'd call R to do it - if I want to do a systems task like send email in R I'll call Python to do it. Its worth learning if you don't know it yet.

blocks|key|945876|text|一个有效的(至少对我而言)函数：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|945877|sendMessage<-function(contents,subject,from,to,attMIME,attachment,control){++++
+++msg<-list(contents,sendmailR:::.file_attachment(attachment,attachment,attMIME));
+++sendmail(from=from,to=to,subject=subject,msg=msg,control=control);
}|code-block|syntax|javascript|945878|可以像这样使用：|945879|png('a.png');hist(rnorm(700));dev.off()
sendMessage('Here+you+have+a+nice+histogram:',
'Nice+picture',
'from@example.com',
'to@example.com',
'image/png',
'a.png',list(smtpServer="..."))|945880|需要注意的是，这个示例发送的消息可能会被标记为垃圾邮件，因为它是一个短文本和一个大图--但是对于较大的消息和pdf附件，它应该通过。如果没有，您可以考虑添加消息的文本版本。|945881|编辑(现在不太相关)：关于如何制作MIME消息的最深入的见解可以在here中找到。|offset|length|945882|entityMap|0|LINK|mutability|MUTABLE|url|http://www.freesoft.org/CIE/RFC/1521/index.htm^0|0|0|0|0|0|X|4|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|Z|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|10|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|11|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|12|8|@]|9|@]|A|$]]|$1|M|3|N|5|6|7|13|8|@]|9|@$O|14|P|15|1|16]]|A|$]]|$1|Q|3|-4|5|6|7|17|8|@]|9|@]|A|$]]]|R|$S|$5|T|U|V|A|$W|X]]]]

A working (for me at least) function:

<pre><code>sendMessage&lt;-function(contents,subject,from,to,attMIME,attachment,control){ 
 msg&lt;-list(contents,sendmailR:::.file_attachment(attachment,attachment,attMIME));
 sendmail(from=from,to=to,subject=subject,msg=msg,control=control);
}
</code></pre>

Can be used like this:

<pre><code>png('a.png');hist(rnorm(700));dev.off()
sendMessage('Here you have a nice histogram:',
'Nice picture',
'from@example.com',
'to@example.com',
'image/png',
'a.png',list(smtpServer="..."))
</code></pre>

Be warned that message sent by this example will probably be marked as spam, since it is a short text and a big picture -- nevertheless for larger messages and, let's say, pdf attachments it should go through. If not, you may consider adding also a text version of the message.

EDIT (less relevant now): The most deep insight on how to make MIME messages can be found <a href="http://www.freesoft.org/CIE/RFC/1521/index.htm" rel="nofollow noreferrer">here</a>.

blocks|key|1159803|text|请注意，当前版本的sendmailR通过使msg成为mime_type对象的列表来支持开箱即用的附件，例如，您现在|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1159804|sendmail(+from,to,subject,
++++++++++msg=list(mime_part("Here's+an+attachment+for+you!"),+
++++++++++mime_part(attachmentFileName)),+control,+headers)`|code-block|syntax|javascript|1159805|entityMap^0|9|9|L|3|Q|9|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]|$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|T|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|U|8|@]|D|@]|E|$]]]|L|$]]

Note that current versions of <code>sendmailR</code> support attachments out of the box by making <code>msg</code> a list of <code>mime_type</code> objects, i.e. you'd now 

<pre><code>sendmail( from,to,subject,
 msg=list(mime_part("Here's an attachment for you!"), 
 mime_part(attachmentFileName)), control, headers)`
</code></pre>

blocks|key|1159891|text|下面是一个为日常批处理作业设置的示例，比如使用R中的sendmail()设置(随sendmailR包提供)以及多个附件(一个CSV，一个PDF)：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1159892|设置要在文件名中引用的日期信息：|1159893|>+yesterday_date_stuff++<-+new.env()
>+yesterday_date_stuff[['month']]+<-+strftime(Sys.Date()-1,+format="%25m")
>+yesterday_date_stuff[['day']]+<-+strftime(Sys.Date()-1,+format="%25d")
>+yesterday_date_stuff[['year']]+<-+strftime(Sys.Date()-1,+format="%25y")
>+yesterday_date_stuff$month
[1]+"03"
>+yesterday_date_stuff$day
[1]+"29"
>+yesterday_date_stuff$year
[1]+"17"|code-block|syntax|javascript|1159894|现在在本文的末尾为sendmail()函数创建一些所需的信息：|1159895|>+from+<-+"youremail@whateveryourmailserveris.com"
>+to+<-+c("person_A_to_send_email_to@whatever.com",+"person_B_to_send_email_to@whatever.com",+"person_C_to_send_email_to@whatever.com")
>+subject+<-+paste("whatever+you+want+subject+line+to+read+for+batch+job+analyzing+data+for+",+yesterday_date_stuff$month,+"/",+yesterday_date_stuff$day,+"/",+yesterday_date_stuff$year,+sep="")
>+body+<-+"Text+to+insert+into+the+body+of+your+email"+++++++++++++++++++++|1159896|在此处指定邮件服务器：|1159897|>+mailControl=list(smtpServer="mail.whateveryourmailserveris.com")|1159898|定义附件1路径和名称：|1159899|>+attachmentPath1+<-+paste("file1name",+"_",+yesterday_date_stuff$month,+yesterday_date_stuff$day,+yesterday_date_stuff$year,+".csv",+sep="")
>+attachmentName1+<-+paste("file1name",+"_",+yesterday_date_stuff$month,+yesterday_date_stuff$day,+yesterday_date_stuff$year,+".csv",+sep="")|1159900|定义附件1对象：|1159901|>+attachmentObject1+<-+mime_part(x=attachmentPath1,name=attachmentName1)|1159902|定义附件2路径和名称：|1159903|>+attachmentPath2+<-+paste("file2name",+"_",+yesterday_date_stuff$month,+yesterday_date_stuff$day,+yesterday_date_stuff$year,+".pdf",+sep="")
>+attachmentName2+<-+paste("file2name",+"_",+yesterday_date_stuff$month,+yesterday_date_stuff$day,+yesterday_date_stuff$year,+".pdf",+sep="")|1159904|定义附件2对象：|1159905|>+attachmentObject2+<-+mime_part(x=attachmentPath2,name=attachmentName2)|1159906|现在，将电子邮件正文与您的附件结合起来：|1159907|>+bodyWithAttachment+<-+list(body,attachmentObject1,+attachmentObject2)
>+bodyWithAttachment
[[1]]
[1]+"Text+to+insert+into+the+body+of+your+email"

[[2]]
<environment:+0x000000004efff188>
attr(,"class")
[1]+"mime_part"

[[3]]
<environment:+0x00000000407a1b68>
attr(,"class")
[1]+"mime_part"|1159908|使用sendmail()函数发送电子邮件：|1159909|>+sendmail(from=from,+to=to,+subject=subject,+msg=bodyWithAttachment,+control=mailControl)|1159910|entityMap^0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1G|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1H|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|1I|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|1J|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|1K|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|1L|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|1M|8|@]|9|@]|A|$G|H]]|$1|Q|3|R|5|6|7|1N|8|@]|9|@]|A|$]]|$1|S|3|T|5|F|7|1O|8|@]|9|@]|A|$G|H]]|$1|U|3|V|5|6|7|1P|8|@]|9|@]|A|$]]|$1|W|3|X|5|F|7|1Q|8|@]|9|@]|A|$G|H]]|$1|Y|3|Z|5|6|7|1R|8|@]|9|@]|A|$]]|$1|10|3|11|5|F|7|1S|8|@]|9|@]|A|$G|H]]|$1|12|3|13|5|6|7|1T|8|@]|9|@]|A|$]]|$1|14|3|15|5|F|7|1U|8|@]|9|@]|A|$G|H]]|$1|16|3|17|5|6|7|1V|8|@]|9|@]|A|$]]|$1|18|3|19|5|F|7|1W|8|@]|9|@]|A|$G|H]]|$1|1A|3|1B|5|6|7|1X|8|@]|9|@]|A|$]]|$1|1C|3|1D|5|F|7|1Y|8|@]|9|@]|A|$G|H]]|$1|1E|3|-4|5|6|7|1Z|8|@]|9|@]|A|$]]]|1F|$]]

Here's an example that is setup for a daily batch job like setting using sendmail() in R (available with the package sendmailR) with multiple attachments (one CSV, one PDF):

Setting up date information to reference in the file names:

<pre><code>&gt; yesterday_date_stuff &lt;- new.env()
&gt; yesterday_date_stuff[['month']] &lt;- strftime(Sys.Date()-1, format="%m")
&gt; yesterday_date_stuff[['day']] &lt;- strftime(Sys.Date()-1, format="%d")
&gt; yesterday_date_stuff[['year']] &lt;- strftime(Sys.Date()-1, format="%y")
&gt; yesterday_date_stuff$month
[1] "03"
&gt; yesterday_date_stuff$day
[1] "29"
&gt; yesterday_date_stuff$year
[1] "17"
</code></pre>

Now create some of the needed information for sendmail() function at the end of this post:

<pre><code>&gt; from &lt;- "youremail@whateveryourmailserveris.com"
&gt; to &lt;- c("person_A_to_send_email_to@whatever.com", "person_B_to_send_email_to@whatever.com", "person_C_to_send_email_to@whatever.com")
&gt; subject &lt;- paste("whatever you want subject line to read for batch job analyzing data for ", yesterday_date_stuff$month, "/", yesterday_date_stuff$day, "/", yesterday_date_stuff$year, sep="")
&gt; body &lt;- "Text to insert into the body of your email" 
</code></pre>

Specify mail server here:

<pre><code>&gt; mailControl=list(smtpServer="mail.whateveryourmailserveris.com")
</code></pre>

Define attachment 1 path and name:

<pre><code>&gt; attachmentPath1 &lt;- paste("file1name", "_", yesterday_date_stuff$month, yesterday_date_stuff$day, yesterday_date_stuff$year, ".csv", sep="")
&gt; attachmentName1 &lt;- paste("file1name", "_", yesterday_date_stuff$month, yesterday_date_stuff$day, yesterday_date_stuff$year, ".csv", sep="")
</code></pre>

Define attachment 1 object:

<pre><code>&gt; attachmentObject1 &lt;- mime_part(x=attachmentPath1,name=attachmentName1)
</code></pre>

Define attachment 2 path and name:

<pre><code>&gt; attachmentPath2 &lt;- paste("file2name", "_", yesterday_date_stuff$month, yesterday_date_stuff$day, yesterday_date_stuff$year, ".pdf", sep="")
&gt; attachmentName2 &lt;- paste("file2name", "_", yesterday_date_stuff$month, yesterday_date_stuff$day, yesterday_date_stuff$year, ".pdf", sep="")
</code></pre>

Define attachment 2 object:

<pre><code>&gt; attachmentObject2 &lt;- mime_part(x=attachmentPath2,name=attachmentName2)
</code></pre>

Now combine the body of the email with your attachments:

<pre><code>&gt; bodyWithAttachment &lt;- list(body,attachmentObject1, attachmentObject2)
&gt; bodyWithAttachment
[[1]]
[1] "Text to insert into the body of your email"

[[2]]
&lt;environment: 0x000000004efff188&gt;
attr(,"class")
[1] "mime_part"

[[3]]
&lt;environment: 0x00000000407a1b68&gt;
attr(,"class")
[1] "mime_part"
</code></pre>

Send the email using sendmail() function:

<pre><code>&gt; sendmail(from=from, to=to, subject=subject, msg=bodyWithAttachment, control=mailControl)
</code></pre>

Following the directions provided in <a href="https://stackoverflow.com/questions/3528947/sendmailr-submit-encoded-message-to-local-smtp-server">this</a> related question, I was able to send html formated mail messages. Now the question is this: How should I modify the following code, in order to attach one or more files (of any type) to this message?

<pre><code>library(sendmailR)

from &lt;- "&lt;sendmailR@myserver.mycompany.com&gt;"
to &lt;- c("&lt;someone@mycompany.com&gt;","&lt;anotherone@mycompany.com&gt;")
subject &lt;- iconv("Message Title", to = "utf8")

msg &lt;- "&lt;hr size='2' width='33%' style='text-align: left;'&gt;&lt;font size='2'&gt;
 &lt;i&gt;This email was sent automatically using &lt;a href='http://finzi.psych.upenn.edu/R/library/sendmailR/html/00Index.html' rel='nofollow' target='_blank'&gt;sendmailR&lt;/a&gt;.&lt;br&gt;
 Please do not reply directly to this e-mail.&lt;/i&gt;&lt;/font&gt;"

msg &lt;- iconv(msg, to = "utf8")

sapply(to,function(x) sendmail(from, x, subject, msg, control=list(smtpServer="###.###.###.###"), headers=list("Content-Type"="text/html; charset=UTF-8; format=flowed")))
</code></pre>

sendmailR (Part2): Sending files as mail attachments

服务器

Python

按照相关问题中提供的说明，我能够发送html格式的邮件消息。现在的问题是:我应该如何修改下面的代码，以便将一个或多个文件(任何类型)附加到此消息？library(sendmailR)from <- "<sendmailR@myserver.mycompany.com>"to <- c("<someone@mycompa...

问sendmailR (Part2)：将文件作为邮件附件发送
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问sendmailR (Part2)：将文件作为邮件附件发送EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问sendmailR (Part2)：将文件作为邮件附件发送
EN