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
|