c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
68 lines
1.2 KiB
Text
68 lines
1.2 KiB
Text
' Gambas class file
|
|
|
|
Public Sub Form_Close()
|
|
|
|
Settings.Write(FSettings)
|
|
|
|
End
|
|
|
|
Public Sub Form_Open()
|
|
|
|
Settings.Read(FSettings)
|
|
|
|
txtUsername.Text = Settings["LastUser", FMain.MailClient.User]
|
|
|
|
txtPassword.Text = FMain.MailClient.Password
|
|
|
|
txtServer.Text = Settings["LastServer", FMain.MailClient.Host]
|
|
|
|
vbPort.Value = IIf(FMain.MailClient.Port, FMain.MailClient.Port, vbPort.Value)
|
|
|
|
End
|
|
|
|
Public Sub btnSave_Click()
|
|
|
|
Balloon.Delay = 3000
|
|
|
|
If Not txtUsername.Text Then
|
|
Balloon.Error("Missing username", txtUsername)
|
|
Return
|
|
Endif
|
|
|
|
If Not txtPassword.Text Then
|
|
Balloon.Error("Missing password", txtPassword)
|
|
Return
|
|
Endif
|
|
|
|
If Not txtServer.Text Then
|
|
Balloon.Error("Missing server", txtServer)
|
|
Return
|
|
Endif
|
|
|
|
FMain.MailClient.User = txtUsername.Text
|
|
Settings["LastUser"] = FMain.MailClient.User
|
|
|
|
FMain.MailClient.Password = txtPassword.Text
|
|
|
|
FMain.MailClient.Host = txtServer.Text
|
|
Settings["LastServer"] = FMain.MailClient.Host
|
|
|
|
FMain.MailClient.Port = vbPort.Value
|
|
|
|
Me.Close
|
|
|
|
End
|
|
|
|
Public Sub chbSSL_Click()
|
|
|
|
Select Case chbSSL.Value
|
|
|
|
Case -1
|
|
If vbPort.Value = 110 Then vbPort.Value = 995
|
|
|
|
Case 0
|
|
If vbPort.Value = 995 Then vbPort.Value = 110
|
|
|
|
End Select
|
|
|
|
End
|