<div dir="ltr">A ideia do thunderburd no linux me parece a melhor.. acabei não comentando porque originalmente pensava<div style>em windows.</div></div><div class="gmail_extra"><br clear="all"><div>Abraços<br><br> Daniel Ikenaga<br>
    <a href="http://twitter.com/dialetica" target="_blank"><font size="1"><b>@dialetica</b></font></a><br></div>
<br><br><div class="gmail_quote">2013/3/15 Daniel Ikenaga <span dir="ltr"><<a href="mailto:oladani@gmail.com" target="_blank">oladani@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Pedro,<div><br>O que diferencia a porta 25 da 587. Antes (porta 25), seria possível enviar um email como sendo de outra<br></div><div>pessoa, note, que na configuração do pacote não há a exigência da senha de email. Também era possível</div>

<div>ler todos os emails que trafegam pelas conexões. Utilizando a outra porta e um protocolo diferente, passa</div><div>a ter três etapas, na primeira a troca de informação sobre a encriptação e a segunda o envio do usuário e</div>

<div>senha e após isso uma nova encriptação para o envio do email. Isso, a atual versão do pacote não faz.</div><div><br></div><div>///</div><div><div>List of options:</div><div><br></div><div>smtpServerSMTP server to contact. This can either be the mail server responsible for the destination addresses domain or</div>

<div>a smarthost provided by your ISP or institution.<b> SMTP AUTH is currently unsupported.</b></div><div class="im"><div><br></div><div>smtpPortSMTP port to use. Usually 25 but some institutions require the use of the submission service (port 587).</div>

<div><br></div></div><div>verboseShow detailed information about message submission. Useful for debugging.</div></div><div><div>///</div><div><br></div><div><br></div><div>Não encontrei formas de modificar a porta, tanto no socketConnection como no sendmail control. <br>

</div><div>Então, sem uma nova atualização, o pacote me parece inutilizável.</div><div><br></div><div>Uma saída que talvez seja interessante é enviar para uma base de dados (mysql por exemplo) e no servidor desta base</div>

<div>e, que também tenha sendmail 587, deixar um  schedule rodando, veja o Cron (<a href="http://en.wikipedia.org/wiki/Cron" target="_blank">http://en.wikipedia.org/wiki/Cron</a>).</div><div><br></div><div>Acho que é uma forma...<br>

<br>Abraços<div class="gmail_extra"><div><br> Daniel Ikenaga<br>    <a href="http://twitter.com/dialetica" target="_blank"><font size="1"><b>@dialetica</b></font></a><br></div>
<br><br><div class="gmail_quote">2013/3/13 Cleber N.Borges <span dir="ltr"><<a href="mailto:klebyn@yahoo.com.br" target="_blank">klebyn@yahoo.com.br</a>></span><div><div class="h5"><br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">


  
    
  
  <div text="#000000" bgcolor="#FFFFFF">
    <div><br>
      no help do pacote diz ter uma função 'sendmail_options'<br>
      <br>
      com um parametro 'smtpPortSMTP' especificamente<br>
      para mudar a porta 25.<br>
      <br>
      -----------<br>
        • smtpPortSMTP port to use. Usually 25 but some institutions<br>
                require the use of the submission service (port 587).<br>
      ----------<br>
      <br>
      talvez vale a pena fazer um ultimo teste com esse detalhe...<br>
      <br>
      não vi a thread toda, se já tentou isso, me desculpe pela bola
      fora,<br>
      caso não, fica a dica<br>
      <br>
      <br>
      cleber<br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      Em 13/03/2013 17:31, Pedro Emmanuel Alvarenga Americano do Brasil
      escreveu:<br>
    </div><div><div>
    <blockquote type="cite">
      <div dir="ltr">
        <div>Daniel,</div>
        <div>
          <br>
        </div>
        <div>Quando voce diz um sendmail
          externo seria do tipo ter um thunderbird configurado e o bat
          executaria o thunderbird e mandaria a mensagem com o arquivo
          anexado?</div>
        <div><br>
        </div>
        <div>Bom... tem alguns bacanas
          na internet que ja colocaram umas coisas assim, mas se for
          assim, eu preferiria fazer manualmente mesmo. Eu queria
          simplificar e não complicar.</div>
        <div><br>
        </div>
        <div>Quanto a função send.email
          na mensagem anterior, voce tem algum comentário porque dá
          aquele erro de conexão?</div>
        <div><br>
        </div>
        <div>Abraço,</div>
      </div>
      <div class="gmail_extra"><br clear="all">
        <div><font color="#000066" face="'courier new', monospace">Dr. Pedro
            Emmanuel A. A. do Brasil</font>
          <div><font color="#000066" face="'courier new', monospace">Curriculum
              Lattes: 
              <span style="text-align:left"><a href="http://lattes.cnpq.br/6597654894290806" target="_blank">http://lattes.cnpq.br/6597654894290806</a></span> <br>
              Instituto de Pesquisa Clínica Evandro Chagas<br>
              Fundação Oswaldo Cruz<br>
              Rio de Janeiro - Brasil<br>
              Av. Brasil 4365, <br>
              CEP 21040-360,<br>
              Tel <a href="tel:55%2021%203865-9648" value="+552138659648" target="_blank">55 21 3865-9648</a><br>
              email: <a href="mailto:pedro.brasil@ipec.fiocruz.br" target="_blank">pedro.brasil@ipec.fiocruz.br</a><br>
              email: <a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a><br>
              <br>
              ---Apoio aos softwares livres<br>
              <a href="http://www.zotero.org" target="_blank">www.zotero.org</a> - gerenciamento de
              referências bibliográficas. <br>
              <a href="http://www.broffice.org" target="_blank">www.broffice.org</a> ou <a href="http://www.libreoffice.org/" target="_blank">www.libreoffice.org</a> -
              textos, planilhas ou apresentações.<br>
              <a href="http://www.epidata.dk" target="_blank">www.epidata.dk</a> - entrada de dados.<br>
              <a href="http://www.r-project.org" target="_blank">www.r-project.org</a> - análise de
              dados.<br>
              <a href="http://www.ubuntu.com" target="_blank">www.ubuntu.com</a> - sistema operacional</font></div>
        </div>
        <br>
        <br>
        <div class="gmail_quote">Em 13 de março de 2013 17:34, Daniel
          Ikenaga <span dir="ltr"><<a href="mailto:oladani@gmail.com" target="_blank">oladani@gmail.com</a>></span>
          escreveu:<br>
          <blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
            <div dir="ltr">Fiz alguns testes, mas, é mesmo a limitação
              do package. Não é possível mudar a porta 25. Não 
              <div>consegui criar uma porta 25 em um servidor para
                testar. </div>
              <div><br>
              </div>
              <div>Penso em duas saídas:
                <div>
                  <br>
                </div>
                <div>Instalar um servidor com porta 25, o que acho
                  arriscado, pois facilmente cairia na black list e
                  spam,</div>
                <div>ou fazer um bat num sendmail externo para ler a
                  atualização de um arquivo que seria salvo do R.</div>
                <div><br>
                </div>
              </div>
            </div>
            <div class="gmail_extra"><br clear="all">
              <div>Abraços<span><font color="#888888"><br>
                    <br>
                     Daniel Ikenaga<br>
                        <a href="http://twitter.com/dialetica" target="_blank"><font size="1"><b>@dialetica</b></font></a><br>
                  </font></span></div>
              <div>
                <div>
                  <br>
                  <br>
                  <div class="gmail_quote">2013/3/13 Pedro Emmanuel
                    Alvarenga Americano do Brasil <span dir="ltr"><<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>></span><br>
                    <blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
                      <div dir="ltr">
                        <div>Daniel,</div>
                        <div>
                          <br>
                        </div>
                        <div>Mesmo
                          mudando a porta, a messagem de erro continua.
                          Acredito que dentro da função deve ter um bug
                          que mantem a porta 25 apesar de informar outra
                          porta como argumento da função.  </div>
                        <div><br>
                        </div>
                        <div>
                          <div><font color="#000066" face="courier new,
                              monospace">> sendmail(from, to,
                              subject,
                              body,control=list(smtpPortSMTP=587,verboseShow=TRUE,smtpServer="<a href="http://ASPMX.L.GOOGLE.COM" target="_blank">ASPMX.L.GOOGLE.COM</a>"))</font></div>
                          <div>
                            <div><font color="#000066" face="courier new,
                                monospace">Erro em socketConnection(host
                                = server, port = port, blocking = TRUE)
                                : </font></div>
                            <div><font color="#000066" face="courier new,
                                monospace">  não é possível abrir a
                                conexão</font></div>
                            <div><font color="#000066" face="courier new,
                                monospace">Além disso: Mensagens de
                                aviso perdidas:</font></div>
                            <div><font color="#000066" face="courier new,
                                monospace">In socketConnection(host =
                                server, port = port, blocking = TRUE) :</font></div>
                            <div><font color="#000066" face="courier new,
                                monospace">  <a href="http://ASPMX.L.GOOGLE.COM:25" target="_blank">ASPMX.L.GOOGLE.COM:25</a>
                                cannot be opened</font></div>
                            <div>
                              <br>
                            </div>
                          </div>
                          <div>Por enquanto vou fazendo
                            manualmente mesmo. </div>
                          <div><br>
                          </div>
                          <div>Abraço forte,</div>
                          <div><br>
                          </div>
                          <div>
                            <br>
                          </div>
                          <div><br>
                          </div>
                        </div>
                      </div>
                      <div class="gmail_extra">
                        <div><br clear="all">
                          <div><font color="#000066" face="'courier
                              new', monospace">Dr. Pedro Emmanuel A. A.
                              do Brasil</font>
                            <div>
                              <font color="#000066" face="'courier new',
                                monospace">Curriculum Lattes: 
                                <span style="text-align:left"><a href="http://lattes.cnpq.br/6597654894290806" target="_blank">http://lattes.cnpq.br/6597654894290806</a></span> <br>
                                Instituto de Pesquisa Clínica Evandro
                                Chagas<br>
                                Fundação Oswaldo Cruz<br>
                                Rio de Janeiro - Brasil<br>
                                Av. Brasil 4365, <br>
                                CEP 21040-360,<br>
                                Tel <a href="tel:55%2021%203865-9648" value="+552138659648" target="_blank">55
                                  21 3865-9648</a><br>
                                email: <a href="mailto:pedro.brasil@ipec.fiocruz.br" target="_blank">pedro.brasil@ipec.fiocruz.br</a><br>
                                email: <a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a><br>
                                <br>
                                ---Apoio aos softwares livres<br>
                                <a href="http://www.zotero.org" target="_blank">www.zotero.org</a> -
                                gerenciamento de referências
                                bibliográficas. <br>
                                <a href="http://www.broffice.org" target="_blank">www.broffice.org</a>
                                ou <a href="http://www.libreoffice.org/" target="_blank">www.libreoffice.org</a> -
                                textos, planilhas ou apresentações.<br>
                                <a href="http://www.epidata.dk" target="_blank">www.epidata.dk</a> -
                                entrada de dados.<br>
                                <a href="http://www.r-project.org" target="_blank">www.r-project.org</a>
                                - análise de dados.<br>
                                <a href="http://www.ubuntu.com" target="_blank">www.ubuntu.com</a> -
                                sistema operacional</font></div>
                          </div>
                          <br>
                          <br>
                        </div>
                        <div class="gmail_quote">Em 12 de março de 2013
                          15:16, Daniel Ikenaga <span dir="ltr"><<a href="mailto:oladani@gmail.com" target="_blank">oladani@gmail.com</a>></span>
                          escreveu:
                          <div>
                            <div><br>
                              <blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
                                <div dir="ltr">Desconheço a utilização
                                  avançada de R, mas teu problema não
                                  seria na porta 25?
                                  <div><br>
                                  </div>
                                  <div>Faz mais de 2 mês que o Google
                                    não opera mais com a porta 25, só
                                    com a 587 em SSL, daí, </div>
                                  <div>
                                    se não houver compatibilidade com
                                    smtp em ssl, fosse o caso de usar
                                    outro servidor.</div>
                                  <div><br>
                                  </div>
                                </div>
                                <div class="gmail_extra"><br clear="all">
                                  <div>Abraços<br>
                                    <br>
                                     Daniel Ikenaga<br>
                                        <a href="http://twitter.com/dialetica" target="_blank"><font size="1"><b>@dialetica</b></font></a><br>
                                  </div>
                                  <br>
                                  <br>
                                  <div class="gmail_quote">
                                    <div>
                                      <div>On Mon, Mar 11, 2013 at 10:23
                                        AM, Pedro Emmanuel Alvarenga
                                        Americano do Brasil <span dir="ltr"><<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>></span>
                                        wrote:<br>
                                      </div>
                                    </div>
                                    <blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
                                      <div>
                                        <div>
                                          <div dir="ltr">
                                            <div>
                                              Amigos de R, </div>
                                            <div>
                                              <br>
                                            </div>
                                            <div>Sei que essa questão volta algumas
                                              vezes na lista mas estou
                                              empacado. Estou fazendo um
                                              data management de um
                                              projeto em que consiste em
                                              repetidas vezes, tipo toda
                                              semana, verificar quantos
                                              voluntários entraram no
                                              proejto, dados
                                              inconsistentes, dados
                                              ausentes e coisas assim.
                                              Então, eu consegui fazer
                                              um script para esse fim em
                                              que gera um arquivo com
                                              algumas tabelas e
                                              graficos. </div>
                                            <div><br>
                                            </div>
                                            <div>Agora eu gostaria de incluir nesse
                                              script o envio de um email
                                              pra mim mesmo com esse
                                              arquivo, para que eu possa
                                              verificar e depois
                                              encaminhar para os outros
                                              participantes. Sei que
                                              existe o sendmailR, mas
                                              não estou conseguindo
                                              fazer funcionar. Encontrei
                                              um catatau de gente
                                              referindo o mesmo erro em
                                              diversos diferentes
                                              foruns: </div>
                                            <div><br>
                                            </div>
                                            <div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">>
                                                  sendmail(from, to,
                                                  subject,
                                                  body,control=list(smtpServer="<a href="http://ASPMX.L.GOOGLE.COM" target="_blank">ASPMX.L.GOOGLE.COM</a>"))</font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">Erro em
                                                  socketConnection(host
                                                  = server, port = port,
                                                  blocking = TRUE) : </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  não é
                                                  possível abrir a
                                                  conexão</font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">Além disso:
                                                  Mensagens de aviso
                                                  perdidas:</font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">In
                                                  socketConnection(host
                                                  = server, port = port,
                                                  blocking = TRUE) :</font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  <a href="http://ASPMX.L.GOOGLE.COM:25" target="_blank">ASPMX.L.GOOGLE.COM:25</a>
                                                  cannot be opened</font></div>
                                              <div>
                                                <br>
                                              </div>
                                            </div>
                                            <div><br>
                                            </div>
                                            <div>
                                              Depois, consegui encontrar
                                              essa função em um dos
                                              foruns. O autor fala que
                                              funciona, mas comigo tem
                                              dado um erro de
                                              conectividade e eu não
                                              sabendo como dar a volta
                                              nesse erro. Será que tem
                                              alguma relação com o
                                              proxy?</div>
                                            <div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">>
                                                  send.email</font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">function(to,
                                                  from, subject, </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  message,
                                                  attachment=NULL, </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  username,
                                                  password, </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  server="<a href="http://smtp.gmail.com:587" target="_blank">smtp.gmail.com:587</a>", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  confirmBeforeSend=TRUE){ </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  # to: a
                                                  list object of length
                                                  1.  Using
                                                  list("Recipient" = "<a href="mailto:recip@somewhere.net" target="_blank">recip@somewhere.net</a>")
                                                  will send the message
                                                  to the address but </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #     the
                                                  name will appear
                                                  instead of the
                                                  address. </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  # from: a
                                                  list object of length
                                                  1.  Same behavior as
                                                  'to' </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #
                                                  subject: Character(1)
                                                  giving the subject
                                                  line. </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #
                                                  message: Character(1)
                                                  giving the body of the
                                                  message </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #
                                                  attachment:
                                                  Character(1) giving
                                                  the location of the
                                                  attachment </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #
                                                  username: character(1)
                                                  giving the username.
                                                   If missing and you
                                                  are using Windows, R
                                                  will prompt you for
                                                  the username. </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #
                                                  password: character(1)
                                                  giving the password.
                                                   If missing and you
                                                  are using Windows, R
                                                  will prompt you for
                                                  the password. </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">  # server:
                                                  character(1) giving
                                                  the smtp server. </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #
                                                  confirmBeforeSend:
                                                  Logical.  If True, a
                                                  dialog box appears
                                                  seeking confirmation
                                                  before sending the
                                                  e-mail.  This is to </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #        
                                                             prevent me
                                                  to send multiple
                                                  updates to a
                                                  collaborator while I
                                                  am working
                                                  interactively.   </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">  </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (!is.list(to) |
                                                  !is.list(from))
                                                  stop("'to' and 'from'
                                                  must be lists") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (length(from) > 1)
                                                  stop("'from' must have
                                                  length 1") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (length(to) > 1)
                                                  stop("'send.email'
                                                  currently only
                                                  supports one recipient
                                                  e-mail address") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (length(attachment)
                                                  > 1)
                                                  stop("'send.email' can
                                                  currently send only
                                                  one attachment") </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (length(message) >
                                                  1){ </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  stop("'message' must
                                                  be of length 1") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">    message
                                                  <- paste(message,
                                                  collapse="\\n\\n") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  } </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (is.null(names(to)))
                                                  names(to) <- to </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (is.null(names(from)))
                                                  names(from) <-
                                                  from </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (!is.null(attachment))
                                                  if
                                                  (!file.exists(attachment))
                                                  stop(paste("'",
                                                  attachment, "' does
                                                  not exist!", sep="")) </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (missing(username))
                                                  username <-
                                                  winDialogString("Please
                                                  enter your e-mail
                                                  username", "") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (missing(password))
                                                  password <-
                                                  winDialogString("Please
                                                  enter your e-mail
                                                  password", "") </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">  </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  require(rJython) </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  rJython
                                                  <- rJython() </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  rJython$exec("import
                                                  smtplib") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  rJython$exec("import
                                                  os") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  rJython$exec("from
                                                  email.MIMEMultipart
                                                  import
                                                  MIMEMultipart") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  rJython$exec("from
                                                  email.MIMEBase import
                                                  MIMEBase") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  rJython$exec("from
                                                  email.MIMEText import
                                                  MIMEText") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  rJython$exec("from
                                                  email.Utils import
                                                  COMMASPACE,
                                                  formatdate") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  rJython$exec("from
                                                  email import
                                                  Encoders") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  rJython$exec("import
                                                  email.utils") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  mail<-c( </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  #Email
                                                  settings </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  paste("fromaddr = '",
                                                  from, "'", sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  paste("toaddrs  = '",
                                                  to, "'", sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  "msg =
                                                  MIMEMultipart()", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  paste("msg.attach(MIMEText('",
                                                  message, "'))",
                                                  sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  paste("msg['From'] =
                                                  email.utils.formataddr(('",
                                                  names(from), "',
                                                  fromaddr))", sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  paste("msg['To'] =
                                                  email.utils.formataddr(('",
                                                  names(to), "',
                                                  toaddrs))", sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  paste("msg['Subject']
                                                  = '", subject, "'",
                                                  sep="")) </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (!is.null(attachment)){ </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">    mail
                                                  <- c(mail, </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">     
                                                  paste("f = '",
                                                  attachment, "'",
                                                  sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                   "part=MIMEBase('application',
                                                  'octet-stream')", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                   "part.set_payload(open(f,
                                                  'rb').read())", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                   "Encoders.encode_base64(part)", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                   "part.add_header('Content-Disposition',
                                                  'attachment;
                                                  filename=\"%s\"' %
                                                  os.path.basename(f))", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                   "msg.attach(part)") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  } </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">#SMTP
                                                  server credentials </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">  mail
                                                  <- c(mail, </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  paste("username = '",
                                                  username, "'",
                                                  sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  paste("password = '",
                                                  password, "'",
                                                  sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">#Set SMTP
                                                  server and send email,
                                                  e.g., google mail SMTP
                                                  server </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  paste("server =
                                                  smtplib.SMTP('",
                                                  server, "')",
                                                  sep=""), </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  "server.ehlo()", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  "server.starttls()", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  "server.ehlo()", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  "server.login(username,password)", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  "server.sendmail(fromaddr,
                                                  toaddrs,
                                                  msg.as_string())", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  "server.quit()") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"> 
                                                  message.details <- </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">   
                                                  paste("To:            
                                                    ", names(to), " (",
                                                  unlist(to), ")",
                                                  "\n", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">         
                                                  "From:             ",
                                                  names(from), " (",
                                                  unlist(from), ")",
                                                  "\n", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">         
                                                  "Using server:     ",
                                                  server, "\n", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">         
                                                  "Subject:          ",
                                                  subject, "\n", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">         
                                                  "With Attachments: ",
                                                  attachment, "\n", </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">         
                                                  "And the message:\n",
                                                  message, "\n",
                                                  sep="") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if
                                                  (confirmBeforeSend) </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">   SEND
                                                  <-
                                                  winDialog("yesnocancel",
                                                  paste("Are you sure
                                                  you want to send this
                                                  e-mail to ",
                                                  unlist(to), "?",
                                                  sep="")) </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   else
                                                  SEND <- "YES" </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  if (SEND
                                                  %in% "YES"){ </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  jython.exec(rJython,mail) </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">   
                                                  cat(message.details) </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">  } </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">  else
                                                  cat("E-mail Delivery
                                                  was Canceled by the
                                                  User") </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">}</font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">
                                                  <div>from
                                                    <-
                                                    list("Recipient" = "<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>")</div>
                                                  <div>to
                                                    <-
                                                    list("Recipient" = "<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>")</div>
                                                  <div>subject
                                                    <-
                                                    paste0("Pendencias
                                                    Nomograma de
                                                    ",Sys.time())</div>
                                                  <div>
                                                    <div>message
                                                      <- "Mensagem
                                                      automática com
                                                      relatório de
                                                      pendências do
                                                      projeto
                                                      Nomograma."</div>
                                                    <div>attachment
                                                      <-
                                                      'c:/banco/nomograma/Controle_recrutamento.doc'</div>
                                                    <div>>
                                                      send.email(to,from,subject,message,attachment,'<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>','...',confirmBeforeSend=FALSE)<br>


                                                    </div>
                                                  </div>
                                                </font></div>
                                              <div>
                                                <font color="#000066" face="courier new,
                                                  monospace">
                                                  <div>Erro
                                                    em
                                                    jython.exec(rJython,
                                                    mail) : (62,
                                                    'Connection
                                                    refused')</div>
                                                  <div><br>
                                                  </div>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">Qualquer
                                                  luz é bem vinda. </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace"><br>
                                                </font></div>
                                              <div><font color="#000066" face="courier new,
                                                  monospace">Abraço
                                                  forte,</font></div>
                                            </div>
                                            <div>
                                              <br>
                                            </div>
                                            <div><font color="#000066" face="'courier new',
                                                monospace">Dr. Pedro
                                                Emmanuel A. A. do Brasil</font>
                                              <div><font color="#000066" face="'courier new',
                                                  monospace">Curriculum
                                                  Lattes: 
                                                  <span style="text-align:left"><a href="http://lattes.cnpq.br/6597654894290806" target="_blank">http://lattes.cnpq.br/6597654894290806</a></span> <br>
                                                  Instituto de Pesquisa
                                                  Clínica Evandro Chagas<br>
                                                  Fundação Oswaldo Cruz<br>
                                                  Rio de Janeiro -
                                                  Brasil<br>
                                                  Av. Brasil 4365, <br>
                                                  CEP 21040-360,<br>
                                                  Tel <a href="tel:55%2021%203865-9648" value="+552138659648" target="_blank">55
                                                    21 3865-9648</a><br>
                                                  email: <a href="mailto:pedro.brasil@ipec.fiocruz.br" target="_blank">pedro.brasil@ipec.fiocruz.br</a><br>
                                                  email: <a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a><br>
                                                  <br>
                                                  ---Apoio aos softwares
                                                  livres<br>
                                                  <a href="http://www.zotero.org" target="_blank">www.zotero.org</a> -
                                                  gerenciamento de
                                                  referências
                                                  bibliográficas. <br>
                                                  <a href="http://www.broffice.org" target="_blank">www.broffice.org</a> ou <a href="http://www.libreoffice.org/" target="_blank">www.libreoffice.org</a> -
                                                  textos, planilhas ou
                                                  apresentações.<br>
                                                  <a href="http://www.epidata.dk" target="_blank">www.epidata.dk</a> -
                                                  entrada de dados.<br>
                                                  <a href="http://www.r-project.org" target="_blank">www.r-project.org</a> -
                                                  análise de dados.<br>
                                                  <a href="http://www.ubuntu.com" target="_blank">www.ubuntu.com</a> -
                                                  sistema operacional</font></div>
                                            </div>
                                          </div>
                                          <br>
                                        </div>
                                      </div>
_______________________________________________<br>
                                      R-br mailing list<br>
                                      <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
                                      <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
                                      Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
                                      e forneça código mínimo
                                      reproduzível.<br>
                                    </blockquote>
                                  </div>
                                  <br>
                                </div>
                                <br>
_______________________________________________<br>
                                R-br mailing list<br>
                                <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
                                <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
                                Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
                                e forneça código mínimo reproduzível.<br>
                              </blockquote>
                            </div>
                          </div>
                        </div>
                        <br>
                      </div>
                      <br>
                      _______________________________________________<br>
                      R-br mailing list<br>
                      <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
                      <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
                      Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
                      e forneça código mínimo reproduzível.<br>
                    </blockquote>
                  </div>
                  <br>
                </div>
              </div>
            </div>
            <br>
            _______________________________________________<br>
            R-br mailing list<br>
            <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
            <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
            Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
            e forneça código mínimo reproduzível.<br>
          </blockquote>
        </div>
        <br>
      </div>
      <br>
      <fieldset></fieldset>
      <br>
      <pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
    </blockquote>
    <br>
  </div></div></div>

<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><br></div></div></div></div>

</blockquote></div><br></div>