PC Toledo

Código: Selecionar todos

#require 'hbssl'
#require 'hbtip'

#if ! defined( __HBSCRIPT__HBSHELL )
REQUEST __HBEXTERN__HBSSL__
#endif

#include "simpleio.ch"

Static 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 e totalmente automatico e requer
      que SSL/TLS seja desativado primeiro (ele sera ativado em
      pedido apos 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( 'Nao foi  possivel enviar;o  e-mail. Verifique  as; configuracoe de e-mail. ')
EndIf

Return(.T.)

Código: Selecionar todos

-fullstatic