Usando a classe TMailMessage com anexo
O uso da classe TMailMessage é bem simples e bem completa.
TMailMessage possui todos atributos possíveis a uma mensagem de e-mail e podemos utilizar seus métodos para inserir arquivos, documentos e outras mensagens como anexo da mensagem atual.
Abaixo uma simples função para utilizar a classe TMailMessage
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 |
User Function TEnvMail(cPara,cAssunto,cMensagem,cArquivo) Local cMsg := "" Local xRet Local oServer, oMessage Local lMailAuth := SuperGetMv("MV_RELAUTH",,.F.) Local nPorta := 25 //informa a porta que o servidor SMTP irá se comunicar, podendo ser 25 ou 587 //A porta 25, por ser utilizada há mais tempo, possui uma vulnerabilidade maior a //ataques e interceptação de mensagens, além de não exigir autenticação para envio //das mensagens, ao contrário da 587 que oferece esta segurança a mais. Private cMailConta := NIL Private cMailServer := NIL Private cMailSenha := NIL cMailConta :=If(cMailConta == NIL,GETMV("MV_EMCONTA"),cMailConta) //Conta utilizada para envio do email cMailServer:=If(cMailServer == NIL,GETMV("MV_RELSERV"),cMailServer) //Servidor SMTP cMailSenha :=If(cMailSenha == NIL,GETMV("MV_EMSENHA"),cMailSenha) //Senha da conta de e-mail utilizada para envio oMessage:= TMailMessage():New() oMessage:Clear() oMessage:cDate := cValToChar( Date() ) oMessage:cFrom := cMailConta oMessage:cTo := cPara oMessage:cSubject:= cAssunto oMessage:cBody := cMensagem xRet := oMessage:AttachFile( cArquivo ) if xRet < 0 cMsg := "O arquivo " + cArquivo + " não foi anexado!" alert( cMsg ) return endif oServer := tMailManager():New() oServer:SetUseTLS( .T. ) //Indica se será utilizará a comunicação segura através de SSL/TLS (.T.) ou não (.F.) xRet := oServer:Init( "", cMailServer, cMailConta, cMailSenha, 0, nPorta ) //inicilizar o servidor if xRet != 0 alert("O servidor SMTP não foi inicializado: " + oServer:GetErrorString( xRet ) ) return endif xRet := oServer:SetSMTPTimeout( 60 ) //Indica o tempo de espera em segundos. if xRet != 0 alert("Não foi possível definir " + cProtocol + " tempo limite para " + cValToChar( nTimeout )) endif xRet := oServer:SMTPConnect() if xRet <> 0 alert("Não foi possível conectar ao servidor SMTP: " + oServer:GetErrorString( xRet )) return endif if lMailAuth //O método SMTPAuth ao tentar realizar a autenticação do //usuário no servidor de e-mail, verifica a configuração //da chave AuthSmtp, na seção [Mail], no arquivo de //configuração (INI) do TOTVS Application Server, para determinar o valor. xRet := oServer:SmtpAuth( cMailConta, cMailSenha ) if xRet <> 0 cMsg := "Could not authenticate on SMTP server: " + oServer:GetErrorString( xRet ) alert( cMsg ) oServer:SMTPDisconnect() return endif Endif xRet := oMessage:Send( oServer ) if xRet <> 0 alert("Não foi possível enviar mensagem: " + oServer:GetErrorString( xRet )) endif xRet := oServer:SMTPDisconnect() if xRet <> 0 alert("Não foi possível desconectar o servidor SMTP: " + oServer:GetErrorString( xRet )) endif return |
Bem simples, não?