TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css
Portuguese
Pagetitle
TMailMessage:Load
TMailMessage:Load

Carrega um e-mail

...

salvo em disco para um objeto da classe

...

true

TMailMessage.

Sintaxe

Bloco de código
Load( < cFile > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cFile

caractere

Indica o arquivo no disco a partir do RootPath do servidor.

X

 

Exemplos

Bloco de código
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapse
false
user function loadEmail()
  Local oMessage
  Local nAttach := 0, nI := 0
  Local aAttInfo := {}
  Local cBaseName := "" cName := ""
  Local xRet
  
  cBaseName := GetSrvProfString( "RootPath", "" )
  if Right( cBaseName, 1 ) <> '\'
    cBaseName += '\'
  endif
  cBaseName += "mail\pop3\"
  
  oMessage :=
tMailMessage
TMailMessage():New()
  oMessage:Clear()
  
  oMessage:Load( "\emails\arquivo.eml" )
  
  nAttach := oMessage:GetAttachCount()
  
  for nI := 1 to nAttach
    aAttInfo := oMessage:GetAttachInfo( nI )
    varinfo( "", aAttInfo )
    
    cName := cBaseName
    
    if aAttInfo[1] == ""
      cName += "message." + SubStr( aAttInfo[2], At( "/", aAttInfo[2] ) + 1, Len( aAttInfo[2] ) )
    else
      cName += aAttInfo[1]
    endif
    
    xRet := oMessage:SaveAttach( nI, cName )
    if xRet == .F.
      conout( "Could not save attachment " + cName )
      return
    endif
  next nI
return