PC Toledo

Código: Selecionar todos

#include 'simpleio.ch'
Function Mail(cHost, nPort, lSSL, cFrom, cTo, cCC, cBCC, cMsg, cSubject, aFiles, cPassword, lRead)
Local lStartTls:= .F.

cHost:= Lower(cHost)

   /* SMTPS trabalha com SSL/TLS na porta 465 e com STARTTLS
      na porta 587. O modo STARTTLS ‚ é totalmente automático e requer
      que SSL/TLS seja desativado primeiro (ele é ativado em
      pedido após o comando STARTTLS)*/     

Hb_Default(@nPort, IIf(lStartTls, 587,465))

Do Case
   Case cHost == 'google' .Or. '@gmail.com' $ cFrom .Or. '@googlemail.com' $ cFrom
        cHost:= 'smtp.gmail.com'
   Case cHost == 'office365'
        cHost:= 'smtp.office365.com'; lStartTls:= .T.
   Case cHost == 'outlook' .Or. '@outlook.com' $ cFrom .Or. 'hotmail.com' $ cFrom .Or. '@hotmail.com' $ cFrom
        cHost:= 'smtp-mail.outlook.com'; lStartTls:= .T.
   Case cHost == 'uol' .Or. '@uol.com.br' $ cFrom
        cHost:= 'smtps.uol.com.br'
   Case cHost == 'yahoo' .Or. '@yahoo.com' $ cFrom
        cHost:= 'smtp.mail.yahoo.com'
   Case cHost == 'ig' .Or. '@ig.com.br' $ cFrom
        cHost:= 'smtp.ig.com.br'
EndCase

If  Tip_MailSend( ;
    cHost, ;
    nPort, ;
    cFrom, ;
    cTo, ;
    cCC /* CC */, ;
    cBCC /* BCC */, ;
    cMsg /* Corpo Mensagem */, ;
    cSubject /* Assunto */, ;
    aFiles /* attachment */, ;
    cFrom, ;
    cPassword, ;
    '', ;
    Nil /* nPriority */, ;
    lRead /* lRead */, ;
    .F. /* lTrace */, ;
    .F., ;
    Nil /* lNoAuth */, ;
    Nil /* nTimeOut */, ;
    Nil /* cReplyTo */, ;
    nPort == 465 )

    Alert('e-mail enviado com sucesso!')
Else
    Alert('Não foi possível enviar o e-mail. Verifique as configurações de e-mail.')
EndIf
Return(.T.)