69 lines
1.2 KiB
Text
69 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
|