DLL Einbindung in VB, VBA bzw. Lotus-Script

[neolithos]

Code:

function CreateMails(byval dwFlags as long) as long

gibt ein Handle (intern ein Pointer) zurück auf den Delphi Buffer.
dwFlags kann man auch als Enumeration machen (interesse frag danach)

Code:

function CloseMails(byval dwHandle as long) as boolean

gibt speicher wieder frei

Code:

function CountMails(byval dwHandle as long) as integer

gibt anzahl zurück

Code:

function GetMail(byval dwHandle as long, byval sBuf as string, byval iLen as long) as long

holt eine Mail ab
sBuf speicher von zeichen z.B. String(1024, " ")
iLen länge des Buffer's 1024

Code:

dim hMails as long
dim iCount as long ' Anzahl der Mails
dim iLen as long ' Länge der zurückgegebenen Zeichengette
dim sBuf as string ' Buffer für Rückgabe der Mail
  hMails = CreateMails(MAIL_OUTLOOK or MAIL_OPERA)
  if hMails <> 0 then

     iCount = CountMails(hMails)
     for I = 0 to iCount - 1 
         sBuf = String(1024) 
         iLen = GetMail(hMails, sBuf, 1024)
         ' beachte das du in Delphi mit StrCopy arbeitest, keine zuweisung ala :=
         if iLen > 0 then
            sBuf = Mid(sBuf, 1, iLen)
            ? sBuf
         end if 
     next

     CloseMails(hMails)
  end if

ganz du dir darunter was vorstellen!