MailChkDirect()

MailChkDirect() – Mails direkt abrufen

Achtung:

Diese Funktion wird ab Version 6.0 nicht mehr unterstützt.
Bitte verwenden Sie für Mail-Zugriffe künftig das Objekt TBeCbMailMemoReceiver.

Die Funktion ruft die EMails für einen Account direkt ab.

Hinweis

Wird der Paramater oMemResultTable nicht angegeben, werden die empfangenen Emails mit der Standardlogik in der Dab065 abgelegt.
Wird der Paramater oMemResultTable angegeben, werden die empfangenen Emails nicht in der Dab065 sondern in der übergebenen Memory-Tabelle abgelegt.
Die Struktur der Tabelle wird von der Funktion automatisch der Dab065 angepasst.
Alle Email-Events werden ausgeführt.

Parameter	Beschreibung
cName:C	Account-Name
cHost:C	Host
cUser:C	User
cPass:C	Passwort
cBeUser:C	Be-User
lDelFromServer:L	Abgerufene Emails können vom Server gelöscht werden
oResultMemTable:O	Mem-Table für die Ergebnisse; default = nil
lNoContent:L	Keinen Content abrufen; default = false
cUidOnly:C	Uid verwenden; default = Leerstring

Rückgabewert

Logisch / Boolean - Abrufen erfolgreich

Beispiel

CODE

| oMailTemp, i, aAtt, cImpPath |

oMailTemp := CreateObject("TMemCalcTable"),
MailChkDirect(M_EMAILNAM,
              DABPAR:EMAIL_POP,
              M_POPUSER,     // Username
              M_POPPW,       // Password
              C_USR,         // BE-User
              TRUE,          // Delete Mail from Server
              oMailTemp  ),

DBGoTop(oMailTemp),
while not EoF(oMailTemp) do
   aAtt  := MailAttLoadList(oMailTemp,"DATA"),
   for i := 1 to ALen(aAtt) do
      if Lower(RTrim(aAtt[i,5])) = 'zezeiten.bez' then
         MailAttSaveToFile(oMailTemp, "DATA", aAtt[i,5], false, cImpPath+aAtt[i,5]),
      endif,
   next,
   DBSkip(1, oMailTemp),
end,