Italian Link Geo Position per posta elettronica

Spectre

Active Member
Licensed User
Longtime User
Salve...
Sapete rer quale oscuro motivo se invio un link per posta elettronica su Gmail di google alla ricezione mi trovo modificato il simbolo "=" con una "F" maiuscola e mi toglie il primo numero della lat???
Su altre email va tutto bene...

B4X:
MessageTosend=MessageTosend & CRLF &"http://maps.google.com/maps?q=" & myLocalLat & "," & myLocalLon
MySMTP.Body=MessageTosend
MySMTP.Send

Risultato nella gmail:

MY GEO POSITION: <Lat10.0598435><Lon14.6364712>POSITION<37T 303925-2104076>
http://maps.google.com/maps?qF.059844,14.636471
 

magoandroid

Member
Licensed User
Longtime User
Ciao @Spectre,
ti allego un frammento di codice che uso in un app personale che invia il link a Gmail, e non presenta il problema che hai segnalato.
Buona giornata.
MAgo

B4X:
Sub Timer1_Tick
    ' Handle tick events
    Dim txbuffer As String
   
    timeinterval = timeinterval + 1
    Timesec.Text  = timeinterval
    lblFire.Color = Colors.White

    If CheckGPS.Checked = False Then
        GPS1.Stop
        Return
    Else
        GPS1.Start(0, 0) 'Listen to GPS with no filters.
    End If
   
    'test se latitudine/longitudine disponibili altrimenti attendi ad inviare
    If lblLat.Text = "" Then Return
    If lblLon.Text = "" Then Return
   
   
   
    If timeinterval >= general.GSMInterval  Then    ' check se Tempo Scaduto per invio
        lblFire.Color = Colors.red                    ' segnalazione visiva invio SMS
        timeinterval = 0                            ' resetta contatore tempo

        DateTime.DateFormat = "dd/MM/yyyy"
       
        txbuffer = "(C) MAgo - GPS Comunicator v1.0" & CRLF & CRLF & _
                  "Data:              " & DateTime.date(DateTime.Now) & CRLF & _
                  "Ora:              " & DateTime.time(DateTime.Now) & CRLF & _
                  "ID Telefono:      "& Telefono.GetDeviceId & CRLF & _
                  "ID SIM:            "& Telefono.GetSimSerialNumber  & CRLF & _
                  "SubScrib:          "& Telefono.GetSubscriberId  & CRLF & _
                  "Posizione Attuale: "  & CRLF & _
                  "http://maps.google.com/maps?q=" & _
                  lblLat.Text.Trim & "," & lblLon.Text.Trim & "&ll=" & _
                  lblLat.Text.Trim & "," & lblLon.Text.Trim  & "&z=14"

        If general.enableSMS  <> 0 Then
            ToastMessageShow("Invio SMS: " & txbuffer, True)
            MyPhone.Send(general.GSMCell1, txbuffer)
        End If
       
        If general.enableMail <> 0 Then
            ToastMessageShow("Invio e-mail a " & general.GSMMail1, True)
            invia_mail(general.GSMMail1, txbuffer)
        End If
    End If
End Sub
 

Spectre

Active Member
Licensed User
Longtime User
OK proverò.... una domanda ricevi anche email sul cell per estrarrela posizione e mostrarla in mappa?
Io ho provato ad usare il POP3 ma secondo me e un macello se devi scaricare tutta la lista dei messaggi...
 

Spectre

Active Member
Licensed User
Longtime User
Nulla da fare...stessa storia...
però ho trovato questo....

V1.37 is released. This version removes the automatic escaping of '=' characters in SMTP messages. To implement it in your code you should write:
Code:
SMTP.Body = SMTP.Body.Replace("=", "=3D")
 
Last edited:

magoandroid

Member
Licensed User
Longtime User
.... una domanda ricevi anche email sul cell per estrarrela posizione e mostrarla in mappa?

Ciao @Spectre,
per le mie necessità ho utilizzato solo SMTP.
La libreria utilizzata, a suo tempo, era (è) la NET 1.20 e non presenta i problemi segnalati.

Ho provato a ricompilare con la 1.31 (nessun problema).
Ho provato a ricompilare con la 1.52 (problema, mi modifica il simbolo "=" con una "D")

Cambiamenti:
Sempre utilizzando la 1.52 e dopo aver generato il Body segue:
SMTP.Body = SMTP.Body.Replace("=", "=3D")

B4X:
Sub invia_mail(destinazione As String, messaggio As String )

    SMTP.To.Add (destinazione)                      'Destinatario del messaggio
    SMTP.Subject = "MAgo GPS - Posizione Attuale"  'Oggetto del messaggio
    SMTP.HtmlBody = False
    SMTP.Body = messaggio
    SMTP.Body = SMTP.Body.Replace("=", "=3D")
   
    SMTP.Sender = "GPS_MAgo"
    ' Eliminare il commento per aggiungere un file al messaggio (mettere il nome del file di interesse.
    ' SMTP.AddAttachment(File.DirRootExternal, "Nomefile.est")
    SMTP.Send
   
End Sub

Con questo cambiamento tutto funziona come prima.

Un cordiale saluto.
MAgo
 

Spectre

Active Member
Licensed User
Longtime User
CIao MAgo avevo provato anche io con il "body.replace" ma senza successo... Mo rivedo il codice...
 
Top