Sub Click(Source As Button)
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim body As NotesMIMEEntity
    Dim stream As NotesStream
    Set db = s.CurrentDatabase
    s.ConvertMIME = False ' Do not convert MIME to rich text
    Set doc = db.CreateDocument
    Call doc.ReplaceItemValue("Form", "fmejved")
    Set body = doc.CreateMIMEEntity
    Set stream = s.CreateStream
    Call stream.Open("C:\text\111110.gif", "binary")
    Call body.SetContentFromBytes(stream, "image/gif", ENC_IDENTITY_BINARY)
    Call stream.Close
    Call doc.Save(True, True)
ExitSub:
    s.ConvertMIME = True ' Restore conversion
End Sub

Sub Click(Source As Button)
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim body As NotesMIMEEntity
    Dim stream As NotesStream
    Set db = s.CurrentDatabase
    s.ConvertMIME = False ' Do not convert MIME to rich text
    Set doc = db.CreateDocument
    Call doc.ReplaceItemValue("Form", "fmejved")
    Set body = doc.CreateMIMEEntity
    Set header = body.CreateHeader("Subject")
    Call header.SetHeaderVal("MIME image from GIF file")
    Set stream = s.CreateStream
    If Not stream.Open("C:\text\111110.gif", "binary") Then
        Messagebox "C:\text\111110.gif","Open failed"
        Goto ExitSub
    End If
    If stream.Bytes = 0 Then
        Messagebox "C:\text\111110.gif",, "File has no content"
        Goto ExitSub
    End If
    Call body.SetContentFromBytes(stream, "image/gif", ENC_IDENTITY_BINARY)
    Call stream.Close
    Call doc.Save(True, True)
ExitSub:
    s.ConvertMIME = True ' Restore conversion
End Sub