TOTVSTEC

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 2 minutos

Carrega um e-mail salvo em disco para um objeto da classe TMailMessage.

Sintaxe

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

Exemplo 1
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():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
  • Sem rótulos