How to Transfer SMS from Android to Computer?

Status
Not open for further replies.

bupalaea

New Member
How to Transfer SMS from Android to Computer?
I want to be able to save Android SMS text messages off of my Android. Is there any way I can do that? I have over 10000 sms in this database. Thanks!
 

cristianos

Member
Licensed User
Longtime User
Try this...

B4X:
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   Dim ph As SmsMessages
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   'Activity.LoadLayout("Layout1")
   Dim i As Int : i = ph.GetAll.Size
   Log ("Number of SMS: " & i)
   WriteTextWriter

End Sub

Sub WriteTextWriter
    Dim TextWriter1 As TextWriter
    TextWriter1.Initialize(File.OpenOutput(File.DirRootExternal, "sms_save.txt", False))
   
      TextWriter1.WriteList(ph.GetAll)
       TextWriter1.Close
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
 
Upvote 0
Status
Not open for further replies.
Top