Lotusscript:将文件从电子邮件转换为base64，以便通过POST方法发送

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim attachment As NotesEmbeddedObject
Dim fileContent As String

Set db = session.CurrentDatabase
Set doc = db.GetDocumentByID("邮件ID")

' 获取附件
Set attachment = doc.GetAttachment("附件名称")
If Not attachment Is Nothing Then
    ' 打开附件
    Call attachment.ExtractFile("临时文件路径")
    
    ' 读取文件内容
    Dim fileNum As Integer
    fileNum = Freefile()
    Open "临时文件路径" For Binary Access Read As fileNum
    fileContent = Space$(LOF(fileNum))
    Get fileNum, , fileContent
    Close fileNum
    
    ' 将文件内容转换为base64编码
    Dim base64Content As String
    base64Content = EncodeBase64(fileContent)
    
    ' 使用base64编码的文件内容进行后续操作，例如通过POST方法发送
    ' ...
    
    ' 删除临时文件
    Kill "临时文件路径"
End If

' Base64编码函数
Function EncodeBase64(input As String) As String
    Dim stream As NotesStream
    Set stream = session.CreateStream()
    Call stream.WriteText(input)
    EncodeBase64 = stream.ReadText()
    Set stream = Nothing
End Function