Histórico da Página

#include "ap5mail.ch"
#include "protheus.ch"

User Function xSMail() Local cServer as character
Local cAccount as character
Local cEnvia as character
Local cServer    cRecebe as character
Local cPassword as character
Local aFiles as array
Local cMensagem as character
Local lConectou as logical
Local lDisconectou as logical
Local lAuth as logical

cServer := "smtp.totvs.com.br" 	//servidor para envio de email
Local cAccount  := "xxx"		                     // nome da conta a ser utilizada
Local cEnvia    := "[email protected]"                    // email de envio
Local cRecebe   := "[email protected]"                // email do destinatário
Local cPassword := "yyy"                                        // Define a senha da conta a ser usada para autenticação
Local aFiles    := {}
Local nI        := 1
Local cMensagem := ""
Local CRLF      := Chr(13) + Chr(10)
Local aFields := {}
Local lConectou := .F.
Local lDisconectou := .F.
Local lAuth := .F. 

cMensagem := "Texto com acentuação e caracteres especiais: " + CRLF
cMensagem += "---------------------------------------------"
cMensagem += CRLF
cMensagem += "Teste de envio de email" + CRLF

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou

// Efetua autenticação
lAuth := MailAuth(cAccount, cPassword)

If lConectou
    Alert("Conectado com servidor de E-Mail - " + cServer)
Endif

If lAuth
    Alert("Autenticado no servidor de E-Mail - " + cServer)
EndIf

// arquivos a serem atachados
aFiles := { "\system\sigafat.xnu", "\system\sigafin.xnu" }

If MsgYesNo("Envia Atachado")
    SEND MAIL FROM cEnvia;
    TO cRecebe;
    SUBJECT 'Email pelo Protheus' ;
    BODY cMensagem;
    ATTACHMENT aFiles[1], aFiles[2];
    RESULT lEnviado
Else
    SEND MAIL FROM cEnvia
    TO cRecebe;
    SUBJECT 'Email pelo Protheus';
    BODY cMensagem;
    RESULT lEnviado
Endif

If lEnviado
    Alert("Enviado E-Mail")
Else
    cMensagem := ""
    GET MAIL ERROR cMensagem
    Alert(cMensagem)
Endif

DISCONNECT SMTP SERVER Result lDisConectou

If lDisconectou
    Alert("Desconectado com servidor de E-Mail - " + cServer)
Endif

Return

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>