[R语言自动化应用]Calendar Notification

calvin

情景：
   我公司会有一个Team定期去车间巡视，然后正好赶上我做环境动态监测，他们不知道被吓了一跳，以为不能进。随后要求我以后动态监测要通知他们一下。

实现：
   1。 通知不难，一个邮件而已。
   2。 但是需要记着通知他们，这个比较难。
   3。 因为我公司办公是围绕office的，平时邮件都是通过outlook交流。而我每次环境监测都会在calendar里book上时间。如下图1。
   4。 然后使用R，通过COM组件，抽取当月calendar的schedule数据。如图2。
   5。 然后对获取的数据进行判定，如果本月有动态监测，则使用R通过COM组件，控制outlook自动发送邮件给指定的人。如图3。
   6。 如果本月没有动态监测，或者本月已通知过了。则不再发送邮件。
   7。 通过windows的计划任务，让该程序定期自动运行。

全部代码附在后面，需要请拿走。

1. library(RDCOMClient)
   
2. library(stringr)
   
3. 
   
4. email_send<-function(moninfo){
   
5.     receiver_list<-paste("yao_shu_liang@lilly.com",
   
6.                          sep=";",collapse = NULL)   
   
7.     content_body<-paste0("Hi all,<br>     This email is produced automatically to tell you that ",moninfo$sublist[Notify_index]," would be performed on ", moninfo$start[Notify_index], ", please check this information.<br>     If you have any question, please contact me by reply this mail.")
   
8.     outApp<-COMCreate("Outlook.Application")
   
9.     outMail<-outApp$CreateItem(0)
   
10.     outMail[["To"]]=receiver_list
    
11.     outMail[["subject"]]="Dynamic EM Notification"
    
12.     outMail[["HTMLbody"]]=content_body
    
13.     outMail$Send()
    
14. }
    
15. 
    
16. ot<-COMCreate("Outlook.Application")
    
17. otf<-ot$GetNamespace("MAPI")
    
18. calendar<-otf$GetDefaultFolder(9)
    
19. 
    
20. sublist<-vector()
    
21. location<-vector()
    
22. startlist<-vector()
    
23. endlist<-vector()
    
24. 
    
25. strfilter<-paste0("[Start] >= '",stringr::str_c(stringr::str_sub(Sys.Date(),start=1,end=8),"01"),"' AND [END] <= '",stringr::str_c(stringr::str_sub(Sys.Date(),start=1,end=8),lubridate::days_in_month(Sys.Date()),"'"))
    
26. filtcal<-calendar$Items()$Restrict(strfilter)
    
27. 
    
28. for(i in seq_len(filtcal[["Count"]])){
    
29.   sublist[i]<-filtcal$Item(i)[["Subject"]]
    
30.   location[i]<-filtcal$Item(i)[["Location"]]
    
31.   startlist[i]<-filtcal$Item(i)[["Start"]]
    
32.   endlist[i]<-filtcal$Item(i)[["End"]]
    
33. }
    
34. 
    
35. moninfo<-data.frame(sublist,location,start=startlist,end=endlist,stringsAsFactors = FALSE)
    
36. moninfo$start<-as.Date(moninfo$start,format="%Y-%m-%d",origin="1900-01-01")-2
    
37. moninfo$end<-as.Date(moninfo$end,format="%Y-%m-%d",origin="1900-01-01")-2
    
38. moninfo
    
39. 
    
40. Notify_index<-str_detect(as.character(moninfo$sublist), pattern="Static")
    
41. Current_mon<-str_c("Mon:",str_sub(Sys.Date(),start=1,end=7))
    
42. 
    
43. if(!file.exists("~/EM_Notify_mark.csv")){
    
44.   email_mark<-data.frame(Month="Mon:Undefined",MailSent="N",stringsAsFactors = FALSE)
    
45.   write.csv(email_mark,file="~/EM_Notify_mark.csv",row.names=FALSE)
    
46. }
    
47. 
    
48. email_mark_temp<-read.csv("~/EM_Notify_mark.csv",stringsAsFactors = FALSE)
    
49. 
    
50. if(file.exists("~/EM_Notify_mark.csv") & !any(str_detect(email_mark_temp$Month,Current_mon))){
    
51.   email_mark_temp<-read.csv("~/EM_Notify_mark.csv",stringsAsFactors = FALSE)
    
52.   email_send(moninfo)
    
53.   email_mark_temp<-rbind(email_mark_temp,data.frame(Month=Current_mon,MailSent="Y",stringsAsFactors = FALSE))
    
54.   write.csv(email_mark_temp,file="~/EM_Notify_mark.csv",row.names=FALSE)
    
55. }

复制代码

其它应用更多惊喜等待你。

yuansoul

syhorchid 发表于 2018-8-7 23:32
什么玩意儿

如果有检测计划，自动发送邮件 提示 。

感觉，不如发红包好。

syhorchid

什么玩意儿