Используйте sendmailR с Windows

Вы можете попробовать новый пакет mailR: http://cran.r-project.org/web/packages/mailR/index.html

Затем должен работать следующий вызов:

send.mail(from = "[email protected]",
          to = "[email protected]",
          subject = "Subject of the email",
          body = "Body of the email",
          smtp = list(host.name = "smtp.gmail.com", port = 465, user.name = "tal.galili", passwd = "PASSWORD", ssl = TRUE),
          authenticate = TRUE,
          send = TRUE)

Раньше я отправлял электронные письма через R, используя эти строки.

Предположим, ваша электронная почта [email protected] использует ОС Windows (моя операционная система)

library(sendmailR)

# 1 case
from <- sprintf("<sendmailR@%s>", Sys.info()[4]) 
to <- "<[email protected]>" 
subject <- "Hello from R" 
msg <- "my first email" 
sendmail(from, to, subject, msg,control=list(smtpServer="ASPMX.L.GOOGLE.COM")) 

# 2 case
from <- sprintf("<[email protected]>", Sys.info()[4]) 
to <- "<[email protected]>" 
subject <- "Hello from R" 
msg <- "my first email" 
sendmail(from, to, subject, msg,control=list(smtpServer="ASPMX.L.GOOGLE.COM")) 

Каждый раз, когда sendmailR не проходит аутентификацию, появляется не очень полезное сообщение о том, что

Error in if (code == lcode) { : argument is of length zero

Это может быть по многим причинам, включая причины на стороне сервера. В моем случае мне нужно было внести свой IP-адрес в белый список сервера. @alko989 объявляет в проблему с использованием sendemailR, что authentication ... is not supported by sendmailR, и по состоянию на февраль 2015 г. 20 публикация sendmailR https://cran.r-project.org/web/packages/sendmailR/sendmailR.pdf, единственными управляющими параметрами являются smtpServer, smtpPort и verbose, поэтому ничего для пользователя, пароля, ssl, tls и т. д. Сегодня почтовые серверы, как правило, гораздо более безопасны, чем почтовые серверов прошлого, так что это серьезное ограничение sendmailR.

В качестве альтернативы использованию sendmailR вы можете попробовать следующее:

Соберите вместе VB-Script (см., например, http://www.paulsadowski.com/wsh/cdo.htm ), а затем вызвать его через оболочку.

Это может выглядеть так:

SendMail <- function(from="[email protected]",to="[email protected]",text="Hallo",subject="Sag Hallo",smtp="smtp.my.server.de",user="me.myself.and.i",pw="123"){
require(stringr)
part1 <- "Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication 
Const cdoNTLM = 2 'NTLM "

part2 <- paste(paste("Set objMessage = CreateObject(",'"',"CDO.Message",'"',")" ,sep=""),
paste("objMessage.Subject = ",'"',subject,'"',sep=""),
paste("objMessage.From = ",'"',from,'"',sep=""),
paste("objMessage.To = ",'"',to,'"',sep=""),
paste("objMessage.TextBody = ",'"',text,'"',sep=""),
sep="\n")

part3 <- paste(
"'==This section provides the configuration information for the remote SMTP server. 

objMessage.Configuration.Fields.Item _ 
(\"http://schemas.microsoft.com/cdo/configuration/sendusing\") = 2

'Name or IP of Remote SMTP Server 
objMessage.Configuration.Fields.Item _ 
(\"http://schemas.microsoft.com/cdo/configuration/smtpserver\") = ",'"',smtp,'"'," 

'Type of authentication, NONE, Basic (Base64 encoded), NTLM 
objMessage.Configuration.Fields.Item _ 
(\"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate\") = cdoBasic 

'Your UserID on the SMTP server 
objMessage.Configuration.Fields.Item _ 
(\"http://schemas.microsoft.com/cdo/configuration/sendusername\") = ",'"',user,'"'," 

'Your password on the SMTP server 
objMessage.Configuration.Fields.Item _ 
(\"http://schemas.microsoft.com/cdo/configuration/sendpassword\") = ",'"',pw,'"', "

'Server port (typically 25) 
objMessage.Configuration.Fields.Item _ 
(\"http://schemas.microsoft.com/cdo/configuration/smtpserverport\") = 25 

'Use SSL for the connection (False or True) 
objMessage.Configuration.Fields.Item _ 
(\"http://schemas.microsoft.com/cdo/configuration/smtpusessl\") = False 

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) 
objMessage.Configuration.Fields.Item _ 
(\"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout\") = 60 
objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section== 

objMessage.Send 
",sep="")

vbsscript <- paste(part1,part2,part3,sep="\n\n\n")
str_split(vbsscript,"\n")
writeLines(vbsscript, "sendmail.vbs")
shell("sendmail.vbs")
unlink("sendmail.vbs")
}

... и используйте его так:

SendMail(
    from="[email protected]",
    to="[email protected]",
    text="Hallo",   
    subject="readThis",
    smtp="smtp.andI.com",
    user="[email protected]",
    pw="123456"
    )