Private Sub cmdDecodeStart_Click()

'// Kör Decode på en valfri fil
'
MimeDecode App.Path & "\rfc1521.enc", App.Path & "\rfc1521.dec", Stat%
If Stat% = 0 Then
Print "Korrekt avkodad!"
Else
Print "Felaktigt avkodad!"
End If
End

End Sub

Private Sub cmdEncodeStart_Click()

'// Kör Encode på en valfri fil
MimeEncode txtEncodeFile, App.Path & "\rfc1521.enc", Stat%
If Stat% = 0 Then
Debug.Print "Korrekt konverterad !"
Else
Debug.Print "Felaktigt konverterad!"
End If

End Sub

Private Sub cmdEnd_Click()

Unload Me
End

End Sub

Private Sub Form_Load()

txtEncodeFile = App.Path & "\rfc1521.txt"
txtDecodeFile = App.Path & "\rfc1521.enc"

End Sub