VBA SendMail nach Delphi konvertieren - brauche Hilfe

[Piro]

Moin zusammen,

ich habe einen VBA Code, den ich gerne nach Delphi konvertieren möchte. Mich würde mal interessieren, ob das geht und wenn ja, wie der Delphi Code auszusehen hat.

Code:

Function Mail_senden(sSubject As String, sMail As String, sFile() As String, bShow As Boolean) As Boolean
'*******************************************************************
'* sFile() starts at 1
'*******************************************************************
  Dim oSession As Object    'Notes Session
  Dim oDB As Object         'Notes Datenbank
  Dim oDoc As Object        'Notes Document
  Dim oRTitem As Object     'Notes RichText Item
  Dim oWS As Object         'Notes Workspace
  Dim sMailserver As String
  Dim sMailFile As String
  Dim i As Integer
  Dim fso As New FileSystemObject
  
  Mail_senden = True
  On Error Resume Next
  Set oSession = CreateObject("Notes.Notessession")
  
  If Err = 0 Then  
    sMailserver = oSession.GETENVIRONMENTSTRING("Mailserver", True)
    sMailFile = oSession.GETENVIRONMENTSTRING("Mailfile", True)
    Set oDB = oSession.GETDATABASE(sMailserver, sMailFile)
      
    Set oDoc = oDB.CREATEDOCUMENT
      
    oDoc.SendTo = sMail
    oDoc.subject = sSubject
    
    oDoc.Form = "Memo"
    Set oRTitem = oDoc.CREATERICHTEXTITEM("Body")
    For i = 1 To UBound(sFile())
      If sFile(i) <> "" Then
        Call oRTitem.EMBEDOBJECT(1454, "", sFile(i))
      End If
    Next i
        
    If bShow Then
      Set oWS = CreateObject("Notes.NotesUIWorkspace")
      Call oWS.OpenDatabase(sMailserver, sMailFile)
      Call oWS.EDITDOCUMENT(True, oDoc)
    Else
      Call oDoc.SEND(False)
    End If
  Else
    MsgBox "Kein Lotus Notes auf diesem PC gefunden.", vbCritical
    Mail_senden = False
  End If  
End Function

Ist das machbar?

Gruß, Sven