<div dir="ltr"><div dir="ltr"><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Il giorno mer 22 lug 2020 alle ore 13:06 Christof Thalhofer <<a href="mailto:chrisml@deganius.de">chrisml@deganius.de</a>> ha scritto:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Am 22.07.20 um 10:46 schrieb John Rose:<br>
<br>
> Using Gambas 3.15 from stable builds.<br>
<br>
You mail is beeing bonced from all Gmail servers because of the<br>
'TestApp.tar.gz' attachment.<br>
</blockquote><div><br></div><div><br></div><div>Maybe attaching zip files will bypass the problem...<br><br>I would propose to John such a thing:<br><br>[code]<br>Public Sub Form_Open()<br>  Dim sProgrammes As New String[] ' NEW<br>  Dim sProgramme As String<br>  Dim aProg, aIndex, aChannel, aPid As New String[]<br>  <br>  Me.Title = "TestApp: Version " & Application.Version<br>  <br>  sProgrammes.Add("51: A History of Art in Three Colours - Blue, BBC Four, b01lcz2s")<br>  sProgrammes.Add("52: A House Through Time: Series 1 - Episode 1, BBC Two, b09l64zg")<br>  sProgrammes.Add("xyz: Rubbish, BBC Two, r123qw9x")<br>  sProgrammes.Add("7691: Your Money and Your Life: Series 1 - Episode 10, BBC One, m000kc5x")<br>  '-------------------------------------------<br>  ComboBoxProgramme.List = sProgrammes<br>  For i As Integer = 0 To sProgrammes.Max<br>    sProgramme = sProgrammes.Pop()<br>    aIndex.Add(Trim(Scan(sProgramme, "*:*,*,*")[0]))<br>    aProg.Add(Trim(Scan(sProgramme, "*:*,*,*")[1]))<br>    aChannel.Add(Trim(Scan(sProgramme, "*:*,*,*")[2]))<br>    aPid.Add(Trim(Scan(sProgramme, "*:*,*,*")[3]))<br>  Next<br>  ComboBoxIndex.List = aIndex.Reverse()<br>  ComboBoxName.List = aProg.Reverse()<br>  ComboBoxChannel.List = aChannel.Reverse()<br>  ComboBoxPID.List = aPid.Reverse()<br><br>End<br><br>Public Sub ComboBoxProgramme_Click()<br>  <br>  Dim s As String = ComboBoxProgramme.Text<br>  Dim ss As String[] = Scan(s, "*:*,*,*")<br>  <br>  ComboBoxIndex.Text = Trim(ss[0])<br>  ComboBoxName.Text = Trim(ss[1])<br>  ComboBoxChannel.Text = Trim(ss[2])<br>  ComboBoxPID.Text = Trim(ss[3])<br>  <br>End<br>[/code]<br><br>Regards<br>Gianluigi <br></div></div></div>