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
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
|