[Gambas-user] smtp-client doesn't return

[Rolf-Werner Eilert]

Am 31.07.2013 20:44, schrieb Willy Raets:
> On Wed, 2013-07-31 at 00:24 +0200, Rolf-Werner Eilert wrote:
>> Ok, maybe I got this completely wrong, so here's my first trial with
>> gb.net.smtp:
>>
>> Public Sub Main()
>>
>> Dim email As New SmtpClient
>>
>>     With email
>>       .Add("Is this the mailtext?")
>>       .To.Add("mymainemail at ...3165...")
>>       .From = "sender at ...3166..."
>>       .Subject = "Just a test"
>>       .Port = 25
>>       .Host = "smtp.provider.de"
>>       .User = "username"
>>       .Password = "password"
>>     End With
>>
>>     email.Send
>>
>> End
>>
>>
>> Everything is accepted, but email.Send never returns, i. e. the program
>> never stops and I've never got an email.
>>
>> Does .Add really add the message text, or is it for attachments only?
>> Where would I have to add the message body text then?
>>
>> The plan is to automatically send an email like from an ordinary mail
>> client (Thunderbird) via my smtp provider to the receiver. There should
>> be a mail text and a pdf attached.
>>
>> Regards
>>
>> Rolf
>
> email.Add("This is the body of the mail",,"")
> email.Add("This is attached as text file", "text/plain", "File.txt")
>
> First line should give you the body and the second line should produce
> you an attachment named File.txt with content "This is attached as text
> file".
>
> Don't know about attaching pdf, haven't been there but I am curious too.
>
> email.Send should send the mail. Don't know why it doesn't.
>
> Do you need the username and password for smtp at your provider? Else
> just skip it as it is send in plain text and easy to trap with a network
> sniffer.
>
>

Meanwhile I got it running - at least there is no more error message. 
Before I had some data wrong, there was an error message after some 
waiting. Now I used the ssl connection and added Encrypt = net.ssl

It seems to run now, but the testmail has never appeared.

Regards
Rolf