美文网首页
R软件每日自动发送邮件(mailR包)

R软件每日自动发送邮件(mailR包)

作者: PersonaeYxxx | 来源:发表于2018-07-25 16:26 被阅读0次

文章所用到的代码主要来源于网络,经过了我的稍许调整,此外文章提到了我自己运行时碰到一些问题及相应解决办法。

一、下载mailR包

利用mailR包,可以将R程序的结果及附件发送给他人。
首先需要下载mailR包。

install.packages("mailR")

注意,mailR需要在JAVA环境下运行,因此请先确保电脑里安装了jdk。
如果安装了jdk和mailR包后,library(mailR)依旧显示“Error: ‘rJava’程辑包或名字空间载入失败”,这是环境变量的设置上的原因。一般的解决办法是重新设置环境变量,网上相关教程有很多。但是我把jdk直接安装在了R同一目录下也同样解决了调用rJava失败这个问题(譬如我的安装位置是C:\R\R-3.2.5\bin\x64)。

调用mailR包应该还需要下载stringr包等,一般我们在下载mailR包时R软件就会直接帮我们自动下载,不需要我们自己安装。但如果有包无法安装或者下载速度非常慢,建议换个镜像,国外镜像经常会不稳定,建议换成国内的地址(Rstdio点击Tools,选择Global Option,在出现的对话框中选择Packages,点击change,将镜像换到清华大学等国内的就好)。如果还是下载不了R包的话,可以自己去官网(https://mirrors.tuna.tsinghua.edu.cn/CRAN/)手动下载,把下载下来的包解压到library文件夹即可。

接下去就可以在Rstdio里运行下面的代码,从而通过R直接发送邮件。

二、发送邮件

首先,自定义一个函数mysendmail。修改标出的两个地方(发送邮箱和邮箱密码),其他部分一般不需要修改。


library(mailR)

mysendmail =function(wd,to,cc,subject,msg,files=array()){

   if(is.na(files)[1]{

      attach.files <- NULL

   }else{

      attach.files <-paste(wd,files,sep='/')

   }

   from = "XXXX@XX.com"   #这里输入发送者的邮箱

   send.mail(from = from,

             to = to,

             cc = cc,

             subject = subject,

             body = msg,

             smtp = list(host.name = "smtp.exmail.qq.com", port =465,user.name=from,passwd = "XXXXXXXX", ssl =TRUE),
                                                                                  #passwd = “ “这里输入发送邮箱的密码
             authenticate = TRUE,

             send = TRUE,

             attach.files = attach.files,

             encoding = "utf-8")

}

接下去通过下面的代码调用上面定义好的函数。
例如我需要发送一封邮件给XXXXXX@163.com,邮件主题为Test,正文为“This is a test!",附件的本地地址为C:\Users\Administrator\Desktop\Test.csv,同时将该邮件抄送给YYYY@qq.com。则相应的代码如下:

result <- "Test.csv"
receiptant <- c('XXXXXX@163.com')
message <- c("This is a test!")
mysendmail(wd = "C:/Users/Administrator/Desktop", 
           subject = "Test", msg = message, to = receipant, cc = c('YYYY@qq.com'), files = result)

如果代码运行报错,先查看一下邮箱地址有没有写错。

三、自动运行R程序

有时候,我们需要程序每天定时运行处理数据并将结果发送到邮箱。
通过打开“控制面板”——“管理工具”——“任务计划程序”——“创建基本任务”实现这一目的。
按照向导提示的步骤进行操作,如果希望每天定时发送邮件,则在触发器这一步中选择“每天”;如果希望每周特定时间(如周一到周五晚上21:00运行R脚本)则选择“每周”。
注意在操作这一步时应选择“启动程序(T)”,在“程序或脚本”一栏中输入Rscript.exe的地址(如C:\R\R-3.2.5\bin\x64\Rscript.exe),在“添加参数(可选)”中填入要运行的R脚本地址(如C:\Users\Administrator\Desktop\Rtest.R)。
或者简单粗暴地直接在“程序或脚本”一栏中填入Rscript和R脚本两者的地址(如C:\R\R-3.2.5\bin\x64\Rscript.exe C:\Users\Administrator\Desktop\Rtest.R),在创建完成时电脑会直接将R脚本地址转移到“可选参数”栏中。


图片.启动程序

如果上述R软件自动发送邮件的步骤还有哪里表述不清楚的,欢迎和我交流!

相关文章

  • R软件每日自动发送邮件(mailR包)

    文章所用到的代码主要来源于网络,经过了我的稍许调整,此外文章提到了我自己运行时碰到一些问题及相应解决办法。 一、下...

  • R语言--发送邮件(mailR包)

    用R自动发送邮件,在某些工作场合是非常实用的,能极大提高工作效率。本文介绍用R实现自动发送邮件。 在R语言中,用m...

  • 011-mailr-

    本文主要介绍mailr,基于Blockstack的邮件工具 官网地址:https://mailr.emailGit...

  • R 发送邮件

    有时候我们想要能够自动的推送一些分析报告,每天给我们推送过来。 blastula 下载要求 在OS X系统中需要下...

  • python自动发送邮件

    python自动发送邮件 在说python发送邮件之前,需要了解一下简单的邮件发送知识,邮件发送一般通过SMTP协...

  • 2018-10-11

    文本邮件的发送 1.邮件发送流程 ​ 邮件的发送是主动行为:主要通过 MUA/邮件客户端软件,将邮件内容发送给对应...

  • Jenkins集成Maven项目自动发送邮件设置

    Jenkins集成Maven项目自动化测试,不想使用自带的发送邮件的功能,使用扩展的邮件插件自动发送邮件。具体步骤...

  • 自动发送邮件

  • python收发邮件

    Python发送邮件的两个包: smtplib 用来发送邮件。 email 用来构建邮件。 Python 的 em...

  • 自动打包,自动发送包邮件到测试人员

    AutoPack 本打包源码在:https://github.com/EnjoyWT/AutoPack自动打包脚本...

网友评论

      本文标题:R软件每日自动发送邮件(mailR包)

      本文链接:https://www.haomeiwen.com/subject/hwipmftx.html